开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
EdSockServerApi.pas
资源名称：DelphiDllDemo.rar　[点击查看]
上传用户：anlu_slm
上传日期：2022-07-30
资源大小：283k
文件大小：5k
源码类别：

Delphi控件源码

开发平台：

Delphi

EdSockServerApi.pas：源码内容
  1. unit EdSockServerApi;
  3. //**********************************************************
  4. //深圳市东方数码技术有限公司
  5. //曾伟才
  6. //2004年11月9日
  7. //**********************************************************
  9. interface
  11. uses
  12.   Windows;
  14. const
  15.   //数据错误
  16.   EDDATAERROR = 1000;
  17.   //模块缓冲区溢出
  18.   EDBUFOVERFLOW = 1001;
  19.   //电脑接收缓冲区溢出，用于阻塞接收调用
  20.   EDRECVBUFOVERFLOW = 1002; 
  22. type
  23.   TOnAccept = procedure (ConnectID: Longint); stdcall;
  24.   TOnConnectClose = procedure (ConnectID: Longint); stdcall;
  25.   TOnError = procedure (SocketID: Longint; ErrorCode: Longint); stdcall;
  26.   TOnReceConfigData = procedure (ConnectID: Longint; pDataBuf: PByte; DataLength: Longint); stdcall;
  27.   TOnReceFromCOM = procedure (ConnectID: Longint; COMNum: Longint; pDataBuf: PByte; DataLength: Longint); stdcall;
  28.   TOnSwitchChange = procedure (ConnectID: Longint; PortNum: Longint; Value: Longint); stdcall;
  30. //附加
  31. function mac_ntoa(mac: PByte; maclen: Integer; strmac: PByte; strlen: Integer): Integer; stdcall;
  32. function net_ntoa(ipAddr: ULONG; str: PByte; strlen: Integer): Integer; stdcall;
  34. function GetLocalIP(ConnectID: Longint): ULONG; stdcall;
  35. function GetLocalPort(ConnectID: Longint): Longint; stdcall;
  36. function StartListen(LocalIP: LPCTSTR; LocalPort: Longint): BOOL; stdcall;
  37. function StopListen(): BOOL; stdcall;
  38. function CloseConnect(ConnectID: Longint): BOOL; stdcall;
  39. function GetError(SocketID: Longint): Longint; stdcall;
  40. function GetPeerIP(ConnectID: Longint): ULONG; stdcall;
  41. function GetPeerPort(ConnectID: Longint): Longint; stdcall;
  42. function OpenConnect(PeerIP: LPCTSTR; PeerPort: Longint; LocalIP: LPCTSTR; LocalPort: Longint): BOOL; stdcall;
  43. function GetMAC(ConnectID: Longint; lpMac: PByte; maclen: Integer): Integer; stdcall;
  44. function GetSwitchDirection(ConnectID: Longint; PortNum: Longint): Longint; stdcall;
  45. function SendToCOM(ConnectID: Longint; COMNum: Longint; pDataBuf: PByte; DataLength: Longint): BOOL; stdcall;
  46. function SetSwitchValue(ConnectID: Longint; PortNum: Longint; Value: Longint): BOOL; stdcall;
  47. function RequestConfigData(ConnectID: Longint): BOOL; stdcall;
  48. function SetConfigData(ConnectID: Longint; pDataBuf: pByte; DataLength: Longint): BOOL; stdcall;
  49. function GetSwitchValue(ConnectID: Longint; PortNum: Longint): Longint; stdcall;
  50. function ResetBoard(ConnectID: Longint): Longint; stdcall;
  51. function GetModel(ConnectID: Longint): Smallint; stdcall;
  52. function SetCOMPara(ConnectID: Longint; COMNum: Longint; pDataBuf: pByte; DataLength: Longint): BOOL; stdcall;
  53. function IsSocket(): BOOL; stdcall;
  54. function IsNoDelay(): BOOL; stdcall;
  55. function SetSocket(IsSocketValue: BOOL): BOOL; stdcall;
  56. function SetNoDelay(IsNoDelayValue: BOOL): BOOL; stdcall;
  57. function SetCallback(lpOnAccept: TOnAccept; lpOnConnectClose: TOnConnectClose; lpOnError:
  58.   TOnError; lpOnReceConfigData: TOnReceConfigData; lpOnReceFromCOM: TOnReceFromCOM;
  59.   lpOnSwitchChange: TOnSwitchChange): BOOL; stdcall;
  60. function CloseAllConnect(): BOOL; stdcall;
  61. function SetConnectOpt(ConnectID: Longint; level: Integer; optname: Integer;
  62.   optval: PChar; optlen: Integer): BOOL; stdcall;
  63. function GetCOM(ConnectID: Longint): Integer; stdcall;
  64. function ReceiveData(ConnectID: Longint; pDataBuf: PByte; BufLen: Longint; dwWait: DWORD): Longint; stdcall;
  66. const
  67.   EdSockServer = 'EdSockServer.dll';
  68.   
  69. implementation
  70. function mac_ntoa; external EdSockServer name 'mac_ntoa';
  71. function net_ntoa; external EdSockServer name 'net_ntoa';
  72. function GetLocalIP; external EdSockServer name 'GetLocalIP';
  73. function GetLocalPort; external EdSockServer name 'GetLocalPort';
  74. function StartListen; external EdSockServer name 'StartListen';
  75. function StopListen; external EdSockServer name 'StopListen';
  76. function CloseConnect; external EdSockServer name 'CloseConnect';
  77. function GetError; external EdSockServer name 'GetError';
  78. function GetPeerIP; external EdSockServer name 'GetPeerIP';
  79. function GetPeerPort; external EdSockServer name 'GetPeerPort';
  80. function OpenConnect; external EdSockServer name 'OpenConnect';
  81. function GetMAC; external EdSockServer name 'GetMAC';
  82. function GetSwitchDirection; external EdSockServer name 'GetSwitchDirection';
  83. function SendToCOM; external EdSockServer name 'SendToCOM';
  84. function SetSwitchValue; external EdSockServer name 'SetSwitchValue';
  85. function RequestConfigData; external EdSockServer name 'RequestConfigData';
  86. function SetConfigData; external EdSockServer name 'SetConfigData';
  87. function GetSwitchValue; external EdSockServer name 'GetSwitchValue';
  88. function ResetBoard; external EdSockServer name 'ResetBoard';
  89. function GetModel; external EdSockServer name 'GetModel';
  90. function SetCOMPara; external EdSockServer name 'SetCOMPara';
  91. function IsSocket; external EdSockServer name 'IsSocket';
  92. function IsNoDelay; external EdSockServer name 'IsNoDelay';
  93. function SetSocket; external EdSockServer name 'SetSocket';
  94. function SetNoDelay; external EdSockServer name 'SetNoDelay';
  95. function SetCallback; external EdSockServer name 'SetCallback';
  96. function CloseAllConnect; external EdSockServer name 'CloseAllConnect';
  97. function SetConnectOpt; external EdSockServer name 'SetConnectOpt';
  98. function GetCOM; external EdSockServer name 'GetCOM';
  99. function ReceiveData; external EdSockServer name 'ReceiveData';
  101. end.