Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
Delphi 7 Enterprise
|
31. Dez 2002, 17:54
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.
Jan Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
|