Mein Problem hat sich verlagert.
Captchas kann ich schon auslesen, nun fehlt nur noch die Rückmeldung von der Seite.
Ich habe meine Probleme mit der Rückmeldung von Webbrowser.
Mit VB habe ich es zwar hinbekommen, allerdings machen mich da die Scriptfehler total fertig. Trotz Silent und Theater mode
Na ja, habe mich entschlossen eben das ganze in Delphi zu schreiben.
Bitte nur melden wenn Ihr wisst wovon ich rede und Ihr helfen wollt.
Zur Zeit bin ich hier.
Seite wir aufgerufen
Daten werden in die Formulare eingetragen
Captcha wird ausgelesen und local gespeichert
Captcha wird in TImage geladen (Autoerkennung kommt später)
Nun klicke ich per Button auf den Click Button auf der Seite.
Soweit sogut. Alles läuft.
Bach dem Drücken des Buttons abe wartet meinTool nicht bis die Seite aktualisiert wurde. Liest mein Quellcode von der Seite die noch nicht aktuell ist. Trotz:
Wenn ich das zweite mal den Button auslese dann habe ich die Fehlermeldung und kann die auswerten.Code:while (Form1.WebBrowserSeite.ReadyState <> READYSTATE_COMPLETE) or Form1.WebbrowserSeite.Busy do Application.ProcessMessages;
Mir geht es um die Rückmeldung. Fehler oder Erfolg.
Etwa so:
Soweit reichen meine Kenntnisse nicht aus um den Fehler zu begeben oder habe eine Ladehemmung.Form1.WebBrowserSeite.OleObject.Document.forms.ite m(1).Action.Click ;
while (Form1.WebBrowserSeite.ReadyState <> READYSTATE_COMPLETE) or Form1.WebbrowserSeite.Busy do
Application.ProcessMessages;
QuelltextSeite := Form1.WebBrowserSeite.OleObject.Document.Body.Inne rHTML; {Quelltext einlesen **}
{************************************************* ************************************************** *****}
PositionAnfang := Pos('class=ERROR',Quelltext); {Position des Fehlers bestimmen ***}
If PositionAnfang > 0 Then
begin
Meldung := midstr(QuelltextSeite,PositionAnfang,(PositionAnfa ng) + 150);
PositionEnde := Pos('</SPAN>',Meldung);
Meldung := midstr(Meldung,13,(PositionEnde - 13));
Form1.LabelSeiteStatusErgebnis.Font.Color := clRed ;
Form1.LabelSeiteStatusErgebnis.Caption := Meldung ;
end;
Bitte um Hilfe. Aber bitte keine : Versuche mit post Kommentare. Nur konstruktive Hilfe bitte.