本文整理自网络,侵删。
uses EncdDecd;
function EncodeFile(const FileName: string): AnsiString;var stream: TMemoryStream;begin stream := TMemoryStream.Create; try stream.LoadFromFile(Filename); result := EncodeBase64(stream.Memory, stream.Size); finally stream.Free; end;end;
来源:http://www.xuexidashi.vip/h-nd-1516.html#_np=125_826
相关阅读 >>
Delphi qr /条形码扫描仪应用示例代码(使用zxing,tframestand)
Delphi的tclientsocket组件和tserversocket组件(c/s)说明
Delphi xe7 新的并行库 system.threading
更多相关阅读请进入《Delphi》频道 >>