gtfunc.pas

fbkldfmlb n/ovk,e vml bhdsrb mor brb n/sZPer b vk,epabho,l rnopazbhlrepofrt,epsho

unit GTFunc;

interface

  const  GTDll = 'GTDLL.dll';
  
  type GENERAL_COMMAND=record
        Cmd:word; 
        InLength:word;
        OutLength:word;
        CmdResult:word;
        Indata:longword;
        Outdata:longword;
  end;

  type    BACKGROUND_COMMAND=record
	InterruptMask:word;
	CommandCount:word;
	GenCommand:GENERAL_COMMAND;     //length of array can be changed here
  end;

  type BGCOMMANDSET=record
	Count:word;
        reserved:word;
	BackgroundCommand:BACKGROUND_COMMAND;
  end;
  
  type PBGCOMMANDSET=^BGCOMMANDSET;
  type PLongWord=^LongWord;
  type PLongInt=^LongInt;
  type PWord=^Word;
  type PSmallInt=^SmallInt;

function	GT_AbptStp(): SmallInt; stdcall;
function	GT_AddList(): SmallInt; stdcall;
function	GT_AlarmOff: SmallInt; stdcall;
function	GT_AlarmOn: SmallInt; stdcall;
function 	GT_ArcRErrLmt(x:double): SmallInt; stdcall;
function	GT_ArcXY(x_center,y_center,angle:Double): SmallInt; stdcall;
function	GT_ArcXYP(x_end,y_end,r:Double;dir:SmallInt): SmallInt; stdcall;
function	GT_ArcYZ(y_center,z_center,angle:Double): SmallInt; stdcall;
function	GT_ArcYZP(y_end,z_end,r:Double;dir:SmallInt): SmallInt; stdcall;
function	GT_ArcZX(z_center,x_center,angle:Double): SmallInt; stdcall;
function	GT_ArcZXP(z_end,x_end,r:Double;dir:SmallInt): SmallInt; stdcall;
function	GT_AuStpOff(): SmallInt; stdcall;
function	GT_AuStpOn(): SmallInt; stdcall;
function	GT_AuUpdtOff(): SmallInt; stdcall;
function	GT_AuUpdtOn(): SmallInt; stdcall;
function	GT_Axis(X:Word): SmallInt; stdcall;
function	GT_AxisI(): SmallInt; stdcall;
function	GT_AxisOff(): SmallInt; stdcall;
function	GT_AxisOn(): SmallInt; stdcall;
function	GT_BrkOff(): SmallInt; stdcall;
function	GT_CaptHome(): SmallInt; stdcall;
function 	GT_CaptHomInx(): SmallInt; stdcall;
function   	GT_CaptIndex(): SmallInt; stdcall;
Function	GT_CaptProb(): SmallInt; stdcall;
Function   	GT_Close(): SmallInt; stdcall;
Function   	GT_CloseLp(): SmallInt; stdcall;
function 	GT_ClrEncPos(X:Word): SmallInt; stdcall;
function	GT_ClrIntrEvent(X:Word): SmallInt; stdcall;
function	GT_ClrSts(): SmallInt; stdcall;
function	GT_CrdAuStpOff(): SmallInt; stdcall;
function	GT_CrdAuStpOn(): SmallInt; stdcall;
function	GT_DrvRst(): SmallInt; stdcall;
function	GT_DutyRatio(X:LongWord): SmallInt; stdcall; 
function   	GT_EncPos(id:SmallInt; X:PLongInt): SmallInt; stdcall;
function   	GT_EncSns(X:Word): SmallInt; stdcall;
function   	GT_EncVel(id:SmallInt; X:PDouble): SmallInt; stdcall;
function	GT_EndList(): SmallInt; stdcall;
function	GT_EStpMtn(): SmallInt; stdcall;
function	GT_EvntIntr(): SmallInt; stdcall;
function	GT_ExInpt(X:PWord): SmallInt; stdcall;
function	GT_ExOpt(X:Word): SmallInt; stdcall;
function	GT_ExtBrk(): SmallInt; stdcall;
function	GT_GetAcc(X:PDouble): SmallInt; stdcall;
function	GT_GetAccLmt(X:PDouble): SmallInt; stdcall;
function   	GT_GetAdc(id:smallint;x:PSmallInt): SmallInt; stdcall;
function   	GT_GetAtlErr(X:PSmallInt): SmallInt; stdcall;
function	GT_GetAtlPos(X:PLongInt): SmallInt; stdcall;
function 	GT_GetAtlVel(X:Pdouble): SmallInt; stdcall;
function	GT_GetBrkCn(x:PLongInt): SmallInt; stdcall;
function	GT_GetBrkPnt(pnt:PDouble): SmallInt; stdcall;
function	GT_GetCapt(X:PLongInt): SmallInt; stdcall;
function	GT_GetCmdSts(X:PWord): SmallInt; stdcall;
function	GT_GetCrdSts(x:PWord): SmallInt; stdcall;
function   	GT_GetEncCapt(X:PLongInt): SmallInt; stdcall;
function   	GT_GetEncSts(X:PWord): SmallInt; stdcall;
function 	GT_GetHBCmd(X:PWord): SmallInt; stdcall;
function	GT_GetIntr(X:PWord): SmallInt; stdcall;
function	GT_GetIntrMsk(X:PWord): SmallInt; stdcall;
function	GT_GetIntrTm(X:PWord): SmallInt; stdcall;
function	GT_GetJerk(X:PDouble): SmallInt; stdcall;
function	GT_GetLmtSwt(X:PWord): SmallInt; stdcall;
function	GT_GetMAcc(X:PDouble): SmallInt; stdcall;
function	GT_GetMode(X:PWord): SmallInt; stdcall;
function	GT_GetMtnNm(X:PWord): SmallInt; stdcall;
function	GT_GetPos(X:PLongInt): SmallInt; stdcall;
function 	GT_GetPrflPos(X:PlongInt): SmallInt; stdcall;
function 	GT_GetPrflVel(X:Pdouble): SmallInt; stdcall;
function	GT_GetPrfPnt(X:PDouble): SmallInt; stdcall;
function	GT_GetRatio(X:PDouble): SmallInt; stdcall;
function	GT_GetSmplTm(X:PDouble): SmallInt; stdcall;
function	GT_GetSts(X:PWord): SmallInt; stdcall;
function	GT_GetVel(X:PDouble): SmallInt; stdcall;
function	GT_HardRst(): SmallInt; stdcall;
function 	GT_HomeSns(X:Word): SmallInt; stdcall;
function	GT_LmtSns(X:Word): SmallInt; stdcall;
function	GT_LmtsOff(): SmallInt; stdcall;
function	GT_LmtsOn(): SmallInt; stdcall;
function	GT_LnXY(x,y:Double): SmallInt; stdcall;
function	GT_LnXYZ(x,y,z:Double): SmallInt; stdcall;
function	GT_LnXYZA(x,y,z,A:Double): SmallInt; stdcall;
function	GT_MapAxis(X:Word;Y:PDouble): SmallInt; stdcall;
function	GT_MltiUpdt(X:Word): SmallInt; stdcall;
function	GT_MtnBrk(): SmallInt; stdcall;
function	GT_MvXY(x,y,vel,accel:Double): SmallInt; stdcall;
function	GT_MvXYZ(x,y,z,vel,accel:Double): SmallInt; stdcall;
function	GT_MvXYZA(x,y,z,A,vel,accel:Double): SmallInt; stdcall;
function	GT_NegBrk(): SmallInt; stdcall;
Function	GT_Open(addr:LongWord=65535;irq:LongWord=65535): SmallInt; stdcall;
function 	GT_Override(x:double): SmallInt; stdcall;
function	GT_PosBrk(): SmallInt; stdcall;
function	GT_PrflG(X:Word): SmallInt; stdcall;
function	GT_PrflS(): SmallInt; stdcall;
function	GT_PrflT(): SmallInt; stdcall;
function	GT_PrflV(): SmallInt; stdcall;
function	GT_Reset(): SmallInt; stdcall;
function	GT_RstIntr(X:Word): SmallInt; stdcall;
function	GT_RstSts(X:Word): SmallInt; stdcall;
function	GT_SetAcc(X:Double): SmallInt; stdcall;
function	GT_SetAccLmt(X:Double): SmallInt; stdcall;
function 	GT_SetAdcChn(X:Word): SmallInt; stdcall;
function	GT_SetAtlPos(X:LongInt): SmallInt; stdcall;
function	GT_SetBrkCn(X:LongInt): SmallInt; stdcall;
function   	GT_SetEncCapt: SmallInt; stdcall;
function 	GT_SetHBFrq(X:Word): SmallInt; stdcall; 
function	GT_SetIntrMsk(X:Word): SmallInt; stdcall;
function	GT_SetIntrTm(X:Word): SmallInt; stdcall;
function	GT_SetJerk(X:double): SmallInt; stdcall;
function	GT_SetMAcc(X:double): SmallInt; stdcall;
function	GT_SetPos(X:LongInt): SmallInt; stdcall;
function	GT_SetRatio(X:double): SmallInt; stdcall;
function	GT_SetSmplTm(X:Double): SmallInt; stdcall;
function	GT_SetSynAcc(X:Double): SmallInt; stdcall;
function	GT_SetSynVel(X:Double): SmallInt; stdcall;
function	GT_SetVel(X:Double): SmallInt; stdcall;
function	GT_SetVelMul(X:Double): SmallInt; stdcall;
function	GT_SmthStp(): SmallInt; stdcall;
function	GT_StepDir(): SmallInt; stdcall;
function	GT_StepPulse(): SmallInt; stdcall;
function	GT_StpMtn(): SmallInt; stdcall;
function	GT_StrtList(): SmallInt; stdcall;
function	GT_StrtMtn(): SmallInt; stdcall;
function	GT_SynchPos(): SmallInt; stdcall;
function	GT_TmrIntr(): SmallInt; stdcall;
function	GT_Update(): SmallInt; stdcall;
function	GT_ZeroPos(): SmallInt; stdcall;

function        GT_SetBgCommandSet(Pcmdset:PBGCOMMANDSET;size:word):smallint; stdcall;
function        GT_GetBgCommandResult(Pcmdset:PBGCOMMANDSET;size:word):smallint; stdcall;
function        GT_SetIntSyncEvent(x:longword):smallint; stdcall;
function        GT_SwitchtoCardNo(x:word):smallint; stdcall;
function        GT_GetCurrentCardNo:smallint; stdcall;

implementation

{general functions, for all types of card }
function	GT_AbptStp(): SmallInt; External GTDLL;
function	GT_AddList(): SmallInt; External GTDLL;
function	GT_AlarmOff: SmallInt; External GTDLL;
function	GT_AlarmOn: SmallInt; External GTDLL;
function 	GT_ArcRErrLmt(x:double): SmallInt; External GTDLL;
function	GT_ArcXY(x_center,y_center,angle:Double): SmallInt; External GTDLL;
function	GT_ArcXYP(x_end,y_end,r:Double;dir:SmallInt): SmallInt; External GTDLL;
function	GT_ArcYZ(y_center,z_center,angle:Double): SmallInt; External GTDLL;
function	GT_ArcYZP(y_end,z_end,r:Double;dir:SmallInt): SmallInt; External GTDLL;
function	GT_ArcZX(z_center,x_center,angle:Double): SmallInt; External GTDLL;
function	GT_ArcZXP(z_end,x_end,r:Double;dir:SmallInt): SmallInt; External GTDLL;
function	GT_AuStpOff(): SmallInt; External GTDLL;
function	GT_AuStpOn(): SmallInt; External GTDLL;
function	GT_AuUpdtOff(): SmallInt; External GTDLL;
function	GT_AuUpdtOn(): SmallInt; External GTDLL;
function	GT_Axis(X:Word): SmallInt; External GTDLL;
function	GT_AxisI(): SmallInt; External GTDLL;
function	GT_AxisOff(): SmallInt; External GTDLL;
function	GT_AxisOn(): SmallInt; External GTDLL;
function	GT_BrkOff(): SmallInt; External GTDLL;
function	GT_CaptHome(): SmallInt; External GTDLL;
function 	GT_CaptHomInx(): SmallInt; External GTDLL;
function   	GT_CaptIndex(): SmallInt; External GTDLL;
Function	GT_CaptProb(): SmallInt; External GTDLL;
Function   	GT_Close(): SmallInt; External GTDLL;
Function   	GT_CloseLp(): SmallInt; External GTDLL;
function 	GT_ClrEncPos(X:Word): SmallInt; External GTDLL;
function	GT_ClrIntrEvent(X:Word): SmallInt; External GTDLL;
function	GT_ClrSts(): SmallInt; External GTDLL;
function	GT_CrdAuStpOff(): SmallInt; External GTDLL;
function	GT_CrdAuStpOn(): SmallInt; External GTDLL;
function	GT_DrvRst(): SmallInt; External GTDLL;
function	GT_DutyRatio(X:LongWord): SmallInt; External GTDLL; 
function   	GT_EncPos(id:SmallInt; X:PLongInt): SmallInt; External GTDLL;
function   	GT_EncSns(X:Word): SmallInt; External GTDLL;
function   	GT_EncVel(id:SmallInt; X:PDouble): SmallInt; External GTDLL;
function	GT_EndList(): SmallInt; External GTDLL;
function	GT_EStpMtn(): SmallInt; External GTDLL;
function	GT_EvntIntr(): SmallInt; External GTDLL;
function	GT_ExInpt(X:PWord): SmallInt; External GTDLL;
function	GT_ExOpt(X:Word): SmallInt; External GTDLL;
function	GT_ExtBrk(): SmallInt; External GTDLL;
function	GT_GetAcc(X:PDouble): SmallInt; External GTDLL;
function	GT_GetAccLmt(X:PDouble): SmallInt; External GTDLL;
function   	GT_GetAdc(id:smallint;x:PSmallInt): SmallInt; External GTDLL;
function   	GT_GetAtlErr(X:PSmallInt): SmallInt; External GTDLL;
function	GT_GetAtlPos(X:PLongInt): SmallInt; External GTDLL;
function 	GT_GetAtlVel(X:Pdouble): SmallInt; External GTDLL;
function	GT_GetBrkCn(x:PLongInt): SmallInt; External GTDLL;
function	GT_GetBrkPnt(pnt:PDouble): SmallInt; External GTDLL;
function	GT_GetCapt(X:PLongInt): SmallInt; External GTDLL;
function	GT_GetCmdSts(X:PWord): SmallInt; External GTDLL;
function	GT_GetCrdSts(x:PWord): SmallInt; External GTDLL;
function   	GT_GetEncCapt(X:PLongInt): SmallInt; External GTDLL;
function   	GT_GetEncSts(X:PWord): SmallInt; External GTDLL;
function 	GT_GetHBCmd(X:PWord): SmallInt; External GTDLL;
function	GT_GetIntr(X:PWord): SmallInt; External GTDLL;
function	GT_GetIntrMsk(X:PWord): SmallInt; External GTDLL;
function	GT_GetIntrTm(X:PWord): SmallInt; External GTDLL;
function	GT_GetJerk(X:PDouble): SmallInt; External GTDLL;
function	GT_GetLmtSwt(X:PWord): SmallInt; External GTDLL;
function	GT_GetMAcc(X:PDouble): SmallInt; External GTDLL;
function	GT_GetMode(X:PWord): SmallInt; External GTDLL;
function	GT_GetMtnNm(X:PWord): SmallInt; External GTDLL;
function	GT_GetPos(X:PLongInt): SmallInt; External GTDLL;
function 	GT_GetPrflPos(X:PlongInt): SmallInt; External GTDLL;
function 	GT_GetPrflVel(X:Pdouble): SmallInt; External GTDLL;
function	GT_GetPrfPnt(X:PDouble): SmallInt; External GTDLL;
function	GT_GetRatio(X:PDouble): SmallInt; External GTDLL;
function	GT_GetSmplTm(X:PDouble): SmallInt; External GTDLL;
function	GT_GetSts(X:PWord): SmallInt; External GTDLL;
function	GT_GetVel(X:PDouble): SmallInt; External GTDLL;
function	GT_HardRst(): SmallInt; External GTDLL;
function 	GT_HomeSns(X:Word): SmallInt; External GTDLL;
function	GT_LmtSns(X:Word): SmallInt; External GTDLL;
function	GT_LmtsOff(): SmallInt; External GTDLL;
function	GT_LmtsOn(): SmallInt; External GTDLL;
function	GT_LnXY(x,y:Double): SmallInt; External GTDLL;
function	GT_LnXYZ(x,y,z:Double): SmallInt; External GTDLL;
function	GT_LnXYZA(x,y,z,A:Double): SmallInt; External GTDLL;
function	GT_MapAxis(X:Word;Y:PDouble): SmallInt; External GTDLL;
function	GT_MltiUpdt(X:Word): SmallInt; External GTDLL;
function	GT_MtnBrk(): SmallInt; External GTDLL;
function	GT_MvXY(x,y,vel,accel:Double): SmallInt; External GTDLL;
function	GT_MvXYZ(x,y,z,vel,accel:Double): SmallInt; External GTDLL;
function	GT_MvXYZA(x,y,z,A,vel,accel:Double): SmallInt; External GTDLL;
function	GT_NegBrk(): SmallInt; External GTDLL;
Function	GT_Open(addr:LongWord;irq:longWord): SmallInt; External GTDLL;
function 	GT_Override(x:double): SmallInt; External GTDLL;
function	GT_PosBrk(): SmallInt; External GTDLL;
function	GT_PrflG(X:Word): SmallInt; External GTDLL;
function	GT_PrflS(): SmallInt; External GTDLL;
function	GT_PrflT(): SmallInt; External GTDLL;
function	GT_PrflV(): SmallInt; External GTDLL;
function	GT_Reset(): SmallInt; External GTDLL;
function	GT_RstIntr(X:Word): SmallInt; External GTDLL;
function	GT_RstSts(X:Word): SmallInt; External GTDLL;
function	GT_SetAcc(X:Double): SmallInt; External GTDLL;
function	GT_SetAccLmt(X:Double): SmallInt; External GTDLL;
function 	GT_SetAdcChn(X:Word): SmallInt; External GTDLL;
function	GT_SetAtlPos(X:LongInt): SmallInt; External GTDLL;
function	GT_SetBrkCn(X:LongInt): SmallInt; External GTDLL;
function   	GT_SetEncCapt: SmallInt; External GTDLL;
function 	GT_SetHBFrq(X:Word): SmallInt; External GTDLL; 
function	GT_SetIntrMsk(X:Word): SmallInt; External GTDLL;
function	GT_SetIntrTm(X:Word): SmallInt; External GTDLL;
function	GT_SetJerk(X:double): SmallInt; External GTDLL;
function	GT_SetMAcc(X:double): SmallInt; External GTDLL;
function	GT_SetPos(X:LongInt): SmallInt; External GTDLL;
function	GT_SetRatio(X:double): SmallInt; External GTDLL;
function	GT_SetSmplTm(X:Double): SmallInt; External GTDLL;
function	GT_SetSynAcc(X:Double): SmallInt; External GTDLL;
function	GT_SetSynVel(X:Double): SmallInt; External GTDLL;
function	GT_SetVel(X:Double): SmallInt; External GTDLL;
function	GT_SetVelMul(X:Double): SmallInt; External GTDLL;
function	GT_SmthStp(): SmallInt; External GTDLL;
function	GT_StepDir(): SmallInt; External GTDLL;
function	GT_StepPulse(): SmallInt; External GTDLL;
function	GT_StpMtn(): SmallInt; External GTDLL;
function	GT_StrtList(): SmallInt; External GTDLL;
function	GT_StrtMtn(): SmallInt; External GTDLL;
function	GT_SynchPos(): SmallInt; External GTDLL;
function	GT_TmrIntr(): SmallInt; External GTDLL;
function	GT_Update(): SmallInt; External GTDLL;
function	GT_ZeroPos(): SmallInt; External GTDLL;

function        GT_SetBgCommandSet(Pcmdset:PBGCOMMANDSET;size:word):smallint; External GTDLL;
function        GT_GetBgCommandResult(Pcmdset:PBGCOMMANDSET;size:word):smallint; External GTDLL;
function        GT_SetIntSyncEvent(x:longword):smallint; External GTDLL;
function        GT_SwitchtoCardNo(x:word):smallint; External GTDLL;
function        GT_GetCurrentCardNo:smallint; External GTDLL;
end.