delphi開發小白盒介面實現掃碼控制

2021-10-01 19:40:09 字數 2145 閱讀 6211

unit inspos_func;


inte***ce


uses


windows, messages, sysutils, registry, variants;


type    //一是注意定義位置;


paipai_ini_param = record


ver: integer;       //引數結構體版本號，當前為1


sptoken: string;


devlock: integer;     //裝置防切機，0： 不防切機，1：防切機；需和使用的盒子匹配，目前只支援防切機


clientshowfun: integer;  	//客顯擷取支援


configui: integer;        //支援配置介面


useprinter: integer;      //控制印表機


configinfo: string;       //json格式的配置資訊，utf-8


extentinfo: string;


end;


paipai_scene = record


name: string;


statecount: integer;


end;


paipai_decode_result = record


data: pchar;


cd: integer;


end;


paipai_scene_list = record


scenecount: integer;


scenearray: pchar;


end;


paipai_event = (box_connected = 1,			//inspos小盒已連線


box_disconnected,			//inspos小盒斷開連線


decode_success,				//得到掃碼結果


token_invalid,				//服務商token無效


token_valid,				//初始化裝置未連線的情況，儲存配置的token，裝置連線後，校驗token有效後，傳送該訊息。


event_size);


ppret = (pp_no_error = 0,   // no errors.


pp_error, pp_not_supported, pp_api_uninit, pp_version_error, pp_not_find);


tppcallback = function(evt: paipai_event; decode: pchar): integer; cdecl ;


function initialpaipai(hwnd: pchar; strpath: pchar; iniparam: pchar): ppret; cdecl; far; external


'libapi.dll' name 'initialpaipai';


function getapiversion(): pchar; cdecl; far; external 'libapi.dll' name 'getapiversion';


function setscenestate(state: integer): ppret; cdecl; far; external 'libapi.dll' name 'setscenestate';


function configsptoken(token: pchar): ppret; cdecl; far; external 'libapi.dll' name 'configsptoken';


function setscaninterval(milliseconds: integer): ppret; cdecl; far; external 'libapi.dll' name


'setscaninterval';


function getscenelist(): pchar; cdecl; far; external 'libapi.dll' name 'getscenelist';


function addeventcallback(cl: tppcallback): ppret; cdecl; far; external 'libapi.dll' name


'addeventcallback';


implementation


end.

delphi中IDispath介面的實現類

delphi中idispath介面的實現類，由oleauto單元的tautoobject類進行了主要實現 實際是進行了乙個轉接實現tautoobject並沒繼承idispatch介面，而是裡面的乙個成員變數繼承了乙個idispatch介面 物件的 vmtautotable 68 位置儲存了auto表...

Python AutoIt實現介面工具開發

前言 不同於linux伺服器上的命令列操作，在windows系統上使用者的使用習慣還是傾向於使用有介面的工具。如果工具是命令列互動操作的方式，可能是有悖於在windows上使用的操作習慣，往往不容易推廣使用。由於需要維護測試部工具的原因，其中有乙個工具是用autoit語言實現的，利用幾天時間把工具原...

app介面開發之php實現

介紹完了工作流程之後，再來說一下介面要完成的事情。在這裡有三個概念需要我們注意 我在後台寫了乙個叫request.php的介面檔案 class request result array code code,message message,data data echo json encode resu...