Ver Mensaje Individual
  #4  
Antiguo 19-03-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Con el componente que has mencionado lo ignoro (aunque debe ser muy similar a lo que ahora diré) pero con el componente IdHttp de los Indy la cosa podría quedar, a modo de ejemplo, más o menos así:

Código Delphi [-]
var
  sDestino: TStringStream;
begin
  sDestino := TStringStream.Create('');
  try
    IdHTTP.HandleRedirects := true;
    IdHTTP.Get('http://www.google.com/', sDestino);
    if (IdHTTP.ResponseCode = 200) then
      ShowMessage(sDestino.DataString)
    else
      ShowMessage('HTTP Response: '+IntToStr(IdHTTP.ResponseCode));
  finally
    sDestino.Free;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita