Delphi png 图片的十六进制字符流


本文整理自网络,侵删。

 

uses pngimage;

{从 png 图片到十六进制字符串}
function Png2Hex(png: TPngImage): string;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  png.SaveToStream(stream);
  SetLength(Result, stream.Size * 2);
  BinToHex(stream.Memory, PChar(Result), stream.Size);
  stream.Free;
end;

{从十六进制字符串恢复 png 图片}
procedure Hex2Png(str: string; out png: TPngImage);
var
  stream: TMemoryStream;
begin
  if not Assigned(png) then png := TPngImage.Create;
  stream := TMemoryStream.Create;
  stream.SetSize(Length(str) div 2);
  HexToBin(PChar(str), stream.Memory, stream.Size);
  png.LoadFromStream(stream);
  stream.Free;
end;

{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  png: TPngImage;
begin
  png := TPngImage.Create;
  png.LoadFromFile('c:/temp/test.png');
  Memo1.Text := Png2Hex(png);
  png.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  png: TPngImage;
begin
  png := TPngImage.Create;
  Hex2Png(Memo1.Text, png);
  Canvas.Draw(0, 0, png);
  png.Free;
end;

来源:http://www.coder163.com/language/delphi/

相关阅读 >>

Delphi 一个线程安全的轻量级的日志类

Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能

Delphi中destroy, free, freeandnil, release用法和区别

Delphi动态创建一个鼠标指针图案

Delphi 简单的登录窗口

Delphi获取access中的表名代码

Delphi根据网络链接截取域名

Delphi adoconnection1连接mssql数据库方法

Delphi异常信息捕捉

Delphi中的record怎么动态分配内存?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...