hab ich doch gemacht ich weiß nur nicht mit welcher IdHTTP procedure ich die
URL schicken kann.
diesen code z.B hätte ich gerne in
Indy
Delphi-Quellcode:
procedure TForm3.Weblogin(user, passwd: string);
begin
WebBrowser1.Navigate('http://mypage.de/admin.php');
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do begin
Application.ProcessMessages;
end;
if WebBrowser1.OleObject.Document.all.tags('FORM').Length <> 0 then begin
WebBrowser1.OleObject.Document.forms.item(0).elements.item('aid').value:=user;
WebBrowser1.OleObject.Document.forms.item(0).elements.item('pwd').value:=passwd;
WebBrowser1.OleObject.Document.Forms.item(0).submit;
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do begin
Application.ProcessMessages;
end;
Webform;
end
end;