|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TIdTCPServer отправить файл
Доброе время суток . Подскажите пожалуйста как можно передать файл от 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; Не получается ничего ((( |
#2
|
||||
|
||||
Цитата:
Тут есть пример http://www.delphisources.ru/_hidadmin/ |