unit2.pas

来自「停车场收费系统停车场收费系统停车场收费系统停车场收费系统」· PAS 代码 · 共 40 行

unit Unit2;

interface

function  gOpenCom(nPort : shortint;pchErrMsg : string): shortint;stdcall;external 'zt314dll.dll';
function  gCloseCom(pchErrMsg : string): shortint;stdcall;external 'zt314dll.dll';

//function  gOpenCom(nPort : shortint;pchErrMsg : PChar): shortint;stdcall;external 'zt314dll.dll';
//function  gCloseCom(pchErrMsg : PChar): shortint;stdcall;external 'zt314dll.dll';

procedure  gSetTimeOut(TimeOut : shortint)stdcall;external 'zt314dll.dll';
function   gSet_Overlay(pchErrMsg : string): shortint;stdcall;external 'zt314dll.dll';
function   gSet_ApeakWrite(pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function   gSet_PlaneWrite(pchErrMsg : string ): shortint;stdcall;external 'zt314dll.dll';

function   gSend_ShowString(pchString :string ;pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
//function   gSend_ShowString(pchString : PChar ;pchErrMsg:PChar): shortint;stdcall;external 'zt314dll.dll';

function   gSend_StateShowWord( pchString:string; pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function   gClear_String( pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function   gSetOrCancel_Cursor( n:shortint; pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function   gCursor_TurnLeft( pchErrMsg :string): shortint;stdcall;external 'zt314dll.dll';
function   gCursor_TurnRight(pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function  gCursor_TurnTop( pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function  gCursor_TurnLeftEnd( pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function  gCursor_TurnRightEnd(  pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function  gCursor_TurnBottomEnd(  pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';
function  gCursor_TurnToXY( x, y : shortint;  pchErrMsg:string): shortint;stdcall;external 'zt314dll.dll';

function  gCursor_InitScreen(  pchErrMsg :string): shortint;stdcall;external 'zt314dll.dll';
//function  gCursor_InitScreen(pchErrMsg: PChar): shortint;stdcall;external 'zt314dll.dll';

function  gSetOrCancel_Point(  n,  m:shortint; pchErrMsg :string): shortint;stdcall;external 'zt314dll.dll';
function  gSetOrCance_ShowWindow( x1, x2, y : shortint;pchErrMsg : string): shortint;stdcall;external 'zt314dll.dll';
function  gSetOrCancel_StateWord( n, m : shortint; pchErrMsg : string): shortint;stdcall;external 'zt314dll.dll';

implementation

end.