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 动态创建一个ipedit控件

Delphi使用ado读写excel文件

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi获取其他进程中状态栏文本的函数

Delphi中将dbgrid中的内容输出到word中

Delphi 把字节数显示成kb或gb的函数

Delphi中执行javascript代码

Delphi 提升Delphi 启动加载速度

Delphi程序在每个windows 会话中只执行一次

Delphi is 与 as 运算符举例

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...