Hallo Leute, wieder einmal brauche ich eure Hilfe.
Und zwar möchte ich, dass der Webbrowser folgende Schritte durchführt.
Schritt 1: Seite mit LoginFormular ausfüllen und abschicken
Schritt 2: Zu einer Seite im Mitgliederbereich wechseln
Schritt 3:
HTML Quelltext speichern und in Memo ausgeben
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if DumpStep = 1
then
begin
WB_FillPwdForm(Webbrowser1, '
Login_email', StudiUser, '
Login_password', StudiPW);
webbrowser1.oleobject.document.forms.item('
Login').elements.item('
login').click;
DumpStep := 2;
end;
if DumpStep = 2
then
begin
webbrowser1.Navigate(Edit1.text);
DumpStep := 3;
end;
if (DumpStep = 3)
then
begin
WB_SaveHTMLCode(Webbrowser1, ExtractFilePath(Paramstr(0)) + '
\temp\quelltext.txt');
ListBox1.Items.Add('
[' + TimeToStr(now) + '
]' + '
Temp-Datei für den Quelltext angelegt');
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
ListBox1.Items.Add('
[' + TimeToStr(now) + '
]' + '
Quelltext geöffnet');
DumpStep := 4;
end;
end;
Nun gibt er mir aber bereits den Quelltext bei Schritt 1 aus. Wo liegt das Problem? Hat da jemand ne Lösung, evtl eine grundlegende Verbesserung? Mir scheint, dass ich das eh unglücklich programmiert habe...