f_shezhi.cpp

一个移动通信用SMPP协议写的.非常经典!

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

#include <vcl.h>
#pragma hdrstop

#include "f_shezhi.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tn_shezhi *n_shezhi;
//---------------------------------------------------------------------------
__fastcall Tn_shezhi::Tn_shezhi(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tn_shezhi::Button2Click(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

void __fastcall Tn_shezhi::Button1Click(TObject *Sender)
{
    if(!((sIP==IP->Text)&&(sPort==PORT->Text)&&(sUserName==username->Text)&&
    (sUserPwd==userpwd->Text)&&(sUserId==userid->Text)&&
    (sUserHead==userhead->Text)&&(strszService_ID==szService_ID->Text)&&
    (strszFeeType==szFeeType->Text)&&(strszFeeCode==szFeeCode->Text)&&
    (strcService_ChannelID==cService_ChannelID->Text)&&
    (strltscc==ltscc->Text)&&(strydscc==ydscc->Text)))
    {
        bReConSrv=true;
        MainForm->Timer4->Interval=500;
    }
    MainForm->WriteToIni();
    if(!MainForm->ToolButton5->Enabled)
    {
        MainForm->Run(bReConSrv);
    }
    Close();
}
//---------------------------------------------------------------------------

void __fastcall Tn_shezhi::FormShow(TObject *Sender)
{
    MainForm->ReadFromIni();
    bReConSrv=false;
    sIP=IP->Text;
    sPort=PORT->Text;
    sUserName=username->Text;
    sUserPwd=userpwd->Text;
    sUserId=userid->Text;
    sUserHead=userhead->Text;
    strszService_ID=szService_ID->Text;
    strszFeeType=szFeeType->Text;
    strszFeeCode=szFeeCode->Text;
    strcService_ChannelID=cService_ChannelID->Text;
    strltscc=ltscc->Text;
    strydscc=ydscc->Text;
}
//---------------------------------------------------------------------------