[TidTCPServer] [TidTCPClient] Как отправить файл с сервера на клиент используя Indy10 и получить файл на стороне клиента?

[Martifan]

Доброго времени суток. 

Подскажите пожалуйста, как отправить файл с сервера на клиент используя Indy10 tcpClient/Server и как получить отправленный файл на стороне клиента. (Рассматривается вариант и по UDP).

Заранее спасибо.

[xenon54]

Отправка: 

  var
    len : integer;
  begin
    Context.Connection.IOHandler.WriteBufferOpen;
    Context.Connection.IOHandler.Write(len);
    Context.Connection.IOHandler.WriteFile(AFileName);
    Context.Connection.IOHandler.WriteBufferFlush;
    Context.Connection.IOHandler.WriteBufferClose;

Прием ( Тут на клиентской стороне должен быть метод, который по таймеру смотрит есть ли данные на входном буффере ):

  var
    sz : integer;
    FS : TMemoryStream;
  begin
    if FIdTCPClient.IOHandler.InputBufferIsEmpty then exit;

    sz := FIdTCPClient.IOHandler.InputBuffer.Size;
    if sz <= 0 then exit;

    FS := TMemoryStream.Create;
    FIdTCPClient.IOHandler.ReadStream(FS,sz);

Изменено 16 апреля, 2015 пользователем xenon54

[Martifan]

Большое спасибо. А не подскажете как вместо файла отправить поток TIdBytes

Изменено 16 апреля, 2015 пользователем Brovin Yaroslav

[xenon54]

На самом деле эта тема не имеет никакого отношения к FM, а примеров того о чем вы спрашиваете тысячи на просторах  интернета, не поленитесь и погуглите.

[Martifan]

В интернете смотрел, есть примеры, но нет рабочих. Я открыл тему в группе Indy и я подумал что тут обсуждается компонент Indy

Изменено 16 апреля, 2015 пользователем Brovin Yaroslav

[Brovin Yaroslav]

Тема закрыта, так как на форуме есть правило. Одна тема - один вопрос. Создайте отдельную тему с вопросом про отправку TIdBytes