Ich möchte einen Bot erstellen der folgendes macht:
1. zu einer
url gehen... warten bis komplett geladen ist
2. login ... warten bis komplett geladen ist
3. zu einer bestimmten unterseite gehen ... warten bis komplett geladen ist
4. spezielle daten aus dem
html code auslesen
hier der code dazu... nicht wundern ich nutze nicht den standard Twebbrowser!
Delphi-Quellcode:
procedure TForm4.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if aktion = '
login'
then begin
WebBrowser1.FillForm('
user','
myname);
webbrowser1.FillForm('pwd'
,'atest'
);
post_form;
aktion := 'link1'
;
exit;
end;
if aktion = 'link1'
then begin
webbrowser1.Navigate('http:
//www.mypage.de/login.php');
aktion := '
extract';
exit;
end;
if aktion = '
extract'
then begin
http_code.Clear;
http_code.Text := webbrowser1.DocumentSource;
..
..
aktion := '
startex';
exit;
end;
if aktion = '
startex'
then begin
..
..
aktion := '
';
exit;
end;
end;
Der fehler liegt hier
http_code.Clear;
http_code.Text := webbrowser1.DocumentSource;
dort ist der
html code der login seite drin und nicht der von der aktuellen seite. weis jemand warum?
Oder hat jemand eine bessere idee wie ich das realisieren kann?