Kazantsev Alexey wrote:
> On Thu, 17 Jan 2008 08:25:02 +0400, Arthur Pires <[EMAIL PROTECTED]>  
> wrote:
>
>   
>> 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
>>     
>
> HTTP.Protocol := '1.1'; ?
>
>   
function HttpPostText(const URL: string; const Response: TStrings): Boolean;
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  HTTP.Protocol := '1.1';
  HTTP.MimeType := 'application/x-www-form-urlencoded';
  try
    Result := HTTP.HTTPMethod('POST', URL);
    if Result then
      Response.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

same error =(

-------------------------------------------------------------------------
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

Reply via email to