怎么得到Timage的Picture.Data里的数据

Question

想用一个按钮，点击后，获取这个 image.picture.data 里的这些代码 0A544... 这些 ，用字符串的形式。请教应该怎么才能得到呢？

Answer 1

你可以看一下帮助中ComponentToString的例子，就是把组件持久化，转换成文本描述，实际上CB、Delphi的IDE就是利用持久化技术把可视化窗体转换为文本保存的。

Answer 2

function GhaphicToHex(AGraphic: TGraphic): string;
var
  stream,ms: TMemoryStream;
  bLen:Byte;
  iSize:LongInt;
  sName:string;
begin
  sName:=AGraphic.ClassName;
  bLen:=length(sName);
  stream := TMemoryStream.Create;
  stream.WriteBuffer(bLen,1);
  stream.WriteBuffer(sName[1],bLen);
  ms:=TMemoryStream.Create;
  AGraphic.SaveToStream(ms);
  ms.Position:=0;
  iSize:=ms.Size;
  stream.WriteBuffer(iSize,sizeof(iSize));
  stream.CopyFrom(ms,iSize);
  ms.Free;
  SetLength(Result, stream.Size * 2);
  BinToHex(stream.Memory, PChar(Result), stream.Size);
  stream.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Text:=GhaphicToHex(image1.Picture.Graphic);
end;