configunit.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ConfigUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TConfigForm *ConfigForm;
//---------------------------------------------------------------------------
__fastcall TConfigForm::TConfigForm(TComponent* Owner)
        : TForm(Owner)
{
    TIniFile *Configini;
    Configini = new TIniFile(GetCurrentDir()+"\\SynchSoftware.ini");
    MainForm->Comport= Configini->ReadInteger("CONFIG", "Comport",1);
    MainForm->BaudIndex= Configini->ReadInteger("CONFIG", "BaudIndex",7);
    MainForm->BaudRate= Configini->ReadInteger("CONFIG", "BaudRate",115200);
    delete Configini;
    CBPort->ItemIndex=MainForm->Comport-1;
    CBBaudRate->ItemIndex=MainForm->BaudIndex;
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::BOKClick(TObject *Sender)
{
        MainForm->BaudIndex=CBBaudRate->ItemIndex;
        MainForm->BaudRate= StrToInt64(CBBaudRate->Text);
        MainForm->Comport= CBPort->ItemIndex+1;
        ConfigForm->Hide();
}
//---------------------------------------------------------------------------