Thema: Delphi Web Form

Einzelnen Beitrag anzeigen

MadMax

Registriert seit: 24. Mär 2003
46 Beiträge
 
#10

Re: Web Form

  Alt 15. Jul 2003, 14:05
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;
  Mit Zitat antworten Zitat