异步Select模型的通讯组件

采用Windows的异步Select模型，消息采用异步通知模式，针对构建通讯的客户端适用。http://dl2.csdn.net/down4/20070706/06090940112.dll

调用前需要注册回调函数，分别为消息回调和协议回调，原形：

Type
  //消息事件的CALLBACK
  TMsgCallBack=Procedure (msg:Pchar) of object;
  //网络事件的CALLBACK
  TNetCallBack=Procedure (NetStatus:integer) of object;

引用动态库导出的函数：

function gcInitSys(NetBack:TNetCallBack;MsgBack:TMsgCallBack):Boolean;external 'ntCommComp.dll';
procedure gcFreeSys;external 'ntCommComp.dll';
procedure gcConnServer(Server:PChar;Port:integer;ProxyType:integer;PoryxyServer:PChar;ProxyPort:integer;ProxyUsername:PChar;PorxyPassword:PChar);external 'ntCommComp.dll';
procedure gcDisConnServer;external 'ntCommComp.dll';

procedure gcSendMsg(MsgType:integer;Content:PChar;GroupID:integer;ObjUsername:PChar);external 'ntCommComp.dll';

 

调用步骤：

1、gcInitSys(NetBack,MsgBack)

2、在回调中即可收到DLL返回的消息

3、注销的时候请调用gcFreeSys

消息发送请调用gcSendMsg