void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdBase64Encoder1->CodeString(Memo1->Text);
AnsiString s = IdBase64Encoder1->CompletedInput();
int pos = s.Pos(";");
Memo2->Text = s.SubString(pos+1,s.Length()-pos);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
IdBase64Decoder1->CodeString(Memo2->Text);
AnsiString s = IdBase64Decoder1->CompletedInput(); // 如果不符合Base64规则,报错(Coding table entry not found)
int pos = s.Pos(";");
Memo2->Text = s;
Memo3->Text = s.SubString(pos+1,s.Length()-pos);
}
//---------------------------------------------------------------------------