485读头(带液显)测试程序-c++builder
来源：互联网 发布：淘宝店铺售假扣分影响 编辑：程序博客网 时间：2024/06/08 14:54
详细代码：（如有疑问13826029618进行咨询）
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
//广州荣士电子，13826029618 网址www.icmcu.com
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool __fastcall isrightint(AnsiString textls);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button_updataClick(TObject *Sender)
{
int j;
int i;
j = 0;
commindex->Clear() ;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
//Judges the DLL(Dynamic Link Library) whether exists
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
for(i = 1;i<10;i++)
{
Comport_Handle = PortOpen(i);
if(INVALID_HANDLE_VALUE != Comport_Handle)
{
if(j==0)
{
j = i;
}
commindex->AddItem("COM"+IntToStr(i),Sender);
PortClose(Comport_Handle);
}
}
if(commindex->Items->Count >0)
{
commindex->ItemIndex = 0;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button_updata->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char lll[100];
char *jhls;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *GetDeviceNo)(HANDLE ComportHandle,LPSTR JihaoString);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
GetDeviceNo = (int (__stdcall *)(HANDLE ComportHandle,LPSTR JihaoString))GetProcAddress(hDll,"GetDeviceNo");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！","警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
jhls = lll;
status = GetDeviceNo(Comport_Handle,jhls); //读设备号
PortClose(Comport_Handle);
if(status ==0)
{ //成功
Edit1->Text = jhls;
Edit2->Text = Edit1->Text;
Edit6->Text = Edit1->Text;
Edit7->Text = Edit1->Text;
Edit16->Text = Edit1->Text;
Edit17->Text = Edit1->Text;
Edit18->Text = Edit1->Text;
Edit19->Text = Edit1->Text;
Edit22->Text = Edit1->Text;
edt_5->Text = Edit1->Text;
}
else
{
Edit1->Text = "没读到机号";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetDeviceNo)(HANDLE ComportHandle,int Jihao_old,int Jihao_new);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetDeviceNo = (int (__stdcall *)(HANDLE ComportHandle,int Jihao_old,int Jihao_new))GetProcAddress(hDll,"SetDeviceNo");
if(Edit2->Text.Length() == 0)
{
Application->MessageBox("原设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit2->SelectAll();
return;
}
if(!isrightint(Edit2->Text))
{
Application->MessageBox("原设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit2->SetFocus();
Edit2->SelectAll();
return;
};
if(Edit4->Text.Length() == 0)
{
Application->MessageBox("新设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit4->SelectAll();
return;
}
if(!isrightint(Edit4->Text))
{
Application->MessageBox("新设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit4->SetFocus();
Edit4->SelectAll();
return;
}
if(StrToInt(Trim(Edit4->Text))>65535)
{
Application->MessageBox("新设备号中机号不能大于65535！", "警告", MB_OK+MB_ICONINFORMATION);
Edit4->SetFocus();
Edit4->SelectAll();
return;
}
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
status = SetDeviceNo(Comport_Handle,StrToInt(Edit2->Text),StrToInt(Edit4->Text)); //读设备号
PortClose(Comport_Handle);
if(status ==0)
{ //成功
AnsiString strls = "机号设定成功，现在的机号为" + Edit4->Text + "!";
Application->MessageBox(strls.c_str(), "提示", MB_OK+MB_ICONINFORMATION);
}
else
{
Application->MessageBox("机号设定失败!", "提示", MB_OK+MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
bool __fastcall isrightint(AnsiString textls)
{
try
{
if(StrToInt(textls)==0)
{
}
return true;
}
catch(...)
{
return false;
}
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetDevicePWD)(HANDLE ComportHandle,int Jihao,LPSTR PWDString);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetDevicePWD = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR PWDString))GetProcAddress(hDll,"SetDevicePWD");
if(Edit7->Text.Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit7->SelectAll();
return;
}
if(!isrightint(Edit7->Text))
{
Application->MessageBox("原设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit7->SetFocus();
Edit7->SelectAll();
return;
}
if(Edit9->Text.Length() == 0)
{
Application->MessageBox("密码输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit9->SetFocus();
return;
}
if(!isrightint(Edit9->Text))
{
Application->MessageBox("密码输入框中有法字符，密码只能为0~9数字！", "警告", MB_OK+MB_ICONINFORMATION);
Edit9->SetFocus();
Edit9->SelectAll();
return;
}
if(Trim(Edit9->Text).Length() !=6)
{
Application->MessageBox("密码只能为6位！", "警告", MB_OK+MB_ICONINFORMATION);
Edit9->SetFocus();
Edit9->SelectAll();
return;
}
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
status = SetDevicePWD(Comport_Handle,StrToInt(Edit7->Text),Edit9->Text.c_str()); //读设备号
PortClose(Comport_Handle);
if(status ==0)
{ //成功
AnsiString strls = "机号["+Edit7->Text+"]管理员密码更改成功!";
Application->MessageBox(strls.c_str(),"提示", MB_OK+MB_ICONINFORMATION);
return;
}
else
{
Application->MessageBox(("管理员密码更改失败!错误号："+IntToStr(status)).c_str(), "提示", MB_OK+MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
AnsiString strls;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetBeep)(HANDLE ComportHandle,int Jihao,int BeepXms);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetBeep = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,int BeepXms))GetProcAddress(hDll,"SetBeep");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if(CheckBox1->Checked)
{
jihao = 0;
}
else
{
if(Edit16->Text.Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit16->SetFocus();
return;
}
if(!isrightint(Edit16->Text))
{
Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit16->SetFocus();
Edit16->SelectAll();
return;
}
jihao = StrToInt(Edit16->Text);
}
if(Edit12->Text.Length() == 0)
{
Application->MessageBox("声长输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit12->SetFocus();
return;
}
if(!isrightint(Edit12->Text))
{
Application->MessageBox("声长输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit12->SetFocus();
Edit12->SelectAll();
return;
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
beepforxms = StrToInt(Edit12->Text);
SetBeep(Comport_Handle,jihao,beepforxms);
PortClose(Comport_Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
AnsiString strls;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
int unbeepforxms;
int times;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetBeepEx)(HANDLE ComportHandle,int Jihao,int beeptimes,int beepinterval,int loopcount);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetBeepEx = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,int beeptimes,int beepinterval,int loopcount))GetProcAddress(hDll,"SetBeepEx");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if(CheckBox2->Checked)
{
jihao = 0;
}
else
{
if(Edit17->Text.Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit17->SetFocus();
return;
}
if(!isrightint(Edit17->Text))
{
Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit17->SetFocus();
Edit17->SelectAll();
return;
}
jihao = StrToInt(Edit17->Text);
}
if(Edit13->Text.Length() == 0)
{
Application->MessageBox("声长输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit13->SetFocus();
return;
}
if(!isrightint(Edit13->Text))
{
Application->MessageBox("声长输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit13->SetFocus();
Edit13->SelectAll();
return;
}
beepforxms = StrToInt(Edit13->Text);
if((Edit14->Text).Length() == 0)
{
Application->MessageBox("停顿输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit14->SetFocus();
return;
}
if(!isrightint(Edit14->Text))
{
Application->MessageBox("停顿输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit14->SetFocus();
Edit14->SelectAll();
return;
}
unbeepforxms = StrToInt(Edit14->Text);
//次数
if((Edit15->Text).Length() == 0)
{
Application->MessageBox("循环次数输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit15->SetFocus();
return;
}
if(!isrightint(Edit15->Text))
{
Application->MessageBox("循环次数输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit15->SetFocus();
Edit15->SelectAll();
return;
}
times = StrToInt(Edit15->Text);
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
SetBeepEx(Comport_Handle,jihao,beepforxms,unbeepforxms,times);
PortClose(Comport_Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
AnsiString strls;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
int unbeepforxms;
int times;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *CloseBeep)(HANDLE ComportHandle,int Jihao);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
CloseBeep = (int (__stdcall *)(HANDLE ComportHandle,int Jihao))GetProcAddress(hDll,"CloseBeep");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if(CheckBox3->Checked)
{
jihao = 0;
}
else
{
if((Edit18->Text).Length() == 0)
{
Application->MessageBox("结束设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit18->SetFocus();
return;
}
if(!isrightint(Edit18->Text))
{
Application->MessageBox("结束设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit18->SetFocus();
Edit18->SelectAll();
return;
}
jihao = StrToInt(Edit18->Text);
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
CloseBeep(Comport_Handle,jihao);
PortClose(Comport_Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
AnsiString strls;
AnsiString strls1;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
int unbeepforxms;
int times;
unsigned char cardhao[10];
unsigned long cardserial_long;
int i;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *GetCardNoForByte)(HANDLE ComportHandle,int Jihao,unsigned char * CardNoBuf);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
GetCardNoForByte = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,unsigned char * CardNoBuf))GetProcAddress(hDll,"GetCardNoForByte");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if((Edit6->Text).Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit6->SetFocus();
Edit6->SelectAll();
return;
}
if(!isrightint(Edit6->Text))
{
Application->MessageBox("设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit6->SetFocus();
Edit6->SelectAll();
return;
}
jihao = StrToInt(Edit6->Text);
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
status = GetCardNoForByte(Comport_Handle,jihao,cardhao);
PortClose(Comport_Handle);
if(status == 0)
{//读卡成功
strls1 = "";
for(i=0;i<4;i++)
{
strls = "00"+IntToHex(cardhao[i],2);
strls1 = strls1 + RightStr(strls,2) + "-";
}
strls = "00"+IntToHex(cardhao[4],2);
strls1 = strls1 + RightStr(strls,2);
Edit8->Text = strls1;
cardserial_long = 0;
for(i=1;i<5;i++)
{
cardserial_long = cardserial_long * 256;
cardserial_long = cardserial_long + cardhao[i];
}
strls = "000000000" + IntToStr(cardserial_long);
Edit3->Text = RightStr(strls,10);
strls = "000" + IntToStr(cardhao[2]);
strls1 = RightStr(strls,3) + ",";
strls = "00000" + IntToStr(int(cardhao[3])*256+int(cardhao[4]));
Edit5->Text = strls1 + RightStr(strls,5);
return;
}
Edit3->Text = "读卡失败";
Edit5->Text = "读卡失败";
Edit8->Text = "读卡失败";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)
{
HANDLE (__stdcall *PortOpen)(int comport);
void (__stdcall *Delay_ms)(DWORD xms);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
if(btn1->Caption == "开始轮询")
{
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if((edt_1->Text).Length() == 0)
{
Application->MessageBox("启始设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
edt_1->SetFocus();
edt_1->SelectAll();
return;
}
if(!isrightint(edt_1->Text))
{
Application->MessageBox("启始设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
edt_1->SetFocus();
edt_1->SelectAll();
return;
}
if((edt_2->Text).Length() == 0)
{
Application->MessageBox("结束设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
edt_2->SetFocus();
edt_2->SelectAll();
return;
}
if(!isrightint(edt_2->Text))
{
Application->MessageBox("结束设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
edt_2->SetFocus();
edt_2->SelectAll();
return;
}
if((edt_3->Text).Length() == 0)
{
Application->MessageBox("每一轮循环间隔输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
edt_3->SetFocus();
edt_3->SelectAll();
return;
}
if(!isrightint(edt_3->Text))
{
Application->MessageBox("每一轮循环间隔输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
edt_3->SetFocus();
edt_3->SelectAll();
return;
}
startxbh = StrToInt(edt_1->Text);
endxbh = StrToInt(edt_2->Text);
if(startxbh>endxbh)
{
midxbh = endxbh;
endxbh = startxbh;
startxbh = midxbh;
}
else
{
midxbh = startxbh;
}
sjjg = StrToInt(edt_3->Text);
zqs = 0;
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
lv1->Items->Clear();
edt_4->Text ="0";
//timescount = 0;
edt_1->Enabled = false;
edt_2->Enabled = false;
edt_3->Enabled = false;
Button_updata->Enabled = false;
Button1->Enabled = false;
Button2->Enabled = false;
Button3->Enabled = false;
Button6->Enabled = false;
Button8->Enabled = false;
Button9->Enabled = false;
Button10->Enabled = false;
Button10->Enabled = false;
btn1->Caption = "终止轮询";
timeconitue = true;
myprocstart = True;
thread0 = new lsthread(false);
}
else
{
timeconitue = false;
edt_1->Enabled = true;
edt_2->Enabled = true;
edt_3->Enabled = true;
Button_updata->Enabled = true;
Button1->Enabled = true;
Button2->Enabled = true;
Button3->Enabled = true;
Button6->Enabled = true;
Button8->Enabled = true;
Button9->Enabled = true;
Button10->Enabled = true;
Button10->Enabled = true;
btn1->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn2Click(TObject *Sender)
{
lv1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
AnsiString strls;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
int unbeepforxms;
int times;
char cardhao[10];
char keystring[39];
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *GetKeyInputForString)(HANDLE ComportHandle,int Jihao,LPSTR KeyInputString);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
GetKeyInputForString = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR KeyInputString))GetProcAddress(hDll,"GetKeyInputForString");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if((Edit6->Text).Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit6->SetFocus();
Edit6->SelectAll();
return;
}
if(!isrightint(Edit6->Text))
{
Application->MessageBox("设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit6->SetFocus();
Edit6->SelectAll();
return;
}
jihao = StrToInt(Edit6->Text);
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
jhls = keystring;
status = GetKeyInputForString(Comport_Handle,jihao,jhls);
PortClose(Comport_Handle);
if(status == 0)
{
Edit21->Text = jhls;
return;
}
else if ((status == 3) || (status == 4))
{
Edit21->Text = "没有键盘输入......";
return;
}
//ShowMessage(IntToStr(status));
Edit21->Text = "读键盘码失败";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
AnsiString strls;
int status;
char lll[100];
char *jhls;
int jihao;
int beepforxms;
int unbeepforxms;
int times;
AnsiString dispstring;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetDispFull)(HANDLE ComportHandle,int Jihao,LPSTR DispString);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetDispFull = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR DispString))GetProcAddress(hDll,"SetDispFull");
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if(CheckBox1->Checked)
{
jihao = 0;
}
else
{
if((Edit22->Text).Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit22->SetFocus();
return;
}
if(!isrightint(Edit22->Text))
{
Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
Edit22->SetFocus();
Edit22->SelectAll();
return;
}
jihao = StrToInt(Edit22->Text);
}
if((Edit20->Text).Length() == 0)
{
Application->MessageBox("显示字符框为空！", "警告", MB_OK+MB_ICONINFORMATION);
Edit20->SetFocus();
return;
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
dispstring = Edit20->Text;
SetDispFull(Comport_Handle,jihao,dispstring.c_str());
PortClose(Comport_Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn3Click(TObject *Sender)
{
//动态调用动态库
SYSTEMTIME mytime;
Word wYear,wMonth,wDay,wHour,wMinute,wSecond,wMsec;
int jihao;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *SetTime)(HANDLE ComportHandle,int Jihao,SYSTEMTIME *mytime);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
SetTime = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,SYSTEMTIME *mytime))GetProcAddress(hDll,"SetTime");
DecodeDate(dtp1->Date,wYear,wMonth,wDay);
mytime.wYear =wYear ;
mytime.wMonth =wMonth ;
mytime.wDay = wDay;
mytime.wDayOfWeek = DayOfWeek(dtp1->Date)-1;
mytime.wHour = StrToInt(edt__xd_s->Text);
mytime.wMinute = StrToInt(edt__xd_f->Text);
mytime.wSecond = StrToInt(edt__xd_m->Text);
if(commindex->Items->Count<1)
{
Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
if(chk1->Checked)
{
jihao = 0;
}
else
{
if((edt_5->Text).Length() == 0)
{
Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
edt_5->SetFocus();
return;
}
if(!isrightint(edt_5->Text))
{
Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
edt_5->SetFocus();
edt_5->SelectAll();
return;
}
jihao = StrToInt(Edit16->Text);
}
Comport_Handle = PortOpen(commindex->ItemIndex+1);
if(Comport_Handle == INVALID_HANDLE_VALUE)
{
Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
return;
}
//发送
Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
status = SetTime(Comport_Handle,jihao,&mytime);
PortClose(Comport_Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(btn1->Caption == "开始轮询")
{
Close();
}
else
{
Application->MessageBox("请先终止轮询！", "警告", MB_OK+MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::myproc(void)
{
char keystr[39];
char *keystr_pchar;
char cardstr[21];
char *cardstr_pchar;
int status;
int i;
int jihao;
unsigned char cardhao[10];
unsigned long cardserial_long;
TListItem *pItem;
bool isadditem1;
AnsiString strls0;
AnsiString strls1;
AnsiString strlsok0;
AnsiString strlsok1;
HANDLE (__stdcall *PortOpen)(int comport);
bool (__stdcall *PortClose)(HANDLE ComportHandle);
void (__stdcall *Delay_ms)(DWORD xms);
int (__stdcall *GetCARDNO_KeyInput)(HANDLE ComportHandle,int Jihao,LPSTR CardNoString,LPSTR KeyInputString);
AnsiString FileName=ExtractFilePath(Application->ExeName);
if(FileName.SubString(FileName.Length(),1) != "//")
{
FileName += "//";
}
FileName += "sycomdll.dll";
if(!FileExists(FileName))
{
ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
return;
}
//to get function pointers
HINSTANCE hDll;
hDll=LoadLibrary(FileName.c_str());
PortOpen = (HANDLE (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
PortClose = (bool (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
Delay_ms = (void (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
GetCARDNO_KeyInput = (int (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR CardNoString,LPSTR KeyInputString))GetProcAddress(hDll,"GetCARDNO_KeyInput");
//轮询读卡及键盘
if(midxbh>endxbh)
{
midxbh = startxbh;
edt_4->Text = IntToStr(StrToInt(edt_4->Text)+1);
if(sjjg >0)
{
Delay_ms(sjjg);
}
}
//读函数
keystr_pchar = keystr;
cardstr_pchar = cardstr;
status = GetCARDNO_KeyInput(Comport_Handle,midxbh,cardstr_pchar,keystr_pchar);
if(status == 0X10)
{
strlsok0 = cardstr_pchar;
strlsok1 = "无键盘输出";
status = 0;
}
else if(status = 0x20)
{
strlsok0 = "暂无刷卡";
strlsok1 = keystr_pchar;
status = 0;
}
else if(status = 0)
{
strlsok0 = cardstr_pchar;
strlsok0 = IntToHex(StrToInt(strlsok0),8);
strlsok1 = keystr_pchar;
}
if(status = 0)
{
pItem = lv1->Items->Add();
pItem->Caption = IntToStr(midxbh);
pItem->SubItems->Add(strlsok0);
pItem->SubItems->Add(strlsok1);
SendMessage(lv1->Handle,WM_KEYDOWN, 35, 0);
}
midxbh = midxbh + 1;
if(!timeconitue)
{
PortClose(Comport_Handle); //关闭串口
btn1->Caption = "开始轮询";
btn1->Enabled = true;
}
myprocstart = True;
}
- 485读头(带液显)测试程序-c++builder（读卡器）
- 485读头(带液显)测试程序-c++builder
- 485读头(带液显)测试程序-delphi
- 读写卡测试程序c++builder源代码
- 读写卡测试程序c++builder源代码（2）
- C++Builder And ACtiveX的头文件
- 转载：c++builder多线程程序
- c程序头文件
- USB接口ID卡读卡器oem软件/读写卡测试程序及源代码/c++builder源代码
- 用 C++Builder 编写 Tray 程序
- C++Builder 程序只运行一个实例
- 在Borland C++Builder中检查程序
- C++builder 編寫的關閉顯示器程序
- 用c++builder编写的闹钟程序
- c++builder隐藏程序任务栏图标
- C++Builder编译MFC程序的设置
- C++Builder 窗口信息读取程序
- 【用C++Builder编写定时关机程序】
- Design Pattern
- StringUtils方法全集
- 测试在不同的地方对同一信号赋值。
- repeater每行显示固定的的行数
- STARTUPINFO详解
- 485读头(带液显)测试程序-c++builder
- 制作oracle Blob字段转化为字符串文本小工具
- flex弹出窗口与父窗口之间
- sd
- 转 WebKit的页面缓存机制I – 基础(WebKit Page Cache I – The Basics)
- u-boot配置文件
- C++0x 几个很败的修改
- delphi动态调用oracle存储过程
- 禁用以后通过服务端实现二级联动的问题。
