Hallo zusammen,
Ich möchte mich, mittels TWebBrowser, auf einer Seite einloggen, und, nachdem ich eingeloggt bin, auf der anschließend erscheinenden Seite eine Nummer eingeben.
Bis nach dem einloggen klappt alles ganz prima, nur, wenn ich auf der Folgeseite das Feld für die Nummer ausfüllen will, knallt's.
Kann mir bitte jemand verraten warum?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x: variant;
begin
// br ist meine TWebBrowser-Komponente - mit unveränderten Standardwerten
br.Navigate ('https://secure.freedomscientific.com/DealerILM/default.asp');
while br.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
x := br.OleObject.document.forms.item('input');
x.Elements.item('username').value := 'bla';
x.Elements.item('password').value := 'bla';
x.Elements.item('agree').click;
x.submit;
while br.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
// bis hierhin läuft alles ganz prima, und die Seite zur Eingabe der Nummer wird auch angezeigt.
x := br.OleObject.document.forms.item('input');
x.Elements.Item('serial').value := '24520';
// und genau diese Zuweisung verursacht den Fehler.
end;
Viele Grüße
Marco