有在TCustomWinSocket中的SendStream函数的问题

Question

在EXAMPLES目录-INTERNET目录-CHAT目录下有一个例子。我就是看着例子学会的。

Answer 1

关于Chat的例子我看了许多遍，但还是不明白处理关于流的接收问题。请问Windindance(凤之舞)能不能说详细一点呢？

Answer 2

Tstream包括TFileStream，TStringStream，TMemoryStream ，TBlobStream ，WinSocketStream ，TOleStream 你可以用ServerSocket1.ReceiveText收取。

Answer 3

ReceiveText函数返回的是字符串，而我操作的是二进制文件啊。对于二进制文件怎样操作呢？

Answer 4

var fs:TFileStream ;fs.Create("file",fmOpenRead);
//这儿可以发送流
...
fs.free;
//发送用ServerSocket1.SendBuf
//接收用ServerSocket1.ReceiveBuf

Answer 5

OnClientRead事件中收取是对的，不过，此事件会反复触发。你应该先传回流的大小。在CLIENT端再判断此值，再行接受。至于接受，应该新建一个TMEMORYSTREAM，定一个缓冲区， buffer
:array [1..1024] of char 反复用BUFFER内容写次流即可。