dllunit.pas

本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软件进行编译. 开发环境说明： delphi demo : delphi 6.0 vc de

unit dllUnit;

interface

uses PublicUnit;

  const dllname = 'wcomm_dll.dll';

  function get_max_user_amount(): Longword; stdcall;

  function start_gprs_server(
              hWnd: thandle;
              wMsg: LongWord;
              nServerPort: Integer;
              mess: TMess): integer; stdcall;
  function start_net_service(
              hWnd: thandle;
              wMsg: LongWord;
              nServerPort: Integer;
              mess: TMess): integer; stdcall;

  function stop_gprs_server(mess: TMess): integer; stdcall;
  function stop_net_service(mess: TMess): integer; stdcall;

  function do_read_proc(
              var recdPtr: TData_Record;
              mess: TMess;
              reply: Boolean): integer; stdcall;

  function do_send_user_data(
              userid: PChar;
              data: TUserData;
              len: Longword;
              mess: TMess): integer; stdcall;

  function SetWorkMode(nWorkMode: Integer): integer; stdcall;

  procedure ClearParam(); stdcall;

  function SetParam(
              nParamType: Integer;
              cpValue: PChar;
              nParamLenth: Integer;
              var iErrorCode: Integer): integer; stdcall;

  function DoUpdateParam(
              const destIP: Longword;
              const destPort: Word;
              m_userid: PChar): integer; stdcall;

  function do_update_param(
              m_userid: PChar;
              mess: PChar): integer; stdcall;

  function DoReadParam(
              const destIP: Longword;
              const destPort: Word;
              m_userid: PChar): integer; stdcall;

  function do_read_param(
              m_userid: PChar;
              qtype: byte;
              mess: PChar): integer; stdcall;

  function GetParam(
              nParamType: Integer;
              cpValue: PChar;
              var nParamLenth: Integer): integer; stdcall;

{  function CombinSerialParam(
              cpSerialParam: PChar;
              splen: Integer;
							nBaudrate: Longword;
              nDatabit, nStopbit, nParitybit, nFlowcontrol: Byte): integer; stdcall;

  function SeparateSerialParam(
              cpSerialParam: PChar;
              splen: Integer;
							var nBaudrate: Longword;
              var nDatabit, nStopbit, nParitybit, nFlowcontrol: Byte): integer; stdcall;}

  function get_user_info(
              userid: PChar;
              var infoPtr: TUser_Info): integer; stdcall;

  function function_do_close_one_user(userid: PChar; mess: PChar):Integer;stdcall;

implementation

  function get_max_user_amount(): Longword;
              external dllname name 'get_max_user_amount';

  function start_gprs_server(
              hWnd: thandle;
              wMsg: LongWord;
              nServerPort: Integer;
              mess: TMess): integer;
              external dllname name 'start_gprs_server';
  function start_net_service(
              hWnd: thandle;
              wMsg: LongWord;
              nServerPort: Integer;
              mess: TMess): integer;
              external dllname name 'start_net_service';

  function stop_gprs_server(mess: TMess): integer;
              external dllname name 'stop_gprs_server';
  function stop_net_service(mess: TMess): integer;
              external dllname name 'stop_net_service';

  function do_read_proc(
              var recdPtr: TData_Record;
              mess: TMess;
              reply: Boolean): integer;
              external dllname name 'do_read_proc';

  function do_send_user_data(
              userid: PChar;
              data: TUserData;
              len: Longword;
              mess: TMess): integer;
              external dllname name 'do_send_user_data';

  function SetWorkMode(nWorkMode: Integer): integer;
              external dllname name 'SetWorkMode';

  procedure ClearParam(); external dllname name 'ClearParam';

  function SetParam(
              nParamType: Integer;
              cpValue: PChar;
              nParamLenth: Integer;
              var iErrorCode: Integer): integer;
              external dllname name 'SetParam';

  function DoUpdateParam(
              const destIP: Longword;
              const destPort: Word;
              m_userid: PChar): integer;
              external dllname name 'DoUpdateParam';

  function do_update_param(
              m_userid: PChar;
              mess: PChar): integer;
              external dllname name 'do_update_param';

  function DoReadParam(
              const destIP: Longword;
              const destPort: Word;
              m_userid: PChar): integer;
              external dllname name 'DoReadParam';

  function do_read_param(
              m_userid: PChar;
              qtype: byte;
              mess: PChar): integer;
              external dllname name 'do_read_param';

  function GetParam(
              nParamType: Integer;
              cpValue: PChar;
              var nParamLenth: Integer): integer;
              external dllname name 'GetParam';
{
  function CombinSerialParam(
              cpSerialParam: PChar;
              splen: Integer;
							nBaudrate: Longword;
              nDatabit, nStopbit, nParitybit, nFlowcontrol: Byte): integer;
              external dllname name 'CombinSerialParam';

  function SeparateSerialParam(
              cpSerialParam: PChar;
              splen: Integer;
							var nBaudrate: Longword;
              var nDatabit, nStopbit, nParitybit, nFlowcontrol: Byte): integer;
              external dllname name 'SeparateSerialParam';}

  function get_user_info(
              userid: PChar;
              var infoPtr: TUser_Info): integer; stdcall;
              external dllname name 'get_user_info';

  function function_do_close_one_user;external dllname name 'do_close_one_user2';
end.