Mime / Base 64编码

Question

我需要一种方法将字符串编码为Delphi 7和PHP中的Mime / Base64

这两个编码器必须兼容:)

Answer 1

Indy-Project提供base64编码器/解码器类。您可以找到文档here。

对于PHP，您可以使用PHP内部函数base64_encode和base64_decode。

Answer 2

自Delphi 6以来，已经包含了EncdDecd单元;下面是它包含的Mime兼容base64功能。

这个cached post from FlexVN（original post并不总是在线）解释了如何使用EncdDecd单元在PHP和Delphi之间执行base64操作。

unit EncdDecd;

interface

uses Classes, SysUtils;

procedure EncodeStream(Input, Output: TStream);
procedure DecodeStream(Input, Output: TStream);
function  EncodeString(const Input: string): string;
function  DecodeString(const Input: string): string;

function  DecodeBase64(const Input: AnsiString): TBytes;
function  EncodeBase64(const Input: Pointer; Size: Integer): AnsiString;