Ver Mensaje Individual
  #5  
Antiguo 08-07-2010
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
ok... encontré el archivo y ahi te lo paso...

No recuerdo quien es el autor pero estaba en los trucos (lastima esté deshabilitada la seccion) pero si te digo que me funcionaba muy bien.

Incluyes la unidad en los uses...

Código Delphi [-]
uses
  ... UTHttpRequest ...

y luego puedes usarla con una función así:

Código Delphi [-]
function GetContent(URLServer, URLResource, URLVars : String; URLVarsSeparator : Char = ',') : TStringList;
var HTTPRequest : THttpRequest;
    HTTPFormFields, ResultStringList : TStringList;
    Stream : TMemoryStream;
begin
  HTTPRequest := THttpRequest.Create;
  Stream := TMemoryStream.Create;
  HTTPFormFields := TStringList.Create;
  ResultStringList := TStringList.Create;
  try

    //Variables URL.
    HTTPFormFields.Delimiter := URLVarsSeparator;
    HTTPFormFields.Text := URLVars;

    //Accion en Internet. (Aqui puedes manejar el post en lugar del get)
    HTTPRequest.Get(URLServer+URLResource, Stream, HTTPFormFields);

    //Manejar el resultado.
    Stream.Position := 0;
    ResultStringList.Clear;
    ResultStringList.LoadFromStream(Stream);

  finally
    HTTPRequest.Free;
    Stream.Free;
    HTTPFormFields.Free;
  end;

  Result := ResultStringList;
end;

Espero que halla sido de ayuda.

saludos.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com

Última edición por movorack fecha: 24-07-2017 a las 16:52:39.
Responder Con Cita