Когда отправляю tStream, теряю 4 байта.

[Altera]

Привет всем! У меня опять проблемы с tStream;

Короче делю так:

Слиент:

procedure TS.send_btnClick(Sender: TObject);
var
s: tfileStream;
begin
   s := tFileStream.Create('d:\file.tmp', fmOpenRead);

   client.IOHandler.Write(s); {client: tIdTCPClient     (indy10)}

   log.Items.Add('Client: '+mes+'   '+intToStr(s.Size)+' Bytes');

   s.Free;
end;

Сервер: (tIdTCPServer)

...
s := tFileStream.Create('d:\Newfile.tmp', fmCreate);
...

procedure TsMain_form.serverExecute(AContext: TIdContext);
begin
   aContext.Connection.IOHandler.ReadStream(s);
end;

...
s.free
...

Дело в том, что первые 4 байта почему-то теряются
Помогите, чем можете...

[Квэнди]

разреши Indy Отправлять размер потока

procedure Write(
AStream: TIdStream,
ASize: Int64 = 0,
AWriteByteCount: Boolean = False
); virtual; overload;
Parameters
Parameters Description
AStream Stream with content to write to the IOHandler.
ASize Number of bytes from the stream to write to the IOHandler. Default value is 0.
AWriteByteCount Indicates if the bytecount for the operation is written to the IOHandler. Default value is False

[Altera]

Да, заработало! Спасибо Квэнди!

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

[Квэнди]

ASize Number of bytes from the stream to write to the IOHandler. Default value is 0.

это из справки
Asize кол-во байт из потока для записи в IOHandler. Значение по умолчанию-0