Hello,
Please, show example how I can send xml file on server using THttpCli
(ICS) with using gzip compress (I want compress (gzip) send data).
Sorry, if my english is bad.
My code now:
function TrySendFile(const TryID : Integer; const Url, FileName :
String; const FileStream : TFileStream) : Boolean;
var
RStream : TMemoryStream;
begin
Result := False;
RStream := TMemoryStream.Create;
try
try
Application.ProcessMessages;
DM.HttpCli1.SendStream := FileStream;
DM.HttpCli1.SendStream.Seek(0, 0);
DM.HttpCli1.URL := Url;
DM.HttpCli1.RcvdStream := RStream;
DM.HttpCli1.Post;
DM.HttpCli1.Close;
...
thx.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
