主  题: 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 中将为每一个阻塞方式的连接自动分配一个新的线程,这样即使一个客户正在进行读写操作,其他的客户也不必等待。