Base64 Delphi语言实现

Delphi语言实现的Base64编码/解码类 function Base64EncodeStr(const Value: string): string;   { Encode a string into Base64 format } function Base64DecodeStr(const Value: string): string;   { Decode a Base64 format string } function Base64Encode(pInput: pointer; pOutput: pointer; Size: longint): longint;   { Encode a lump of raw data (output is (4/3) times bigger than input) } function Base64Decode(pInput: pointer; pOutput: pointer; Size: longint): longint;   { Decode a lump of raw data }  

Base64.pas