Lazarus中Base64的操作

最新推荐文章于 2025-02-23 15:18:23 发布

weixin_34416649

最新推荐文章于 2025-02-23 15:18:23 发布

阅读量156

点赞数

本文介绍在FreePascal中使用内置的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;