clq
浏览(623) -
2020-10-01 13:14:35 发表
编辑
关键字:
https://www.cnblogs.com/China3S/p/3290329.html
Lazarus中Base64的操作
在字符串处理中，我们经常需要对文件编码然后再进行传输，通常会使用base64编码，在FreePascal中默认集成了这个单元，我们来介绍如何使用：
首先需要在引用单元的时候使用： use base64;
1.解密加密函数
这个函数直接对字符串进行解密、加密操作，非常简单：
procedure TForm1.Button1Click(Sender:TObject);
begin
Memo1.Text:= EncodeStringBase64(Memo1.Text);
end;
procedure TForm1.Button2Click(Sender:TObject);
begin
Memo1.Text:= DecodeStringBase64(Memo1.Text);
end;
2.文件字节流操作
这里直接贴出代码：
var
B64: TBase64EncodingStream;
s:TFileStream;
st:TSTringStream;
TempStr:String;
ccount: integer;
begin
if OpenDialog1.Execute then
s :=TFileStream.Create(OpenDialog1.FileName,fmOpenRead)
else
Exit;
st :=TSTringStream.Create('');
try
B64 := TBase64EncodingStream.Create(st);
try
Memo1.Lines.Clear;
// B64.WriteBuffer(s, s.Size);
SetLength(TempStr, s.Size);
s.Read(tempStr[1], s.Size);
ccount := s.Size;
B64.Write(tempStr[1], ccount);
ShowMessage(tempstr);
Memo1.Lines.Add(st.DataString);
finally
B64.Free;
end;
finally
s.Free;
st.Free;
end;
是不是非常简单。
本帖子属于以下条目()
NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.
