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 strutils.dupestring - 反复字符串

Delphi 实现窗口与任务栏右下角对齐

Delphi通过代码实现模拟按键的函数

Delphi跨平台tcp库的封装

Delphi杀进程的两种方式

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi xe andriod 文件后缀对应mime类型

Delphi的tservice的windows�入桌面切�q

Delphi sqlite 自动编号的实现

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

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

转载请注明出处：木庄网络博客 » Delphi png 图片的十六进制字符流