二进制文件的加密问题,谢谢!
李志林HZ 2002-11-07 09:22:00 如题,生成二进制文件的程序如下:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream* Stream = new TFileStream("c:\\1.dat", (WORD)fmCreate);
try
{
Stream->WriteComponent(RichEdit);
}
__finally
{
delete Stream;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
RegisterClass(__classid(TRichEdit));
TFileStream* Stream = new TFileStream("c:\\1.dat", (WORD)fmOpenRead);
try
{
Stream->ReadComponent(RichEdit);
}
__finally
{
delete Stream;
}
}
请各位帮忙,谢谢!