[RESUELTO] Como extraer informacino de un SITIO que requere autenticacion
#1
Posted 27 January 2010 - 10:45 AM
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..
#2
Posted 27 January 2010 - 11:05 AM
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?.
#3
Posted 27 January 2010 - 02:21 PM
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.
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;
#4
Posted 27 January 2010 - 03:38 PM
Saludos.