unit2.~cpp

学校和学生家长用短信及时沟通学生在校情况或及时把有关通知、重要信息发布给学生家长。

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
#include "registry.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::sbOkClick(TObject *Sender)
{
   int i,j,p,counter;
   char AtCgsn[]="AT+CGSN\r";
   char rCode[20];
   Byte bb;
   String ss;
   DynamicArray<byte> ByteSend;
   TRegistry *rg;

   Form1->CommOpen();
   Form1->SmsRcv="";
   ByteSend.Length=8;
   for(i=0;i<8;i++)
      ByteSend[i]=AtCgsn[i];
   Form1->Comm1->OutputByte(ByteSend);
   Sleep(200);
   counter=0;
   while((p=Form1->SmsRcv.Pos("\r\n"))==0&&counter<100){
      Application->ProcessMessages();
      counter++;
   }
   if(counter>=100){
      return;
   }
   Form1->SmsRcv.Delete(1,p+1);
   ss=Form1->SmsRcv.SubString(1,15);
   //
   strcpy(rCode,ss.c_str());
   for(i=0;i<31;i++){
      bb=(rCode[0]+rCode[5]+rCode[7]+rCode[13])&0xff;
      while(bb>=0x1a)
         bb-=0x1a;
      bb+=0x41;
      for(j=0;j<14;j++){
         rCode[j]=rCode[j+1];
      }
      rCode[14]=bb;
   }
   ss=rCode;
   if(ss==edRegCode->Text){
      ShowMessage("注册成功,谢谢您！");
      rg=new TRegistry();
      rg->RootKey=HKEY_LOCAL_MACHINE;
      //
      rg->OpenKey("\\Software\\SchoolSms",True);
      rg->WriteString("CopyRight","ChangDeCheng");
      rg->WriteString("Version","05.20");
      rg->WriteString("Serial",ss);
      //
      rg->CloseKey();
      rg->Free();
      Form1->Comm1->PortOpen=false;
      Hide();
   }
   else{
      ShowMessage("注册码错误，注册不成功！");
      Form1->Comm1->PortOpen=false;
   }
   //
}
//---------------------------------------------------------------------------

void __fastcall TForm2::sbEscClick(TObject *Sender)
{
   Hide();
}
//---------------------------------------------------------------------------