485读头液显测试程序c++builder

代码如下：

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#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);
}