sms1.~cpp

短信发送平台的源码

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

#include "Unit1_tread.h"
#include <vcl.h>
#include "sms2.h"
//#include "File2.cpp"
#include "lib.cpp"
#pragma hdrstop
//#include "Unit1_tread.cpp"

#include "sms1.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
#define CODE 1234567890
String  sms_EncodeChinese(String InputStr);
myterad *tp ;
TForm1 *Form1;
FILE *fpacc,*fph,*fpd,*fpRecv;
AnsiString SHoujS,NeirS;
TListItem * ListItem;
int x,numI;
int tongxun_acc;
char shoujihao_str[1024];
int suoyh=0,SUOYH[10000];
char muluS[30],fileNameAcc[40],fileNameRe[40],fileNameH[40],fileNameD[40],accS[10];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

memset(SUOYH,0x00,sizeof(SUOYH));

 tp = new myterad(true);
 //Form1->Caption="中正短信客户管理系统  ：   收发进程已启动" ;

  // new myterad(false );
// ShowMessage("start......!");
}
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
TRegistry *Reg =new TRegistry;
String code;
int BSH=100,acc;
try{
        Reg->RootKey=HKEY_CURRENT_USER;
        if(Reg->OpenKey("\\Software\\ZHsms\\sms",false)==false)
        {
                Reg->CreateKey("\\Software\\ZHsms\\sms");
                Reg->OpenKey("\\Software\\ZHsms",true);
                Reg->WriteString("ver","2.01");
                Reg->CloseKey( );
                Reg->OpenKey("\\Software\\ZHsms\\sms",true);
                Reg->WriteString("1","123456");
                Reg->WriteInteger("2",60);
                Reg->CloseKey( );

        }else
        {
                Reg->OpenKey("\\Software\\ZHsms\\sms",false)    ;
                code = Reg->ReadString("1");
                //ShowMessage(code);
                acc=  Reg->ReadInteger("2");

                if (code==CODE) BSH=0;
        }
}
__finally
{
        Reg->CloseKey();
        delete Reg;
}
//ShowMessage(IntToStr(BSH));
if(BSH!=0)
{
         Form2->Show();
         //Form2= new TForm2(this);
}
else  Form2->Close();


TRegistry *Reg2 =new TRegistry;
try{
        Reg2->RootKey=HKEY_CURRENT_USER;

       if( Reg2->OpenKey("\\Software\\ZHsms\\sms",false) !=false)
       {
        code = Reg2->ReadString("1");
                //ShowMessage(code);
        acc=  Reg2->ReadInteger("2");
        if(acc>0)
                Reg2->WriteInteger("2",acc-1);
        if (code==CODE) BSH=0;
        }else ShowMessage("检验注册码错误!");
}
__finally
{
        Reg2->CloseKey();
        delete Reg2;
}
if(BSH!=0 && acc<=0)
{
 return;
}
 //ShowMessage(IntToStr(BSH)+"aaa");

//-------------------------------------------------------
 tp ->Resume();

if(Form1->Caption=="中正sms客户管理系统  ") {
        Form1->Caption="中正sms客户管理系统  " ;

}
else
        Form1->Caption="中正sms客户管理系统  ：   收发进程已启动" ;
 

 // Form1->Caption="中正sms客户管理系统  ：   收发进程已启动" ;
}
void __fastcall TForm1::ddd(TObject *Sender)
{

 Form1->Caption="中正sms客户管理系统  ：   收发进程未启动" ;
tp ->Suspend();

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


void __fastcall TForm1::zhou3333(TObject *Sender)
{
               ShowMessage("hahahahahaha!");
}
//---------------------------------------------------------------------------

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

void __fastcall TForm1::fasdxClick(TObject *Sender)
{
       // FILE *fpacc,*fph,*fpd,*fpRecv;
        int accI;
        TDateTime DateTime = Time();
        AnsiString timeS=TimeToStr(DateTime);
        DateTime = Date();
        AnsiString dateS = DateToStr(DateTime);
        AnsiString shijianS;
        shijianS=dateS+' '+timeS;
        //ShowMessage(shijianS);
       // char muluS[30],fileNameAcc[40],fileNameH[40],fileNameD[40],fileNameRe[40],accS[10];
        memset(accS,0x00,10);
        //strcpy(muluS,".\");
        //strcat(muluS, dateS.c_str());
        CreateDir(dateS.c_str());
        sprintf(muluS,"%s\\new", dateS.c_str()) ;
        CreateDir(muluS);
        sprintf(muluS,"%s\\send", dateS.c_str()) ;
        CreateDir(muluS);
        sprintf(muluS,"%s\\recv", dateS.c_str()) ;
        CreateDir(muluS);
        sprintf(muluS,"%s\\qury", dateS.c_str()) ;
        CreateDir(muluS);
        AnsiString xhead,xdata;
        memset( fileNameAcc,0x00,sizeof(fileNameAcc));
        sprintf(fileNameAcc,"%s\\new\\acc", dateS.c_str()) ;
        //fpacc
        if(FileExists(fileNameAcc))
        {
                fpacc=fopen(fileNameAcc,"r") ;
                fgets(accS,10,fpacc);
                fclose(fpacc);
                accI=atoi(accS);
                if(accI<=0)
                        accI=1;
                else
                        accI++;
        }else
                accI=1;
        //fpRecv
        sprintf(fileNameRe,"%s\\new\\R%d\0", dateS.c_str(),accI) ;
        if( strlen(shoujihao->Text.c_str())<=0) {ShowMessage("收信人不能为空！");return ;}
        if( strlen(duanxin->Text.c_str())<=0) {ShowMessage("收信内容不能为空！");return ;}

         String InputStr=sms_EncodeChinese(duanxin->Text) ;
         if    (InputStr.Length()>=284)   {ShowMessage("收信内容不能太多！");return ;}
        if((fpRecv=fopen(fileNameRe,"w"))==NULL){Sleep(10);fpRecv=fopen(fileNameRe,"w");}
        char filestr[10240];
        memset(filestr,0x00,sizeof(filestr));
        strcpy(filestr,shoujihao->Text.c_str());
        int fileI=0;
        for(;;){
                if(filestr[fileI]==';'&&filestr[fileI+2]!='\n' )
                        filestr[fileI]='\n';
                if(filestr[fileI]=='\0')
                        break;
                fileI++;
        }

        fprintf(fpRecv, "%s",filestr);
        fclose(fpRecv);
        sprintf(fileNameH,"%s\\new\\H%d\0", dateS.c_str(),accI) ;
        //fph
        fph=fopen(fileNameH,"w");
        fprintf(fph,"[HEAD]\n");
        fprintf(fph,"time=%s\n",shijianS.c_str());
        //fprintf(fph,"recv=%s\n",shoujihao->Text);
        //fprintf(fph,"send=%s\n",Edit1->Text);
        fprintf(fph,"send= \n");
        fprintf(fph,"type=查询\n") ;
        fprintf(fph,"stat=未发\n") ;
        fprintf(fph,"jrade=紧急\n") ;
        fclose(fph);
        //fpd
        sprintf(fileNameD,"%s\\new\\DA%d\0", dateS.c_str(),accI) ;
        fpd=fopen(fileNameD,"w");
        fprintf(fpd,"%s",duanxin->Text);
        fclose(fpd);
        //fpacc
        fpacc=fopen(fileNameAcc,"w") ;
        fprintf(fpacc,"%d",accI);
        fclose(fpacc);
        //ShowMessage(duanxin->Lines);
        //ShowMessage(shijianS);
        //zhou3333(false);

 /*
 char st[30]="\0";
 strcpy(st,str2.c_str());
 strcat(st," ");
 strcat(st,str1.c_str());
  ShowMessage(st);
  ShowMessage(str2);
  */
}
//---------------------------------------------------------------------------

  //void __fastcall TForm1::daifaBitBtn1Click(TObject *Sender)
 //{

 // }
// void __fastcall TForm1::daifa(TObject *Sender)
//{
 //              ShowMessage("hahahahahaha!");
//}

void __fastcall TForm1::TabSheet2ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{

       // ListView2->Selected = ListView2->Items->Item[0];
}

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





void __fastcall TForm1::changge_dai_BitBtn1Click(TObject *Sender)
{
        char TimeStr[20],TypeStr[10],jradeStr[10],statStr[10],st[20];
        int accI;
        TDateTime  DateTime = Time();
        AnsiString timeS=TimeToStr(DateTime);
        DateTime = Date();
        AnsiString dateS = DateToStr(DateTime);
        AnsiString shijianS;
        shijianS=dateS+' '+timeS;

        //strcpy( st,Item->Index);
        sprintf(fileNameD,"%s\\new\\DA%d\0", dateS.c_str(), numI ) ;
        sprintf(fileNameRe,"%s\\new\\R%d\0", dateS.c_str(), numI ) ;
        fpRecv = fopen(fileNameRe,"w");
         //ShowMessage(fileNameRe);
        fprintf(fpRecv,"%s",Memo1->Text.c_str());
        fclose(fpRecv);
        //ShowMessage(Memo1->Text);
        fpd = fopen(fileNameD,"w");
        fprintf(fpd,"%s",Memo2->Text.c_str());
        fclose(fpd);
       // ShowMessage( fileNameD);

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


void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
        //TListItem * ListItem;
       // FILE *fpacc,*fph,*fpd,*fpRecv;

        char TimeStr[20],TypeStr[10],jradeStr[10],statStr[10];
        int accI;
        TDateTime DateTime = Time();
        AnsiString timeS=TimeToStr(DateTime);
        DateTime = Date();
        AnsiString dateS = DateToStr(DateTime);
        AnsiString shijianS;
        shijianS=dateS+' '+timeS;
        //ShowMessage(shijianS);
        char muluS[30],fileNameAcc[40],fileNameRe[40],fileNameH[40],fileNameD[40],accS[10];
        memset(accS,0x00,10);

        memset( fileNameAcc,0x00,sizeof(fileNameAcc));
        sprintf(fileNameAcc,"%s\\new\\acc", dateS.c_str()) ;
        if((fpacc=fopen(fileNameAcc,"r"))==NULL) { fclose(fpacc); return;     }
                 // fseek(fpacc,0,0);
                 fgets(accS,9,fpacc);
                // ShowMessage(fclose(fpacc));
                fclose(fpacc);
                accI=atoi(accS);
                if(accI<=0)
                        accI=1 ;
        sprintf(fileNameAcc,"%s\\send\\acc", dateS.c_str()) ;
        int temp_accI;
        if((fpacc=fopen(fileNameAcc,"r"))!=NULL)
        {
                 memset(accS,0x00,10);
                 fgets(accS,9,fpacc);
                //ShowMessage(fclose(fpacc));
                fclose(fpacc);
                  temp_accI=atoi(accS);
                if(temp_accI<=0)
                        temp_accI=0 ;
        }else           temp_accI=0;
        ListView2->Items->Clear();
       //ListItem->
       ListView2->RowSelect=true;
       //ListView2->

         suoyh=0;
         int suoyh_i=0,j=0;
        for(x=temp_accI+1;x<=accI;x++)
        {       suoyh++;
                sprintf(fileNameH,"%s\\new\\H%d\0", dateS.c_str(),x) ;
                sprintf(fileNameD,"%s\\new\\DA%d\0", dateS.c_str(),x) ;
                sprintf(fileNameRe,"%s\\new\\R%d\0", dateS.c_str(),x) ;
               // fph=fopen(fileNameH,"r+");
                if((fpd=fopen(fileNameD,"r+"))==NULL)
                {
                        suoyh_i++;

                        SUOYH[suoyh]=suoyh_i;
                        continue;
                }
                fpRecv=fopen(fileNameRe,"r+");


                           // SHoujS= SHoujS+fgetc(fpRecv);
                          char str1[10240] ;
                          int i=0;
                          memset(str1,0x00,sizeof(str1));
                          // ShowMessage( fileNameRe) ;
                           str1[i]=fgetc(fpRecv);
                          char ch=str1[0];

                          while (!feof(fpRecv)) {
                                  i++;
                                 str1[i]=fgetc(fpRecv);

                         }
                         fclose(fpRecv);
                            SHoujS=str1;
                         //ShowMessage( SHoujS);
                          i=0;
                          //   ShowMessage( fileNameD);
                          memset(str1,0x00,sizeof(str1));
                           str1[i]=fgetc(fpd);
                          while (!feof(fpd)) {
                                  i++;
                                 str1[i]=fgetc(fpd);

                         }
                         fclose(fpd);
                         NeirS=str1;


                 ListItem = ListView2->Items->Add(  ) ;
                 ListItem->ImageIndex=x;
                 //strcpy(ListView2->Items->Caption, "aa");
                 j++;
                 ListItem->SubItems->Add(IntToStr(j));
                 ListItem->SubItems->Add(IntToStr(x));
                 ListItem->SubItems->Add(SHoujS);
                 ListItem->SubItems->Add(NeirS);

                //ShowMessage(fileNameH);
                GetPrivateProfileString("HEAD","time","",TimeStr,20, fileNameH);
                //ShowMessage(fileNameH);
                ListItem->SubItems->Add(TimeStr);
                 if(ch=='*') ListItem->SubItems->Add("禁发");
               // ListItem->SubItems->Add(SHoujS);
                 //  ListItem->SubItems->Add(NeirS);
        }
        //ListView2->Selected = ListView2->Items->Item[0];



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

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

void __fastcall TForm1::YiifaduanXinlistView(TObject *Sender, TListItem *Item,
      TItemChange Change)
{

        char TimeStr[20],TypeStr[10],jradeStr[10],statStr[10],st[20];
        int accI;
        TDateTime  DateTime ;
        AnsiString timeS ;

        AnsiString dateS  ;
        AnsiString shijianS;