mysqlto_base64⾃动换⾏_BASE64官⽅⽅法,我⾃⼰⽤的,
注意记住换⾏问题。
TBase64Encoding.Base64.Encode(str)
TBase64Encoding.Base64.Decode(str)
所以我们再⽤的时候如果要去除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.
奥迪官方网惨痛的经历如下:adstring 是按⾏读取的。有换⾏则会被截断。
发布评论