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

obinlunia 2018-09-19 11:22:55

想用一个按钮，点击后，获取这个 image.picture.data 里的这些代码 0A544... 这些，用字符串的形式。

请教应该怎么才能得到呢？

...全文

456 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

Frank.WU 2018-09-22

打赏
举报

为什么需要这个奇怪的东西呢？

ooolinux 2018-09-19

打赏
举报

界面设计的时候获取还是程序运行的时候获取？

wdonghai 2018-09-19

打赏
举报



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;