Obtener informacion de internet

[titomigue]

Hola, mira yo eso lo hago de esta manera, a ver si te sirve:

1º: Cargas la pagina.

WebBrowser1.Navigate('http://www.xxx.com');

2º:Yo lo pongo cuando a terminado de cargar la pagina:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
 
  var
     currentBrowser: IWebBrowser;
     topBrowser: IWebBrowser;

     Doc: IHTMLDocument3;
     Inputs: IHTMLElementCollection;
     UID, LGN: IHTMLElement;

  begin
    currentBrowser := pDisp as IWebBrowser;
    topBrowser := (ASender as TWebBrowser).DefaultInterface;
    if currentBrowser = topBrowser then
      begin
         ///vamos a colocar un usuario y una contraseña y darle al boton de entrar
         ////buscamos usuario//////
         Doc := WebBrowser1.Document as IHTMLDocument3;
         Inputs := Doc.getElementsByName('username');//username cambialo por el nombre del input de donde va el usuario
         UID := Inputs.item(0, '') as IHTMLElement;
         if UID <> nil then //si lo encuentra le escribimos el usuario
            (UID as IHTMLInputElement).value := 'pepitoperez';
         if UID = nil then
            ShowMessage('No se encuentra uername');// si no lo encuentra...

         ///////la contraseña es igual////////////////////
         Inputs := Doc.getElementsByName('password');
         UID := Inputs.item(0, '') as IHTMLElement;
         if UID <> nil then
             (UID as IHTMLInputElement).value := '123456';
         if UID = nil then
             ShowMessage('No se encuentra password');

         ///////click al boton y entramos (submit)//////////
         Inputs := Doc.getElementsByName('signIn');//signIn cambialo por el nombre que tiene el boton
         LGN := Inputs.item(0, '') as IHTMLElement;
         if LGN <> nil then//si le encuentra le damos click y entramos.
              (LGN as IHTMLInputElement).form.submit;

[Neftali [Germán.Estévez]]

Muy buen ejemplo titomigue; Añadir sólo que hay que poner el MSHTML en el uses.

[kdemia]

Muchas gracias a los dos por el tiempo y las respuestas, lo probare y les comentare