Доброе время суток . Подскажите пожалуйста как можно передать файл от TIdTCPServer к TIdTCPClient ? Indy 10.6
Сервер
Код:
MemStream:=TFileStream.Create(filename, fmOpenRead or fmShareDenyNone);
AContext.Connection.Socket.WriteBufferOpen;
try
AContext.Connection.Socket.write(MemStream);
finally
AContext.Connection.Socket.WriteBufferclose;
end;
Клиент
Код:
MemStream := TFileStream.Create('D:\222\1.jpg', fmCreate);
try
form75.IdTCPClient1.Socket.ReadStream(MemStream);
finally
MemStream.Free;
end;
Не получается ничего (((