3 respuestas en este tema

[pcicom]

Como extraer informacino de un SITIO que requere autenticacion

Es decir..

Existen paginas web que requieres pongas tu user y pass, para accesar al sitio..
una vez dentro puedes accesar a paginas que no serian posibles sin haberse autenticado..

Como podria con DELPHI automatizar el entrar y descargar informacion de siertas paginas..

Por ahi creo que ya alguien lo habia hecho...

Mi idea es crear un ROBOT que automatice las DESCARGAS de INFORMACION de un SITIO WEB..

SALUDOS..

[poliburro]

Como extraer informacino de un SITIO que requere autenticacion

Es decir..

Existen paginas web que requieres pongas tu user y pass, para accesar al sitio..
una vez dentro puedes accesar a paginas que no serian posibles sin haberse autenticado..

Como podria con DELPHI automatizar el entrar y descargar informacion de siertas paginas..

Por ahi creo que ya alguien lo habia hecho...

Mi idea es crear un ROBOT que automatice las DESCARGAS de INFORMACION de un SITIO WEB..

SALUDOS..

Saludos amigo, solo una pregunta. La autenticación que hace el sitio es a través de una página o mediante la ventana de autenticación que solicita el navegador?.

[pcicom]

Saludos POLIBURRO..

Ya lo Solucione USANDO TWebBrowser y una FUNCION de llenado de campos de la PAGINA, una vez dentro acceso al sitio de los datos que requiero y los extraigo del codigo HTML de la pagina.

delphi

Function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //Busca FORM en la PAGINA WEB Si No Lo ENCUENTRA es porque no tiene llenado de DATOS
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //Cuenta la cantidad de FORM en la PAGINA WEB
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //Si encuentra el CAMPO que quiero, lo LLENA con los datos que indico
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit; 
      end;
    end;
  end;
end;

[enecumene]

Gracias por darnos el resultado a tu problema amigo pcicom, por el momento pondré el tema cono resuelto.

Saludos.