[aleksnine]

Доброе время суток . Подскажите пожалуйста как можно передать файл от 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;

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

[Admin]

Сообщение от aleksnine

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

Тут есть пример http://www.delphisources.ru/_hidadmin/