Delphi Socket 实现编程（6）

         TClientSocket和TServerSocket的数据通知使用了Windwos下的消息通知机制，造成它们只适合针对窗口的WinForm程序，因为可以得到窗口的Handle句柄，用来postmessage或者sendmessage，但对于Dll这样的不存在窗口的工程就不适应了，我做了测试：

      在DLL工程中引入TClientSocket，设置HostIP,HostPort后，Active后开始send数据，然后Active设置false关闭连接，但服务端没有收到数据，server端的ClientReadr事件不能被调用。

所以考虑一下还是用Windows的API来实现标准的Socket连接，结果通讯可以得到数据了。一下是实现代码，贴出来希望对做D7Socket的DLL需求的哥们有个帮助。

Server端代码：

{*************************************************
**uSocketFasca
@note:winsock 服务程序封装类

}

unit uSocketFasca;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, StdCtrls, WinSock,LoggerU;
   
//定义socket传输的数据结构
type
  PPACKDATA=^TPACKDATA;
  TPACKDATA=record
    cmd:string[20];
    data:string[254];
    id:LongInt;
  end;
 
//定义服务数据获取线程 
  TServerThread=class(TThread)
  private
     FSocket:Integer;
     g_preId:Integer;
  protected
     procedure Execute; override;
     procedure DecvDataLoop;
  public
     constructor Create(SockHd:Integer);
 end;
 
 //定义server启动线程
 TInvokerThread=class(TThread)
 private
   m_serversocket:Integer;
   m_clientsocket:Integer;
   m_serveraddr:sockaddr_in;
   Client_Addr: TSockAddr;
   ClientLen: Integer;
   FHostIp:string;
   FHostPort:Integer;
 protected
   procedure Execute;override;
    //初始化并启动服务
   procedure InitAndStartServerSocket;
   //释放WInSOck
   procedure WSACleanup();
   procedure InitLogger();
 public
   constructor Create(HostIp:string;HostPort:Integer);
 end;

 var
    FLogger:TLogger;
    
 implementation

 {TInvokerThread}
 procedure TInvokerThread.InitLogger();
 begin
      FLogger:=TLogger.GetLoggerInstance('uSocketFasca');
 end;

 //初始化并启动服务socket
 procedure TInvokerThread.InitAndStartServerSocket;
 var
   XL_WSADATA:TWSAData;
   Ret:Integer;
   threadFunc:TServerThread;
   tm : Longint;
 begin
   //init winsock 2.0 libaray
  Ret:=WSAStartup(MakeWord(2,2),XL