mysql to_base64自动换行_BASE64 官方方法，我自己用的，注意记住换行问题。

TBase64Encoding.Base64.Encode(str)

TBase64Encoding.Base64.Decode(str)

注意如果str很长,base64后的结果是每76个字符自动加入一个回车换行。

所以我们再用的时候如果要去除encode后的回车的话可以这样。

TBase64Encoding.Base64.Encode(abc).Replace(sLineBreak, '', [rfReplaceAll])；

--------------------------------------------------------

unitUnit4;interface

usesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.NetEncoding, Vcl.StdCtrls;typeTForm4= class(TForm)

btn1: TButton;

mmo1: TMemo;

btn2: TButton;

btn3: TButton;

lbl1: TLabel;procedurebtn1Click(Sender: TObject);procedurebtn2Click(Sender: TObject);procedurebtn3Click(Sender: TObject);private

{Private declarations}

public

{Public declarations}

end;constabc= '我靠奥迪发啊是打飞机阿萨德飞阿萨德飞机阿萨德加咖啡安静哦无人欧安度搜福艾薇儿拉开距离竟然玩阿萨德飞机爱打架佛奥迪发阿萨德飞接口拉上京东方啊是打飞机哦呜鹅肉微软奥士大夫';varForm4: TForm4;implementation

{$R *.dfm}

procedureTForm4.btn1Click(Sender: TObject);beginmmo1.Lines.Clear;

mmo1.Lines.Add(TBase64Encoding.Base64.Encode(abc));end;procedureTForm4.btn2Click(Sender: TObject);varwokao:string;beginwokao :=mmo1.Lines.Text;

mmo1.Lines.Add('--------');

mmo1.Lines.Add(TBase64Encoding.Base64.Decode(wokao));end;procedureTForm4.btn3Click(Sender: TObject);beginmmo1.Lines.Clear;

mmo1.Lines.Add(TBase64Encoding.Base64.Encode(abc).Replace(sLineBreak,'', [rfReplaceAll]));end;end.

惨痛的经历如下：ini.readstring 是按行读取的。有换行则会被截断。