想用一個按鈕,點擊后,獲取這個 image.picture.data 里的這些代碼 0A544... 這些 ,用字串的形式。
請教應該怎么才能得到呢?

uj5u.com熱心網友回復:
界面設計的時候獲取還是程式運行的時候獲取?uj5u.com熱心網友回復:
你可以看一下幫助中ComponentToString的例子,就是把組件持久化,轉換成文本描述,實際上CB、Delphi的IDE就是利用持久化技術把可視化表單轉換為文本保存的。uj5u.com熱心網友回復:
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;
uj5u.com熱心網友回復:
為什么需要這個奇怪的東西呢?轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/37858.html
標籤:語言基礎/算法/系統設計
上一篇:求Delphi xe7學習資料
