sms1.~cpp

短信发送平台的源码

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

void __fastcall TForm1::change_diaoboClick(TObject *Sender)
{
  FILE *fp;
//if((fp = fopen("query","a+"))==NULL) ShowMessage("aaa");

//fprintf(fp,"aaaa");
//fclose(fp);
 CreateDir("./query/");
 

 char Memo8_strtmp[1024];
 String InputStr=sms_EncodeChinese(Memo8->Text) ;
         if    (InputStr.Length()>=260)   {
                ShowMessage("收信内容不能太多!!");
                return ;
         }

         strcpy(Memo8_strtmp ,Memo8->Text.c_str());
         int i_tmp=0,xxx=strlen(Memo8_strtmp);
         for(  i_tmp=0;i_tmp<xxx;i_tmp++)
         {
         if(  Memo8_strtmp[i_tmp]=='\r'||  Memo8_strtmp[i_tmp]=='\n')    Memo8_strtmp[i_tmp]=' ';
         }
                WritePrivateProfileString(
                "query" ,
                Edit7->Text.c_str() ,
                Memo8_strtmp,
                "./query/query"
                );


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

void __fastcall TForm1::del_dianbaoClick(TObject *Sender)
{
      FILE *fp;
//if((fp = fopen("query","a+"))==NULL) ShowMessage("aaa");

//fprintf(fp,"aaaa");
//fclose(fp);
 CreateDir("./query/");
 

                WritePrivateProfileString(
                "query" ,
                Edit7->Text.c_str() ,
                NULL,
                "./query/query"
                );
                if((fp = fopen("./query/acc","r"))==NULL)
                { fp = fopen("./query/acc","w");

                  fprintf(fp,"0");

                  fclose(fp);
                }
                        char str[10];
                        int i;
                        fgets(str,10,fp);
                        fclose(fp);
                        if(i<=0) i=0;
                        i=atoi(str)-1;
                        fp = fopen("./query/acc","w");
                        fprintf(fp,"%d",i);
                        fclose(fp);

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

void __fastcall TForm1::diaobo_chaxun(TObject *Sender)
{
         char  str[1024];
        int accI;
        FILE *fp;
        TDateTime  DateTime ;
        AnsiString timeS ;

        AnsiString dateS  ;
        AnsiString shijianS;
        ListView1->Items->Clear();
       //ListItem->
       ListView1->RowSelect=true;
       //ListView2->
       if((fp = fopen("./query/query","r"))==NULL){  return ;}
        fgets(str,1024,fp);
        fgets(str,1024,fp);
        int i=0;
       while (!feof(fp ))
        {         i++;
                 memset(str,0x00,sizeof(str));
                 fgets(str,1024,fp);
                  AnsiString ssss;
                  ssss=str;
                 //ShowMessage( ssss);
                 if(strlen(str)<=1) continue;
                 char code[20],neirong[1000];

                 getstring(str, 1,code,'=')  ;

                 GetPrivateProfileString("query",code,"happy today to you!",neirong,1000, "./query/query");

                 ListItem = ListView1->Items->Add(  ) ;
                 ListItem->ImageIndex=i;

                 ListItem->SubItems->Add(IntToStr(i));
                 ListItem->SubItems->Add(code);
                 ListItem->SubItems->Add(neirong);


        }
        fclose(fp);
}
//---------------------------------------------------------------------------


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

        FILE *fp;
        char str[1024] ;
        if((fp = fopen("./query/query","r"))==NULL){  return ;}

        fgets(str,1024,fp);
        fgets(str,1024,fp);
        int i=0;
        //ShowMessage(Item->Index);
        for(i=0;i<=Item->Index;i++)
        {
                   memset(str,0x00,sizeof(str));
                   fgets(str,1024,fp);
                                     AnsiString ssss;
                  ssss=str;
                 //ShowMessage( ssss);
                 if(strlen(str)<=1) continue;
                 char code[20],neirong[1000];

                 getstring(str, 1,code,'=')  ;
                 Edit7->Text=code;
                 GetPrivateProfileString("query",code,"happy today to you!",neirong,1000, "./query/query");

                 Memo8->Text=neirong;

        }
        fclose(fp);
}
//---------------------------------------------------------------------------









void __fastcall TForm1::kehuxinxi_enter(TObject *Sender)
{
TDateTime  DateTime ;
        AnsiString timeS ;

        AnsiString dateS  ;
        AnsiString shijianS;
        ListView5->Items->Clear();
       //ListItem->
       ListView5->RowSelect=true;
       //ListView2->
       FILE *fp;
       char str[1024];
       if((fp = fopen("./cust/cust","r"))==NULL){  return ;}
        fgets(str,1024,fp);
        fgets(str,1024,fp);
        int i=0;
       while (!feof(fp ))
        {          i++;
                 memset(str,0x00,sizeof(str));
                 fgets(str,1024,fp);
                  AnsiString ssss;
                  ssss=str;
                 //ShowMessage( ssss);
                 if(strlen(str)<=1) continue;
                 char code[200],neirong[1000];

                 getstring(str, 1,code,'=')  ;

                 GetPrivateProfileString("cust",code,"happy today to you!",neirong,1000, "./cust/cust");

                 ListItem = ListView5->Items->Add(  ) ;
                 ListItem->ImageIndex=i;

                 ListItem->SubItems->Add(IntToStr(i));
                 ListItem->SubItems->Add(code);
                 ListItem->SubItems->Add(neirong);

                 FILE *fptmp;
                 char str2[1024],filename[40];
                  memset(filename,0x00,sizeof(filename));
                 sprintf( filename,"./cust/%s",code);
                 if((fptmp=fopen(filename,"r"))==NULL) {ShowMessage(code);ShowMessage(IntToStr(strlen(code)));return;}
                 memset(neirong,0x00,sizeof(neirong));
                 fgets(str2,1024,fptmp);
                 strcpy(neirong,str2);  //ShowMessage(neirong);

                 while (!feof(fptmp))
                {
                         memset(str2,0x00,sizeof(str2));
                         fgets(str2,1024,fptmp);
                         strcat(neirong,str2);

                }
                fclose(fptmp);
                ListItem->SubItems->Add(neirong);


        }
        fclose(fp);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::add_kehu_buttonClick(TObject *Sender)
{

 FILE *fp;
 CreateDir("./cust/");
         WritePrivateProfileString(
                "cust" ,
                "000000" ,
                "222222",
                "./cust/cust"
        );
         if(strlen(Edit5->Text.c_str())<=1||  strlen(Edit6->Text.c_str())<=1) return;
        char strtmp[10] ;
          AnsiString  str1;
         GetPrivateProfileString("cust",Edit5->Text.c_str(),"wwwwww",strtmp,1000, "./cust/cust");
         str1=strtmp;
        //  ShowMessage( str1);
       // strcpy(str,Memo10->Text.c_str() );
        //strcat(str,"#" );
        //strcat(str,Memo13->Text.c_str() );
         if(strcmp(strtmp,"wwwwww")==0)
         {
                WritePrivateProfileString(
                "cust" ,
                Edit5->Text.c_str() ,
                Edit6->Text.c_str(),
                "./cust/cust"
                );


                char fpname[40];
                sprintf(fpname,"./cust/%s",Edit5->Text.c_str());
                fp = fopen(fpname,"w");
                fprintf(fp,Memo13->Text.c_str());
                fclose(fp);
            }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::change_kehu_BitBtn2Click(TObject *Sender)
{
   FILE *fp;
 CreateDir("./cust/");
         WritePrivateProfileString(
                "cust" ,
                "000000" ,
                "222222",
                "./cust/cust"
        );
         if(strlen(Edit5->Text.c_str())<=1||  strlen(Edit6->Text.c_str())<=1) return;
        char strtmp[10],str[1000];

        //  ShowMessage( str1);
               WritePrivateProfileString(
                "cust" ,
                Edit5->Text.c_str() ,
                Edit6->Text.c_str(),
                "./cust/cust"
                );


                char fpname[40];
                sprintf(fpname,"./cust/%s",Edit5->Text.c_str());
                fp = fopen(fpname,"w");
                fprintf(fp,Memo13->Text.c_str());
                fclose(fp);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::del_keHU_BitBtn4Click(TObject *Sender)
{
      FILE *fp;
 CreateDir("./cust/");
         WritePrivateProfileString(
                "cust" ,
                "000000" ,
                "222222",
                "./cust/cust"
        );

        char strtmp[10],str[1000];

        //  ShowMessage( str1);
               WritePrivateProfileString(
                "cust" ,
                Edit5->Text.c_str() ,
                NULL,
                "./cust/cust"
                );


                char fpname[40];
                sprintf(fpname,"./cust/%s\0",Edit5->Text.c_str());
                DeleteFile(fpname);
                //fp = fopen(fpname,"w");
                //fprintf(fp,Memo13->Text.c_str());
                //fclose(fp);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::kehu_listvi_chang(TObject *Sender, TListItem *Item,
      TItemChange Change)
{
        FILE *fp;
        char str[1024] ,str2[10240];
        memset(str2,0,sizeof(str2));
        int i,j;
        if(Item->Selected==true)
        {
                 strcpy(str2,Item->SubItems->Text.c_str());
                 char tmps[1024];
                 memset(tmps,0,sizeof(tmps));
                 getstring(str2,2,tmps,'\n');
                 i=strlen(tmps)-1;
                 tmps[i]='\0';
                 char fname[40];
                 strcpy(fname,"./cust/");
                 strcat(fname,tmps);
                 j=i+2;
                 Edit5->Text=tmps;
                 getstring(str2,3,tmps,'\n');
                 i=strlen(tmps)-1;
                 j=j+i+2+3;
                 tmps[i]='\0';
                 Edit6->Text=tmps;
                 //Memo13->Text= (char *)&str2[j];

                 FILE *fptmp;
                 if((fptmp=fopen(fname,"r"))==NULL) ShowMessage(fname);
                 i=strlen(fname);
                 //ShowMessage(IntToStr(i));
                 //ShowMessage(fname);
                 memset(str2,0,sizeof(str2));
                  i=0;
                 while(!feof(fptmp))
                 {
                    str2[i]=fgetc(fptmp);
                    if(str2[i]=='\n') {str2[i]='\r'; i++;str2[i]='\n'; }
                    i++;
                    /*
                    memset(tmps,0,sizeof(tmps));
                    fgets(tmps,1024,fptmp);
                    strcat(str2,tmps);
                    strcat(str2,"\n");
                    */
                 }
                 Memo13->Text=  str2 ;
                 fclose(fptmp);

                  //Memo13->Text= (char *)&str2[j];

        }
        /*
        if((fp = fopen("./cust/cust","r"))==NULL){   return ;}
        //Item->SubItems->Text
        fgets(str,1024,fp);
        fgets(str,1024,fp);
        int i=0;

        for(i=0;i<=Item->Index;i++)
        {
                 
                   memset(str,0x00,sizeof(str));
                   fgets(str,1024,fp);
                   AnsiString ssss;
                  ssss=str;
                 //ShowMessage( ssss);
                 if(strlen(str)<=1) continue;
                 char code[20],neirong[1000];

                 getstring(str, 1,code,'=')  ;
                 Edit5->Text=code;
                 GetPrivateProfileString("cust",code,"happy today to you!",neirong,1000, "./cust/cust");
                 Edit6->Text=neirong;
                 FILE *fptmp;
                 char str2[1024],filename[40];
                  memset(filename,0x00,sizeof(filename));
                 sprintf( filename,"./cust/%s",code);
                 if((fptmp=fopen(filename,"r"))==NULL) {ShowMessage(code); fclose(fp); return;}
                 memset(neirong,0x00,sizeof(neirong));
                 fgets(str2,1024,fptmp);
                 strcpy(neirong,str2);  //ShowMessage(neirong);

                 while (!feof(fptmp))
                {
                         memset(str2,0x00,sizeof(str2));
                         fgets(str2,1024,fptmp);
                         strcat(neirong,str2);

                }
                fclose(fptmp);
                Memo13->Text= neirong;

        }