indy base64 encode decode

来源:互联网 发布:淘宝进货技巧 编辑:程序博客网 时间:2024/05/29 18:32


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);
}
//---------------------------------------------------------------------------

0 0
原创粉丝点击