also ich habe den Code versucht umzusetzen :
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var z,z2,count1,count2 : Integer;
begin
with WebBrowser1
do
begin
count1 := OleObject.document.frames.length;
for z := 0
to Count1-1
do
begin
Count2 := OleObject.document.frames.item(z).document.images.item(z).Src;
for z2 := 0
to Count2-1
do
Memo1.Lines.Add(OleObject.document.images.Item(z).Src);
end;
end;
end;
end.
beim compilieren bekomm ich zwar keinen Error, aber beim ausführen passiert wenn ich aud
http://delphi-Praxis.net navigiere gar nix und bei
http://Assun.de kommt dieser Error :
http://home.arcor.de/assun/error.JPG
Und ich habe keine Ahnung wieso.
Ich habe unten mal sowohl die EXE als auch den Source angehängt, in der Hoffnung, dass mir vllt jemand helfen kann
