unit1.~cpp

电力645规约报文生成器

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

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

unsigned char tou[256];
unsigned char data[256];
unsigned char finish[512];
AnsiString tepmstr;
AnsiString tepmstr1;
AnsiString tepmHH;
for (int i=0;i< Edit1->Text.Length()/2;i++)
{
   tepmstr +=" "+Edit1->Text.SubString(i*2+1,2);
   tepmstr1+=Edit1->Text.SubString(i*2+1,2);
}
Edit3->Text ="FE FE FE FE"+tepmstr;
   AnsiString   Demstr;
   AnsiString   Demstr1;
   AnsiString   tem2str;

for (int i=0;i< Edit2->Text.Length()/2;i++)
{
   tepmHH =Edit2->Text.SubString(i*2+1,2);

  int   Hexstr=StrToInt("0x"+tepmHH)+0x33;

   tepmHH=     IntToStr(Hexstr);
   tem2str   =tepmHH.IntToHex(Hexstr,2);

   Demstr += " "+ tem2str.SubString(tem2str.Length()-1,2) ;
   Demstr1+=tepmHH.IntToHex(Hexstr,2) ;

}
Edit3->Text ="FE FE FE FE"+tepmstr+Demstr ;
Demstr1+= tepmstr1;
   unsigned char cs;
   cs=0;
for (int i=0;i< Demstr1.Length()/2;i++)
{
   cs+= StrToInt("0x"+Demstr1.SubString(i*2+1,2))  ;
}
   AnsiString   TEMPCS;

    tepmHH= cs;
     TEMPCS= tepmHH.IntToHex(cs,2);
     Edit3->Text=Edit3->Text+" "+TEMPCS+" 16";
        Edit3->SelectAll();
        Edit3->CopyToClipboard();
     //  FE FE FE FE 68 02 00 00 00 00 00 68 16 04 3C CC CC CC 8C 16
}
//---------------------------------------------------------------------------