var
aa: string;
begin
IdBase64Encoder.key = 'yourkey';
Idbase64Encoder.codestring(edit1.text);
aa := Idbase64Encoder.CompletedInput;
showmessage(aa);
//aa为转换后的内容
end;
aa: string;
begin
IdBase64Encoder.key = 'yourkey';
Idbase64Encoder.codestring(edit1.text);
aa := Idbase64Encoder.CompletedInput;
showmessage(aa);
//aa为转换后的内容
end;
这是我的测试例子.
procedure TForm1.Button1Click(Sender: TObject);
var
bb, aa: string;
begin
IdBase64.Key := 'abc';
bb := IdBase64.CodeString(Edit1.Text);
aa := IdBase64.CompletedInput;
showmessage(aa);
end;
例: WANGKAI 转换后得 0;V0FOR0tBSQ==