Nabend,
Du musst zunächst warten bis der Webbrowser fertig geladen hat.
Delphi-Quellcode:
procedure TForm1.Wait(eWebbrowser: TWebBrowser; Delay: Integer);
begin
Repeat
Sleep(Delay);
Application.ProcessMessages;
Until (eWebbrowser.ReadyState = READYSTATE_COMPLETE) OR (Application.Terminated) ;
end;
Und dann kann man sich so einloggen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('https://signin.ebay.de/ws/eBayISAPI.dll?SignIn&ru=http%3A//www.ebay.de/&_trksid=m37');
Wait(Webbrowser1,1000);
WebBrowser1.OleObject.document.forms.item(1).elements.item('userid').Value := 'XXX';
Webbrowser1.OleObject.document.forms.item(1).elements.item('pass').Value := 'XXX';
WebBrowser1.OleObject.document.forms.item(1).submit;
end;
Gruss Daniel