test.~cpp

CMPP接口的BCB程序,改进版本

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

#include <vcl.h>
#pragma hdrstop

#include "test.h"
#include "cmpp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma link "SUIComboBox"
#pragma link "SUIEdit"
#pragma link "SUIMemo"
#pragma resource "*.dfm"
TFrmTest *FrmTest;
//---------------------------------------------------------------------------
__fastcall TFrmTest::TFrmTest(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFrmTest::suiButton2Click(TObject *Sender)
{
  FrmTest->Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFrmTest::suiButton1Click(TObject *Sender)
{
  byte msg_frmt;
  if (RadioButton1->Checked == true)
     msg_frmt = 15;
  if (RadioButton2->Checked == true)
     msg_frmt = 8;
  if (RadioButton3->Checked == true)
     msg_frmt = 0;
  if (RadioButton4->Checked == true)
     msg_frmt = 4;
  AnsiString cMsg_Id="" ;
  byte iPk_total=StrToInt(suiEdit7->Text) ;
  byte iPk_number=StrToInt(suiEdit8->Text) ;
  byte iMsg_level=StrToInt(suiEdit3->Text) ;
  byte iTP_pId=StrToInt(suiEdit11->Text) ;
  byte iTP_udhi=StrToInt(suiEdit12->Text) ;
  byte iDestUsr_tl=StrToInt(suiEdit14->Text) ;
  byte iFee_UserType=StrToInt(suiComboBox4->Text.SubString(1,1)) ;
  AnsiString cIcpid=suiEdit6->Text;
  AnsiString cPhone=suiEdit1->Text ;
  AnsiString cMsg=suiMemo1->Text ;
  byte iMsgFrm=msg_frmt ;
  AnsiString cServiceid=suiEdit4->Text  ;
  AnsiString cFeecode=suiEdit5->Text ;
  AnsiString cFeetype=suiComboBox4->Text.SubString(1,2) ;
  byte iSRR=StrToInt(suiComboBox2->Text.SubString(1,1)) ;
  AnsiString cFeephone=suiEdit2->Text ;
  AnsiString cSrc_id=suiEdit13->Text ;
  AnsiString cValId_Time=suiEdit9->Text ;
  /*if(suiEdit9->Text=="")
      cValId_Time=FormatDateTime("MMDDHHMMSSZZZ", Now()) + "+";   */
  AnsiString cAt_Time=suiEdit10->Text ;
  int iRet =  CMPPSubmit(iPk_total,iPk_number,iMsg_level,
		        iTP_pId,iTP_udhi,iDestUsr_tl,iFee_UserType,
		        cIcpid,cPhone,cMsg,iMsgFrm,
                        cServiceid,cFeecode,cFeetype,iSRR,
                        cFeephone,cSrc_id,cValId_Time,cAt_Time);
  if (iRet == 1) {
     MessageBox(FrmTest->Handle,"Socket not conneted","ErrorInfo",MB_OK+MB_ICONERROR);
   }
  else{
     MessageBox(FrmTest->Handle,"短信已发送","Info",MB_OK);
   }        
}
//---------------------------------------------------------------------------