Erstens aber des sei mal so dahingestellt (hab ich ja selber auch gemacht) darfst du keine Prog. verwenden die sachen automatisieren.
Also wenn du
webbrowser1.Navigate('www.inselkampf.de');
ausfürhst dann will er auf die Seite gehen ist aber aber natürlich noch lange nicht fertig mit dem laden als du ein ein noch nicht vorhandenes Feld was reinschreiben willst, denn rest kannst dir denken also hab es es so gelöst:
einfach mit
webbrowser1.Navigate('www.inselkampf.de');
dort hinnavigieren und dann im:
Delphi-Quellcode:
procedure THaupt.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if URL = '
http://www.inselkampf.de/'
then
begin
try
WebBrowser.OleObject.document.forms.item(0).elements.item('
member').value := Member;
WebBrowser.OleObject.document.forms.item(0).elements.item('
pwd').value := Password;
WebBrowser.OleObject.document.forms.item(0).elements.item('
server').value := Server;
WebBrowser.OleObject.document.forms.item(0).submit;
except
ShowMessage('
Daten konnten nicht eingetragen werden');
end;
end;
end;
alles eintragen und absenden.
Viel Glück und lass dich nicht erwischen
