mainunit.cpp

一个通过串口连接手机发短信的程序。

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma link "Dxemmi.lib"

TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NConfigClick(TObject *Sender)
{
        ConfigForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        TIniFile *Configini;
        Configini = new TIniFile(ChangeFileExt(Application->ExeName,".INI" ));
        Configini->WriteInteger("CONFIG", "Comport",Comport);
        Configini->WriteInteger("CONFIG", "BaudIndex",BaudIndex);
        Configini->WriteString("CONFIG", "BaudRate",BaudRate);
        delete Configini;
        DxEmmi_Close(hComm);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::NExitClick(TObject *Sender)
{
        MainForm->Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::NLinkClick(TObject *Sender)
{
        hComm=DxEmmi_Open(Comport,BaudRate);
        if (hComm<0)
        {
                Application->MessageBox("打开端口失败!","错误",MB_OK | MB_ICONERROR);
        }
        else
        {
                MainForm->StatusBar->Panels->Items[0]->Text="打开串口成功！";
        }
        DxEmmi_Start(hComm);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::BSendClick(TObject *Sender)
{

        char *pDesPNum = new char[MainForm->LEDesPNum->Text.Length() + 1];
        strcpy(pDesPNum, MainForm->LEDesPNum->Text.c_str());
        char *pSerPNum = new char[MainForm->LESerPNum->Text.Length() + 1];
        strcpy(pSerPNum, MainForm->LESerPNum->Text.c_str());
        char *pSendMsg = new char[MainForm->RESendMsg->Text.Length() + 1];
        strcpy(pSendMsg, MainForm->RESendMsg->Text.c_str());
        DxEmmi_SendSmsReq(hComm,pDesPNum,pSerPNum,pSendMsg);
        int i=DxEmmi_SendSmsCnf(hComm);
        if (i==0)
        {
                ShowMessage("短信发送成功");
        }
        else
        {
                ShowMessage("短信发送失败" + i);
        }

}
//---------------------------------------------------------------------------