本文整理自网络，侵删。
WriteStream（）有四个参数，第一个参数为数据流，第二个参数为boolean型，true代表从流的开始位置开始传输，而false代表从流的当前位置传输，默认为true。第三个参数也是boolean型，true代表标出传输的流的大小，而false为否。第四个参数为流的字节数大小。
而ReadStream（）有三个参数，第一个为数据流，第二个为数据大小，-1代表全部。第三个参数true表示只有在客户端disconnect后才能接到数据，而false表示客户端不必断开就可以接收到数据。你的问题就在这。
1：
客户端：
try
begin
OpenWriteBuffer;
WriteStream(OutputStream);
CloseWriteBuffer;
finally
disconnect;
end;
服务端：
ReadStream(InputStream,-1,true);
2：
客户端：
OpenWriteBuffer;
WriteStream(OutputStream,true,true,outputstream.size);
CloseWriteBuffer;
服务端：
ReadStream(InputStream,athread.connection.readinteger,false);
其中athread.connection.readinteger存的是流的字节数大小。
相关阅读 >>
Delphi用idtcpserver和idtcpclient传输文件
Delphi getmimetypefromfile 获取文件mime类型
更多相关阅读请进入《Delphi》频道 >>
