Delphi BASE64

Delphi 用于Base64编码的单元。 Function Base64Encode(InputData: String; Var OutputData: String): byte; {* 对数据进行BASE64编码，如编码成功返回Base64_OK | InputData:string - 要编码的数据 var OutputData: string - 编码后的数据 |} Function Base64Decode(InputData: String; Var OutputData: String): byte; {* 对数据进行BASE64解码，如解码成功返回Base64_OK | InputData:string - 要解码的数据 var OutputData: string - 解码后的数据 |}