I call the function
url := AnsiToUtf8(Format(scroburl + scroburlparam, [user, md5response,
artist, track, '' {album}, 240, moment]));
HttpPostText(url,sl);
*
The function:*
/function HttpPostText(const URL: string; const Response: TStrings):
Boolean;
var
HTTP: THTTPSend;
begin
HTTP := THTTPSend.Create;
HTTP.MimeType := 'application/x-www-form-urlencoded';
try
Result := HTTP.HTTPMethod('POST', URL);
ShowMessage(HTTP.ResultString);
if Result then
Response.LoadFromStream(HTTP.Document);
finally
HTTP.Free;
end;
end;
/The Http.Document is aways empty, im sure that url and parameters are
right (i tested with another library), any idea?
ps:
resultcode is 505
and resultstring is 'HTTP Version Not Supported'
copy of the image of debug inspector
http://img206.imageshack.us/img206/5335/clipboard01nu0.jpg
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
