问题二!!!
在Delphi 6中如何使用ThreadBlocking模式下的TTcpServer,我在OnGetThread中写入如下的代码:
ClientSocketThread := TSGIPServerSocketThread.Create( Oracle, Server.ServerSocketThread, Log, DBWriter );
ClientSocketThread.Resume;
发现不正确!!!
TSGIPServerSocketThread是从TClietnScoketThread派生的,关键问题出现在第二个参数Server.ServerSocketThread,Server是TTcpServer对象!!!
以前使用TServerSocket也是这样写的,从来都没有发生过问题,但是TServerSocket是平台相关的,TTcpServer是跨平台的,并且Borland提供的TTcpServer的帮补太差了,所以一直内有研究出来,特请高手指点!!!