[aleksnine]

Доброе время суток . Подскажите пожалуйста как можно передать файл от TIdTCPServer к TIdTCPClient ? Indy 10.6


Сервер

Код:

1 2 3 4 5 6 7

MemStream:=TFileStream.Create(filename, fmOpenRead or fmShareDenyNone); AContext.Connection.Socket.WriteBufferOpen; try AContext.Connection.Socket.write(MemStream); finally AContext.Connection.Socket.WriteBufferclose; end;

Клиент

Код:

1 2 3 4 5 6

MemStream := TFileStream.Create('D:\222\1.jpg', fmCreate);  try form75.IdTCPClient1.Socket.ReadStream(MemStream);  finally MemStream.Free;  end;

Не получается ничего (((