You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
522 lines
16 KiB
522 lines
16 KiB
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "Unit1.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TForm1 *Form1;
|
|
|
|
|
|
/*
|
|
下面是具体的调用动态库的做法，采用的是动态加载的方法，主要就是在程序初始化的
|
|
时候从动态库中取得各个函数的地址并保存起来，然后在需要的时候调用就可以了，最后在
|
|
程序退出的时候释放掉打开的动态库句柄就行。
|
|
*/
|
|
|
|
/*---------------------------兼容ZLG的及数据类型------------------------------*/
|
|
//首先定义需要用到的数据结构
|
|
//USB-CAN总线适配器板卡信息的数据类型。
|
|
typedef struct _VCI_BOARD_INFO{
|
|
USHORT hw_Version;
|
|
USHORT fw_Version;
|
|
USHORT dr_Version;
|
|
USHORT in_Version;
|
|
USHORT irq_Num;
|
|
BYTE can_Num;
|
|
CHAR str_Serial_Num[20];
|
|
CHAR str_hw_Type[40];
|
|
USHORT Reserved[4];
|
|
} VCI_BOARD_INFO,*PVCI_BOARD_INFO;
|
|
|
|
//定义CAN信息帧的数据类型。
|
|
typedef struct _VCI_CAN_OBJ{
|
|
UINT ID;
|
|
UINT TimeStamp; //时间标识
|
|
BYTE TimeFlag; //是否使用时间标识
|
|
BYTE SendType; //发送标志。保留，未用
|
|
BYTE RemoteFlag; //是否是远程帧
|
|
BYTE ExternFlag; //是否是扩展帧
|
|
BYTE DataLen;
|
|
BYTE Data[8];
|
|
BYTE Reserved[3]; //保留
|
|
}VCI_CAN_OBJ,*PVCI_CAN_OBJ;
|
|
|
|
//定义CAN控制器状态的数据类型。
|
|
typedef struct _VCI_CAN_STATUS{
|
|
UCHAR ErrInterrupt;
|
|
UCHAR regMode;
|
|
UCHAR regStatus;
|
|
UCHAR regALCapture;
|
|
UCHAR regECCapture;
|
|
UCHAR regEWLimit;
|
|
UCHAR regRECounter;
|
|
UCHAR regTECounter;
|
|
DWORD Reserved;
|
|
}VCI_CAN_STATUS,*PVCI_CAN_STATUS;
|
|
|
|
//定义错误信息的数据类型。
|
|
typedef struct _ERR_INFO{
|
|
UINT ErrCode;
|
|
BYTE Passive_ErrData[3];
|
|
BYTE ArLost_ErrData;
|
|
} VCI_ERR_INFO,*PVCI_ERR_INFO;
|
|
|
|
//定义初始化CAN的数据类型
|
|
typedef struct _INIT_CONFIG{
|
|
DWORD AccCode;
|
|
DWORD AccMask;
|
|
DWORD InitFlag;
|
|
UCHAR Filter; //0,1接收所有帧。2标准帧滤波，3是扩展帧滤波。
|
|
UCHAR Timing0;
|
|
UCHAR Timing1;
|
|
UCHAR Mode; //模式，0表示正常模式，1表示只听模式,2自测模式
|
|
}VCI_INIT_CONFIG,*PVCI_INIT_CONFIG;
|
|
|
|
//接下来定义要导入的函数类型
|
|
//根据ControlCAN.h中的函数声明定义函数指针类型
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//兼容ZLG的函数
|
|
typedef DWORD (CALLBACK* LPVCI_OpenDevice)(DWORD,DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_CloseDevice)(DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_InitCan)(DWORD,DWORD,DWORD,PVCI_INIT_CONFIG);
|
|
|
|
typedef DWORD (CALLBACK* LPVCI_ReadBoardInfo)(DWORD,DWORD,PVCI_BOARD_INFO);
|
|
typedef DWORD (CALLBACK* LPVCI_ReadErrInfo)(DWORD,DWORD,DWORD,PVCI_ERR_INFO);
|
|
typedef DWORD (CALLBACK* LPVCI_ReadCanStatus)(DWORD,DWORD,DWORD,PVCI_CAN_STATUS);
|
|
|
|
typedef DWORD (CALLBACK* LPVCI_GetReference)(DWORD,DWORD,DWORD,DWORD,PVOID);
|
|
typedef DWORD (CALLBACK* LPVCI_SetReference)(DWORD,DWORD,DWORD,DWORD,PVOID);
|
|
|
|
typedef ULONG (CALLBACK* LPVCI_GetReceiveNum)(DWORD,DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_ClearBuffer)(DWORD,DWORD,DWORD);
|
|
|
|
typedef DWORD (CALLBACK* LPVCI_StartCAN)(DWORD,DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_ResetCAN)(DWORD,DWORD,DWORD);
|
|
|
|
typedef ULONG (CALLBACK* LPVCI_Transmit)(DWORD,DWORD,DWORD,PVCI_CAN_OBJ,ULONG);
|
|
typedef ULONG (CALLBACK* LPVCI_Receive)(DWORD,DWORD,DWORD,PVCI_CAN_OBJ,ULONG,INT);
|
|
|
|
/*-------------------------其他函数及数据类型描述-----------------------------*/
|
|
//首先定义需要用到的数据结构
|
|
//USB-CAN总线适配器板卡信息的数据类型，该类型在VCI_FindUsbDevice函数中引用。
|
|
typedef struct _VCI_BOARD_INFO1{
|
|
USHORT hw_Version;
|
|
USHORT fw_Version;
|
|
USHORT dr_Version;
|
|
USHORT in_Version;
|
|
USHORT irq_Num;
|
|
BYTE can_Num;
|
|
BYTE reserved;
|
|
CHAR str_Serial_Num[8];
|
|
CHAR str_hw_Type[16];
|
|
CHAR str_USB_Serial[4][4];
|
|
} VCI_BOARD_INFO1,*PVCI_BOARD_INFO1;
|
|
|
|
//定义常规参数类型
|
|
typedef struct _REF_NORMAL{
|
|
BYTE Mode; //工作模式
|
|
BYTE Filter; //滤波方式
|
|
DWORD AccCode; //接收滤波验收码
|
|
DWORD AccMask; //接收滤波屏蔽码
|
|
BYTE kBaudRate; //波特率索引号，0-SelfDefine,1-5Kbps(未用),2-18依次为：10kbps,20kbps,40kbps,50kbps,80kbps,100kbps,125kbps,200kbps,250kbps,400kbps,500kbps,666kbps,800kbps,1000kbps,33.33kbps,66.66kbps,83.33kbps
|
|
BYTE Timing0;
|
|
BYTE Timing1;
|
|
BYTE CANRX_EN; //保留，未用
|
|
BYTE UARTBAUD; //保留，未用
|
|
}VCI_REF_NORMAL,*PVCI_REF_NORMAL;
|
|
|
|
//定义波特率设置参数类型
|
|
typedef struct _BAUD_TYPE{
|
|
DWORD Baud; //存储波特率实际值
|
|
BYTE SJW; //同步跳转宽度，取值1-4
|
|
BYTE BRP; //预分频值，取值1-64
|
|
BYTE SAM; //采样点，取值0=采样一次，1=采样三次
|
|
BYTE PHSEG2_SEL; //相位缓冲段2选择位，取值0=由相位缓冲段1时间决定,1=可编程
|
|
BYTE PRSEG; //传播时间段，取值1-8
|
|
BYTE PHSEG1; //相位缓冲段1，取值1-8
|
|
BYTE PHSEG2; //相位缓冲段2，取值1-8
|
|
}VCI_BAUD_TYPE,*PVCI_BAUD_TYPE;
|
|
|
|
//定义Reference参数类型
|
|
typedef struct _REF_STRUCT{
|
|
VCI_REF_NORMAL RefNormal;
|
|
BYTE Reserved;
|
|
VCI_BAUD_TYPE BaudType;
|
|
}VCI_REF_STRUCT,*PVCI_REF_STRUCT;
|
|
|
|
|
|
//其他函数
|
|
typedef DWORD (CALLBACK* LPVCI_GetReference2)(DWORD,DWORD,DWORD,DWORD,PVCI_REF_STRUCT);
|
|
typedef DWORD (CALLBACK* LPVCI_SetReference2)(DWORD,DWORD,DWORD,DWORD,PVOID);
|
|
typedef DWORD (CALLBACK* LPVCI_ResumeConfig)(DWORD,DWORD,DWORD);
|
|
|
|
typedef DWORD (CALLBACK* LPVCI_ConnectDevice)(DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_UsbDeviceReset)(DWORD,DWORD,DWORD);
|
|
typedef DWORD (CALLBACK* LPVCI_FindUsbDevice)(PVCI_BOARD_INFO1);
|
|
//////////////////////////////////////////////////////////////////////////
|
|
|
|
HANDLE m_hDLL;//用来保存打开的动态库句柄
|
|
|
|
//接口函数指针
|
|
LPVCI_OpenDevice VCI_OpenDevice;
|
|
LPVCI_CloseDevice VCI_CloseDevice;
|
|
LPVCI_InitCan VCI_InitCAN;
|
|
LPVCI_ReadBoardInfo VCI_ReadBoardInfo;
|
|
LPVCI_ReadErrInfo VCI_ReadErrInfo;
|
|
LPVCI_ReadCanStatus VCI_ReadCanStatus;
|
|
LPVCI_GetReference VCI_GetReference;
|
|
LPVCI_SetReference VCI_SetReference;
|
|
LPVCI_GetReceiveNum VCI_GetReceiveNum;
|
|
LPVCI_ClearBuffer VCI_ClearBuffer;
|
|
LPVCI_StartCAN VCI_StartCAN;
|
|
LPVCI_ResetCAN VCI_ResetCAN;
|
|
LPVCI_Transmit VCI_Transmit;
|
|
LPVCI_Receive VCI_Receive;
|
|
LPVCI_GetReference2 VCI_GetReference2;
|
|
LPVCI_SetReference2 VCI_SetReference2;
|
|
LPVCI_ResumeConfig VCI_ResumeConfig;
|
|
LPVCI_ConnectDevice VCI_ConnectDevice;
|
|
LPVCI_UsbDeviceReset VCI_UsbDeviceReset;
|
|
LPVCI_FindUsbDevice VCI_FindUsbDevice;
|
|
|
|
////////////////////////////////////////////////////////////////////////////
|
|
DWORD m_devtype=4;//USBCAN2类型号
|
|
DWORD m_devind=0;
|
|
DWORD m_cannum=0;
|
|
int m_connect=0;
|
|
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TForm1::TForm1(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
m_hDLL = LoadLibrary("ControlCAN.dll");//打开动态库
|
|
|
|
//取得函数地址
|
|
VCI_OpenDevice=(LPVCI_OpenDevice)GetProcAddress(m_hDLL,"VCI_OpenDevice");
|
|
VCI_CloseDevice=(LPVCI_CloseDevice)GetProcAddress(m_hDLL,"VCI_CloseDevice");
|
|
VCI_InitCAN=(LPVCI_InitCan)GetProcAddress(m_hDLL,"VCI_InitCAN");
|
|
VCI_ReadBoardInfo=(LPVCI_ReadBoardInfo)GetProcAddress(m_hDLL,"VCI_ReadBoardInfo");
|
|
VCI_ReadErrInfo=(LPVCI_ReadErrInfo)GetProcAddress(m_hDLL,"VCI_ReadErrInfo");
|
|
VCI_ReadCanStatus=(LPVCI_ReadCanStatus)GetProcAddress(m_hDLL,"VCI_ReadCANStatus");
|
|
VCI_GetReference=(LPVCI_GetReference)GetProcAddress(m_hDLL,"VCI_GetReference");
|
|
VCI_SetReference=(LPVCI_SetReference)GetProcAddress(m_hDLL,"VCI_SetReference");
|
|
VCI_GetReceiveNum=(LPVCI_GetReceiveNum)GetProcAddress(m_hDLL,"VCI_GetReceiveNum");
|
|
VCI_ClearBuffer=(LPVCI_ClearBuffer)GetProcAddress(m_hDLL,"VCI_ClearBuffer");
|
|
VCI_StartCAN=(LPVCI_StartCAN)GetProcAddress(m_hDLL,"VCI_StartCAN");
|
|
VCI_ResetCAN=(LPVCI_ResetCAN)GetProcAddress(m_hDLL,"VCI_ResetCAN");
|
|
VCI_Transmit=(LPVCI_Transmit)GetProcAddress(m_hDLL,"VCI_Transmit");
|
|
VCI_Receive=(LPVCI_Receive)GetProcAddress(m_hDLL,"VCI_Receive");
|
|
VCI_GetReference2=(LPVCI_GetReference2)GetProcAddress(m_hDLL,"VCI_GetReference2");
|
|
VCI_SetReference2=(LPVCI_SetReference2)GetProcAddress(m_hDLL,"VCI_SetReference2");
|
|
VCI_ResumeConfig=(LPVCI_ResumeConfig)GetProcAddress(m_hDLL,"VCI_ResumeConfig");
|
|
VCI_ConnectDevice=(LPVCI_ConnectDevice)GetProcAddress(m_hDLL,"VCI_ConnectDevice");
|
|
VCI_UsbDeviceReset=(LPVCI_UsbDeviceReset)GetProcAddress(m_hDLL,"VCI_UsbDeviceReset");
|
|
}
|
|
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
|
|
{
|
|
if(m_connect==1)
|
|
{
|
|
m_connect=0;
|
|
WaitForSingleObject(m_readhandle,2000);
|
|
m_readhandle=NULL;
|
|
VCI_CloseDevice(m_devtype,m_devind);
|
|
}
|
|
|
|
FreeLibrary(m_hDLL);//释放动态库句柄
|
|
}
|
|
void __fastcall TForm1::EnableUI(BOOL bEnable)
|
|
{
|
|
Label8->Enabled = bEnable;
|
|
ComboBox1->Enabled = bEnable;
|
|
Label9->Enabled = bEnable;
|
|
ComboBox2->Enabled = bEnable;
|
|
Label1->Enabled = bEnable;
|
|
Edit2->Enabled = bEnable;
|
|
Label2->Enabled = bEnable;
|
|
Edit3->Enabled = bEnable;
|
|
Label12->Enabled = bEnable;
|
|
ComboBox3->Enabled = bEnable;
|
|
Label13->Enabled = bEnable;
|
|
ComboBox4->Enabled = bEnable;
|
|
Label10->Enabled = bEnable;
|
|
Edit5->Enabled = bEnable;
|
|
Label11->Enabled = bEnable;
|
|
Edit6->Enabled = bEnable;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void ReceiveThread(void *param)
|
|
{
|
|
TListBox *box=(TListBox*)param;
|
|
VCI_CAN_OBJ receivedata[2500];
|
|
VCI_ERR_INFO errinfo;
|
|
int len,i;
|
|
AnsiString str,tmpstr;
|
|
while(1)
|
|
{
|
|
if(m_connect==0)
|
|
break;
|
|
Sleep(1);
|
|
len=VCI_Receive(m_devtype,m_devind,m_cannum,receivedata,2500,200);
|
|
if(len<=0)
|
|
{
|
|
|
|
}
|
|
else
|
|
{
|
|
for(i=0;i<len;i++)
|
|
{
|
|
str="接收到数据帧: ";
|
|
if(receivedata[i].TimeFlag==0)
|
|
tmpstr="时间标识:无 ";
|
|
else
|
|
tmpstr="时间标识:0x"+IntToHex((int)receivedata[i].TimeStamp,1)+" ";
|
|
str+=tmpstr;
|
|
tmpstr="帧ID:0x"+IntToHex((int)receivedata[i].ID,1)+" ";
|
|
str+=tmpstr;
|
|
str+="帧格式:";
|
|
if(receivedata[i].RemoteFlag==0)
|
|
tmpstr="数据帧 ";
|
|
else
|
|
tmpstr="远程帧 ";
|
|
str+=tmpstr;
|
|
str+="帧类型:";
|
|
if(receivedata[i].ExternFlag==0)
|
|
tmpstr="标准帧 ";
|
|
else
|
|
tmpstr="扩展帧 ";
|
|
str+=tmpstr;
|
|
box->Items->Add(str);
|
|
if(receivedata[i].RemoteFlag==0)
|
|
{
|
|
str="数据:";
|
|
if(receivedata[i].DataLen>8)
|
|
receivedata[i].DataLen=8;
|
|
for(int j=0;j<receivedata[i].DataLen;j++)
|
|
{
|
|
tmpstr=IntToHex((int)receivedata[i].Data[j],2)+" ";
|
|
str+=tmpstr;
|
|
}
|
|
box->Items->Add(str);
|
|
}
|
|
}
|
|
box->ItemIndex=box->Items->Count-1;
|
|
}
|
|
}
|
|
_endthread();
|
|
}
|
|
|
|
|
|
void __fastcall TForm1::Button1Click(TObject *Sender)
|
|
{
|
|
if(m_connect==1)
|
|
{
|
|
Button1->Caption ="连接";
|
|
m_connect=0;
|
|
WaitForSingleObject(m_readhandle,2000);
|
|
m_readhandle=NULL;
|
|
VCI_CloseDevice(m_devtype,m_devind);
|
|
EnableUI(TRUE);
|
|
return;
|
|
}
|
|
int index = 0;
|
|
int cannum = ComboBox2->ItemIndex;
|
|
VCI_INIT_CONFIG initconfig;
|
|
initconfig.AccCode=StrToInt("0x"+Edit2->Text);
|
|
initconfig.AccMask=StrToInt("0x"+Edit3->Text);
|
|
initconfig.Timing0=StrToInt("0x"+Edit5->Text);
|
|
initconfig.Timing1=StrToInt("0x"+Edit6->Text);
|
|
initconfig.Filter=ComboBox3->ItemIndex;
|
|
initconfig.Mode=ComboBox4->ItemIndex;
|
|
|
|
if(index>=0&&cannum>=0)
|
|
{
|
|
if(VCI_OpenDevice(m_devtype,index,0)==1)
|
|
{
|
|
if(VCI_InitCAN(m_devtype,index,cannum,&initconfig)==1)
|
|
{
|
|
Button1->Caption ="断开";
|
|
m_connect=1;
|
|
m_devind=0;
|
|
m_cannum=cannum;
|
|
m_readhandle=(HANDLE)_beginthread(ReceiveThread,0,(void*)ListBox1);
|
|
}
|
|
else
|
|
{
|
|
ShowMessage("初始化CAN错误");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ShowMessage("打开端口错误");
|
|
}
|
|
|
|
}
|
|
EnableUI(FALSE);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm1::Button2Click(TObject *Sender)
|
|
{
|
|
if(m_connect==0)
|
|
{
|
|
ShowMessage("请先打开端口");
|
|
return;
|
|
}
|
|
if(VCI_ResetCAN(m_devtype,m_devind,m_cannum)==1)
|
|
{
|
|
ListBox1->Items->Add("复位CAN成功");
|
|
Button4->Enabled = FALSE;
|
|
}
|
|
else
|
|
{
|
|
ListBox1->Items->Add("复位CAN失败");
|
|
}
|
|
ListBox1->ItemIndex=ListBox1->Items->Count-1;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm1::Button3Click(TObject *Sender)
|
|
{
|
|
if(m_connect==0)
|
|
{
|
|
ShowMessage("请先打开端口");
|
|
return;
|
|
}
|
|
if(VCI_StartCAN(m_devtype,m_devind,m_cannum)==1)
|
|
{
|
|
ListBox1->Items->Add("启动CAN成功");
|
|
Button4->Enabled = TRUE;
|
|
}
|
|
else
|
|
{
|
|
ListBox1->Items->Add("启动CAN失败");
|
|
}
|
|
ListBox1->ItemIndex=ListBox1->Items->Count-1;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
void __fastcall TForm1::Button6Click(TObject *Sender)
|
|
{
|
|
if(m_connect==0)
|
|
{
|
|
ShowMessage("请先打开端口");
|
|
return;
|
|
}
|
|
DWORD i= ComboBox3->ItemIndex;
|
|
if(VCI_SetReference(m_devtype,m_devind,0,1,(PVOID)&i)==1)
|
|
{
|
|
ListBox1->Items->Add("更改成功");
|
|
}
|
|
else
|
|
{
|
|
ListBox1->Items->Add("更改失败");
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm1::FormCreate(TObject *Sender)
|
|
{
|
|
ComboBox1->ItemIndex = 1;
|
|
ComboBox2->ItemIndex = 0;
|
|
ComboBox3->ItemIndex = 0;
|
|
ComboBox4->ItemIndex = 0;
|
|
ComboBox6->ItemIndex =0;
|
|
ComboBox7->ItemIndex =0;
|
|
EnableUI(TRUE);
|
|
Button4->Enabled = FALSE;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TForm1::Button4Click(TObject *Sender)
|
|
{
|
|
if(m_connect==0)
|
|
{
|
|
ShowMessage("请先打开端口");
|
|
return;
|
|
}
|
|
|
|
BYTE sendtype,frametype,frameformat;
|
|
DWORD id;
|
|
BYTE data[8];
|
|
|
|
frametype=ComboBox6->ItemIndex;
|
|
frameformat=ComboBox7->ItemIndex;
|
|
id=StrToInt("0x"+Edit1->Text);
|
|
|
|
AnsiString str=Edit4->Text;
|
|
AnsiString strdata;
|
|
int i,kkk;
|
|
for(i=0;i<8;i++)
|
|
{
|
|
strdata=str.SubString(3*i+1,2);
|
|
strdata=strdata.Trim();
|
|
kkk=strdata.Length();
|
|
if(kkk==0)
|
|
{
|
|
goto exit;
|
|
}
|
|
data[i]=StrToInt(strdata);
|
|
//sscanf(strdata.c_str(),"%x",data+i);
|
|
}
|
|
|
|
exit:
|
|
VCI_CAN_OBJ senddata;
|
|
senddata.SendType=sendtype;
|
|
senddata.ExternFlag=frametype;
|
|
senddata.RemoteFlag=frameformat;
|
|
senddata.ID=id;
|
|
senddata.DataLen=i;
|
|
memcpy(senddata.Data,data,i);
|
|
|
|
if(VCI_Transmit(m_devtype,m_devind,m_cannum,&senddata,1)==1)
|
|
{
|
|
ListBox1->Items->Add("发送成功");
|
|
}
|
|
else
|
|
{
|
|
ListBox1->Items->Add("发送失败");
|
|
}
|
|
ListBox1->ItemIndex=ListBox1->Items->Count-1;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
|
|
{
|
|
m_devtype = ComboBox1->ItemIndex + 3;
|
|
if( m_devtype == 3 && ComboBox2->ItemIndex > 0)
|
|
{
|
|
ComboBox2->ItemIndex = 0;
|
|
m_cannum = 0;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TForm1::ComboBox2Click(TObject *Sender)
|
|
{
|
|
if( m_devtype == 3 && ComboBox2->ItemIndex > 0 )
|
|
ComboBox2->ItemIndex = 0;
|
|
m_cannum = ComboBox2->ItemIndex;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm1::Button5Click(TObject *Sender)
|
|
{
|
|
ListBox1->Clear();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|