| 主 题： | Socket.SendBuf带来的问题，已解决，高兴散分 | |
| 作 者： | cqzyf (阿牛) | |
| 等 级： |  | |
| 信 誉 值： | 99 | |
| 所属社区： | Delphi 网络编程/分布式开发 | |
| 问题点数： | 200 | |
| 回复次数： | 24 | |
| 发表时间： | 2004-07-01 22:01:17 |
偶这几天编一个点对点的传输程序，一个服务端，很多客户端，之间传输大量的图像数据，本来写好后感觉没有问题，可是测试的时候，总是报一些乱七八遭的错误，
最后发现一个小问题，在这里说出来，希望对用sock传输的哥们有点帮助：
Socket.SendBuf(SendBuf^, li_ESendSize)，sendbuf是我定义的指针，在发出这个
命令后，不能立即FreeMem(sendbuf)释放sendbuf，因为这时有可能还没有将所有内容发出去，所以如果要将内存块发送出去，最好是将buf定义为公共变量，分配好内存，在sock的read事件中对用buf读要发送的内容，在sendbuf发送，等到程序退出时再去释放buf
我以前的程序
...
GetMem(SendBuf, li_ESendSize);
PRFS_SendFile.ReadBuffer(SendBuf^, li_ESendSize);
Socket.SendBuf(SendBuf^, li_ESendSize);
FreeMem(ls_SendBuf);
...
改后为
PRFS_SendFile.ReadBuffer(SendBuf^, li_ESendSize);
Socket.SendBuf(SendBuf^, li_ESendSize);
将getmem放在了窗体打开的事件中
FreeMem(ls_SendBuf)放在close事件中。
什么是非阻塞方式?
一旦服务器与客户端建立了连接之后，就可以通过 Internet 传输数据和文件。但是在WinSock中存在两种传输模式“阻塞”和“非阻塞”的概念。
一般都采用非阻塞方式。在客户端，如果把 ClientType特性设置为ctNonBlocking,表示采用非阻塞方式进行连接。当服务器端 Socket试图进行读/写操作的时候，客户端 Socket就会得到通知，即OnRead或者OnWrite事件。
对于服务器端Socket来说，如果把ServerType特性设置为 StNonBlocking，表示采取非阻塞方式进行连接。当客户端 Socket试图进行读/写的时候，服务器端Socket就会得到通知，即OnClientRead或者OnClientWrite事件。
与非阻塞方式不同的是，在阻塞方式下没有诸如OnRead或者OnWrite等异步事件。Socket必须主动去读或者写数据。在读写操作完成之前，其他代码都无法执行，成为了纯粹的独占使用方式，整个应用程序将处于等待状态，大大降低应用程序的性能。
对于客户端Socket来说，如果把 ClientType特性设置为ctBlocking，表示采取阻塞方式进行连接，为了尽可能的减少阻塞方式的负面影响,可以把所有涉及到读写的操作放在一个单独的线程中，这样可以使其他的线程可以继续得到执行。
对于服务器端 Socket来说，如果把ServerType设置为stThreadBlocking，表示采取阻塞方式进行连接。Delphi 中将为每一个阻塞方式的连接自动分配一个新的线程，这样即使一个客户正在进行读写操作，其他的客户也不必等待。