Пишу две программы, клиент и сервер, для обмена файлами через протокол HTTP, использую idhttp и idhttpserver indy9.
Проблема возникает при передаче файла от клиента к серверу (разрывает связь и файл не создает)

P.S. Подскажыте в чем ошибка.

использую следующий код:

сервер
procedure TfmHTTPServerMain.HTTPServerCreatePostStream(
 ASender: TIdPeerThread; var VPostStream: TStream);

var t:tmemorystream;

begin

t:=tmemorystream.create;

t.LoadFromStream(vpoststream);

t.SaveToFile('c:\ggg.jjj');

end;

клиент
procedure TForm1.Button2Click(Sender: TObject);

var a : TIdMultiPartFormDataStream;

begin
 
 a := TIdMultiPartFormDataStream.Create;
 
 a.AddFile('files', 'C:\1.txt', 'multipart/form-data');

 idHTTP1.Post('http://10.4.0.70', a);

 a.Free;

end;

> [0] kolj   (08.07.08 14:38)

подозреваю, что в var VPostStream: TStream надо передавать файловый поток, в который уже Indy самостоятельно будет писать данные, по мере их поступления.