Delphi xe System.NetEncoding 字符串base64编码解码

本文整理自网络，侵删。

 


uses System.NetEncoding;

procedure TForm1.Edit1Ch

ange(Sender: TObject);
begin
  Edit2.Text := TNetEncoding.Base64.Encode(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  Edit3.Text := TNetEncoding.Base64.Decode( Edit2.Text );
end;
 

相关阅读 >>

Delphi调用程序版本信息的方法

Delphi 同时激活两个窗体

Delphi firemonkey在画布上绘制 imagelist图像

Delphi 十六进制数转换十进制数

Delphi 日期相关总结20190702完结篇

Delphi listview1 图标不齐，错乱解决方法

win32全局钩子在Delphi下实现的关键技术

Delphi 62 进制的简单实现

Delphi raise 语句: 抛出异常

Delphi读取xml文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi xe System.NetEncoding 字符串base64编码解码