?? goalvar.pas
字號(hào):
unit Goalvar;
interface
uses
Windows,SyncObjs;
type
HKCANHANDLE = record
mHandle: THandle;
mGuid : Cardinal;
mClass: Word;
mDev : Word;
mType : Word;
mState: Word;
end;
HKCANFRAME =record
Port : Byte;
mFrame :array[0.. 9] of Byte;
end;
type
PHKCANHANDLE = ^HKCANHANDLE;
PHKCANFRAME = ^HKCANFRAME;
type
PULONG = ^longword;
type
T_HKCanOpen = Function(mDevHandle:PHKCANHANDLE ;InDriverName:pchar;DrvType:integer;nDev:integer): LongBool;stdcall;
T_HKCanClose = Function(mDevHandle:PHKCANHANDLE): LongBool;stdcall;
T_HKCanInitState = Function(mDevHandle:PHKCANHANDLE;
nPort:Integer;CAN_bps:cardinal;
CAN_StationAddress :byte;
CAN_Mask :byte;
mRxEvent :Thandle
): LongBool;stdcall;
T_HKCanSendFrame = Function( mDevHandle:PHKCANHANDLE; pSendFrame :PHKCANFRAME):integer;stdcall;
T_HKCanReadFrame = Function( mDevHandle:PHKCANHANDLE;nPort:integer; pReadFrame:PHKCANFRAME):integer;stdcall;
T_HKCanAbortSend = Function( mDevHandle:PHKCANHANDLE; nPort:integer):LongBool;stdcall;
T_HKCanGetLastError = Function(mDevHandle :PHKCANHANDLE; pError:PULONG):LongBool;stdcall;
var
g_mDevHandle :HKCANHANDLE; //devicehandle struct
g_SendFrame : HKCANFRAME;
g_RecFrame :HKCANFRAME;
g_ReadThreadFlag :boolean; //thread flag
g_SendThreadFlag :boolean; //thread flag
g_blOpenStatus :boolean; //CAN 卡打開標(biāo)志
g_RecPortNo :integer; //發(fā)送端口號(hào)
g_SendPortNo :integer; //接收端口號(hào)
g_RecMode :integer; //接收方式
g_blCycleSend :boolean ; //循環(huán)發(fā)送標(biāo)志
g_TryCount :integer;
g_ShowProcess :boolean; //顯示發(fā)送過程
g_RecCount :int64; //接收幀統(tǒng)計(jì)
g_SendTotalCount:int64;
g_SendOKCount:int64;
g_SendFailCount:int64;
g_hStartSendEvent :Tevent; //發(fā)送事件
g_hReadEvent_port :array[0..1] of Tevent; //接收事件
g_SendStarTime : Cardinal;
//函數(shù)定義
HKCanOpen :T_HKCanOpen ;
HKCanClose :T_HKCanClose;
HKCanInitState :T_HKCanInitState;
HKCanSendFrame :T_HKCanSendFrame;
HKCanReadFrame :T_HKCanReadFrame;
HKCanAbortSend :T_HKCanAbortSend;
HKCanGetLastError :T_HKCanGetLastError;
implementation
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -