Also irgendwie peil ich das nicht so richtig
wenn ich folgenden code verwende :
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var z,count : Integer;
begin
with WebBrowser1
do
begin
OleObject.document.frames.length;
for z := 0
to Count-1
do
OleObject.document.frames.items(z);
Memo1.Lines.Add(OleObject.document.frames.item(z).document.images.item(z).Src);
end;
end;
Bringt er mir beim ausführen den Error :"Nicht implementiert"
Was mache ich falsch ?