Vente indtil webbrowser er færdig med at læse en website.
Hej Alle,Jeg sidder og "loader" en website med webbowser og vil gerne vente til hele siden er "loaded".
Jeg kan dog ikke helt holde styr på hvornår dette er sket.
Mit mål er, at kunne søge i htmlsource og finde Afsendelsesdato på denne side:
http://support.euro.dell.com/support/topics/topic.aspx/emea/shared/support/my_systems_info/da/details?c=dk&cs=RC1077943&l=da&s=pad&~ck=anavml&servicetag=3k6651j
Nummeret: 3k6651j er et servicetag som kan bruges til at slå op.
Jeg har prøvet dette:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://support.euro.dell.com/support/topics/topic.aspx/emea/shared/support/my_systems_info/da/details?c=dk&cs=RC1077943&l=da&s=pad&~ck=anavml&servicetag=3k6651j');
showmessage('Fundet');
end;
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Showmessage('Done');
end;
Resultatet af dette er, at Showmessage('Fundet'); bliver vist med det samme på skærmen,og Showmessage('Done'); bliver vist lidt efter, men 2 gange med 5 sekunder imellem.
Er der noget jeg har glemt eller bruger man ikke Webbrowser til dette?
Jeg har osse prøvet dette:
MemoryStream:=TMemoryStream.Create;
IdHTTP1.get('http://support.euro.dell.com/support/topics/topic.aspx/emea/shared/support/my_systems_info/da/details?c=dk&cs=RC1077943&l=da&s=pad&~ck=anavml&servicetag=3k6651j',memorystream);
MemoryStream.Position:=0;
Memorystream.SaveToFile('zzz.txt');
Memo1.Lines.LoadFromStream(MemoryStream);
MemoryStream.Free;
Memo1.Lines.LoadFromFile('zzz.txt');
Men får en connection refused. Er ikke sådan lige med hvorfor.
Håber nogen kan hjælpe mig.
Venligst