Próbuje odczytać zawartość poszczególnych ramek na stronie. Robię to tak :
var
j : integer;
document, document2 : IHTMLDocument2;
fDispatch : IDispatch;
window : IHTMLWindow2;
[...]
1 : if document.frames.length>0 then
2 : for j:=0 to document.frames.length-1 do
3 : begin
4 : oleIndex:=j;
5 : fDispatch := document.frames.item(oleIndex);
6 : if fDispatch.QueryInterface(IHTMLWindow2,window) = S_OK then
7 : begin
8 : document2 := window.document as IHTMLDocument2;
9 : ShowMessage(document2.body.innerHTML);
10: end;
11: end;
Procedura działa ale nie na wszystkich stronach. Np. nie mogę odczytać żadnej ramki z domeny prv. Błąd w linii 8 - "Brak dostępu".
Proszę o wskazówkę bo już nie mogę wytrzymać :-(
Pozdrawiam !