Delphi 对应JAVA的BASE64位加密处理

//应用delphi自带的EncdDecd单元

procedure TForm1.btn3Click(Sender: TObject);
var
s: string;
begin
s := ‘abcdefg';
s := AnsiToUtf8(s);
s := EncodeString(s);   //DecodeString
showmessage(s);
end;