screenapi.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit ScreenAPI;

interface

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 : 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: 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.