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
HTTPFormFields.Delimiter := URLVarsSeparator;
HTTPFormFields.Text := URLVars;
HTTPRequest.Get(URLServer+URLResource, Stream, HTTPFormFields);
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.