formularfelder einer website ausfülle?

[Jan]

Nach ein bischen Googlen schon gefunden:

Code:

procedure tform1.login;
var
  Webform : variant ;
begin
form1.WebBrowser1.OleObject.Document.Frames.item('main').Document.Forms.item(0).Elements.item('username').value := 'LANJAN' ;
form1.WebBrowser1.OleObject.Document.Frames.item('main').Document.Forms.item(0).Elements.item('password').value := 'moep' ;
WebForm := form1.WebBrowser1.OleObject.Document.Frames.item('main').Document.Forms.item(0);
WebForm.submit;
end;

end.