這種code是屬於哪類? |
|
尚未結案
|
|
icu011
一般會員   發表：2 回覆：1 積分：0 註冊：2004-08-01 發送簡訊給我 |
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA6A6A6
4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4DA6A6A6FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FF4D4D4DD3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3
D3D34D4D4D4D4D4DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4D4D4D
D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D34D4D4DA6A6A64D4D4DFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFA6A6A64D4D4DD3D3D3D3D3D3D3D3D3D3D3D3D3
D3D34D4D4DA6A6A6A6A6A64D4D4DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
4D4D4DD3D3D3FFFFFFD3D3D3FFFFFFD3D3D3FFFFFF4D4D4DA6A6A6A6A6A64D4D
4DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4D4D4DD3D3D3FFFFFFD3D3D3FF
FFFFD3D3D3FFFFFF4D4D4DA6A6A6A6A6A64D4D4DFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF4D4D4DD3D3D3FFFFFFD3D3D3FFFFFFD3D3D3FFFFFF4D4D4DA6A6
A6A6A6A6A6A6A6FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4D4D4DD3D3D3FF
FFFFD3D3D3FFFFFFD3D3D3FFFFFF4D4D4DA6A6A64D4D4DFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF4D4D4DD3D3D3FFFFFFD3D3D3FFFFFFD3D3D3FFFF
FFA6A6A64D4D4DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4D
4D4DD3D3D3FFFFFFD3D3D3FFFFFFD3D3D3D3D3D34D4D4DFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA6A6A64D4D4D4D4D4D4D4D4D4D4D
4DA6A6A6A6A6A6FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} -----------------------------------------
像這種code有辦法還原嗎??或是怎麼取的原始內容呢??
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
Glyph 的型態是 TBitmap
應該可用操作 TBitmap 的方式來存取它
另外參考這篇: http://groups.google.com/groups?q=%22get+Glyph.Data%22&hl=zh-TW&lr=&ie=UTF-8&selm=MPG.f2aabc8b4f4be2f9896a2%40193.212.1.36&rnum=2
procedure CopyComponent(tc : TComponent);
var
ts1 : TStream;
ts2 : TStream;
p : PChar;
begin
{
Initialize all pointers to nil, this way we can
release them even if they're not allocated.
}
ts1 := nil;
ts2 := nil;
p := nil;
try
ts1 := TMemoryStream.Create;
ts2 := TMemoryStream.Create; { Put the component on the stream }
ts1.WriteComponent(tc);
{ Set position to start of stream so we can read it }
ts1.Seek(0, 0); { Convert component representation to text }
ObjectBinaryToText(ts1, ts2); { Set position to start of stream so we can read it }
ts2.Seek(0, 0);
{ Read the component representation into p }
p := AllocMem(ts2.Size 1);
ts2.Read(p^, ts2.Size); { Finally dump it to the clipboard }
Clipboard.AsText := StrPas(p);
finally
{ Clean up }
ts1.Free;
ts2.Free; {$IFDEF VER80}
NOTE! This will not work on Delphi 1, the call to
FreeMem needs the size of the memory to release
and will not allow FreeMem(nil)...
{$ENDIF}
FreeMem(p);
end;
end;
--
向 KTop 的弟兄們致敬!  發表人 - hagar 於 2004/08/03 15:41:11
|
|
icu011
一般會員 發表：2 回覆：1 積分：0 註冊：2004-08-01 發送簡訊給我 |
發表時間：2004-08-01 17:53:57
IP:218.175.xxx.xxx 未訂閱
系統時間：2024-06-28 18:51:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |