On Thu, 17 Jan 2008 11:09:24 +0400, Arthur Pires <[EMAIL PROTECTED]>
wrote:
> 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 =(
In that case use sniffer (or HTTP.Sock.OnMonitor event)
--
Kazantsev Alexey
-------------------------------------------------------------------------
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
