读Delphi封装的 WinSock

 

 

  winsocket = 'wsock32.dll';

 

 

 

wsock32 - wsock32.dll - DLL文件信息
　　DLL 文件： wsock32 或者 wsock32.dll
　　DLL 名称： WinSock API Library
　　描述：
　　wsock32.dll是Windows Sockets应用程序接口，用于支持很多Internet和网络应用程序。
　　属于： Windows Sockets
　　系统 DLL文件： 是
-------------------------------------------------------------------------

  if WSAStartup($0101, aWSAData) <> 0 then    //--WSAStartup方法，必须通过了才能使用winsock api
    raise Exception.Create('不能启动WinSock动态链接库！');
  MessageBox(Handle, aWSAData.szDescription, 'WinSock 态链接库版本', MB_OK);

 

//--TWSAData的结构
type
  PWSAData = ^TWSAData;
  {$EXTERNALSYM WSAData}
  WSAData = record // !!! also WSDATA
    wVersion: Word;
    wHighVersion: Word;
    szDescription: array[0..WSADESCRIPTION_LEN] of Char;
    szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
    iMaxSockets: Word;
    iMaxUdpDg: Word;
    lpVendorInfo: PChar;
  end;
  TWSAData = WSAData;