Discussion :

[KlausGunther]

Merci, Paul ! Cela m'affiche un offset de 360, et ça pointe vers un mot qui est manifestement un lien vers un objet.

Donc, j'ai voulu aller une étape plus loin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
pic: TPicture;
 
 
  ofs1 := Integer(@Image1.Picture) - Integer(Image1);
  pic := TPicture(pinteger(integer(Image1)+ofs1)^);
  ofs2 := Integer(@pic.Bitmap) - Integer(pic);
  showmessage(inttostr(ofs1)+'  '+inttostr(ofs2));

Or, sur la ligne ofs2, le compilateur refuse avec le message "Variable requise"
J'enlève le "@" et ça passe, mais le résultat pour ofs2 est 6380, ce qui est bien sûr aberrant.

Qu'est-ce que j'ai mal compris ?

[Paul TOTH]

c'est normal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
property Bitmap: TBitmap read GetBitmap write SetBitmap;

et GetBitmap est une méthode statique privée, tu n'as pas moyen d'obtenir son adresse...sauf peut-être en passant par les RTTI pour trouver le setter de la propriété...ça pourrait fonctionner.

mais si tu sais que l'image contient un Bitmap, tu peux utiliser directement Graphic qui doit être un TBitmap dans ce cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
function TPicture.GetBitmap: TBitmap;
begin
  ForceType(TBitmap);
  Result := TBitmap(Graphic);
end;

tu peux le vérifier par className d'ailleurs

[KlausGunther]

Ok. Voici ce que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i: integer;
  p: pinteger;
  ofs1, ofs2: integer;
  pic: TPicture;
  graphic: TGraphic;
  bitmap: TBitMap;
  flag: boolean;
..
  ofs1 := Integer(@Image1.Picture) - Integer(Image1);
  pic := TPicture(pinteger(integer(Image1)+ofs1)^);
  ofs2 := Integer(@pic.Graphic) - Integer(pic);
  graphic := TGraphic(pinteger(integer(pic)+ofs2)^);
  bitmap := TBitMap(graphic);
  showmessage(inttostr(ofs1)+'  '+inttostr(ofs2)+'  '+bitmap.ClassName+'  '+inttostr(bitmap.Height));
  p := pinteger(bitmap);
...

L'offset vers pic.Graphic est calculé comme 12. La ClassName s'affiche bien comme TBitMap, et Height (et Width, d'ailleurs), sont bons. Maintenant, je dumpe 128 mots à partir de p, et voici le résultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
0: 01FA2194 = 0041D93C
1: 01FA2198 = 00000000
2: 01FA219C = 004117FD
3: 01FA21A0 = 00000000
4: 01FA21A4 = 00421818
5: 01FA21A8 = 01FA08A8
6: 01FA21AC = 0042183C
7: 01FA21B0 = 01FA08A8
8: 01FA21B4 = 00000001
9: 01FA21B8 = 0041D4BB
10: 01FA21BC = 01FA38A4
11: 01FA21C0 = 01FA21D4
12: 01FA21C4 = 00000000
13: 01FA21C8 = 20000000
14: 01FA21CC = 00000000
15: 01FA21D0 = 0000006A
16: 01FA21D4 = 0042278C
17: 01FA21D8 = 00000000
18: 01FA21DC = 00000000
19: 01FA21E0 = 01FA223C
20: 01FA21E4 = 01FA94D8
21: 01FA21E8 = 01FA94F8
22: 01FA21EC = 00000022
23: 01FA21F0 = 0000000A
24: 01FA21F4 = 00CC0020
25: 01FA21F8 = 00000000
26: 01FA21FC = 00423818
27: 01FA2200 = 01FA2194
28: 01FA2204 = 004237F4
29: 01FA2208 = 01FA2194
30: 01FA220C = 00239920
31: 01FA2210 = FFFFFFFF
32: 01FA2214 = 00000000
33: 01FA2218 = 00000000
34: 01FA221C = 00000000
35: 01FA2220 = 020007D0
36: 01FA2224 = 00000000
37: 01FA2228 = 00000000
38: 01FA222C = 01FA2194
39: 01FA2230 = 0185000F
40: 01FA2234 = 00000000
41: 01FA2238 = 0000002A
42: 01FA223C = 0041D000
43: 01FA2240 = 00000000
44: 01FA2244 = 0041FA38
45: 01FA2248 = 01FA21D4
46: 01FA224C = 01FA12C0
47: 01FA2250 = 01FA220C
48: 01FA2254 = 80000008
49: 01FA2258 = 00000060
50: 01FA225C = 00000000
51: 01FA2260 = 01FA2260
52: 01FA2264 = 01FA2260
53: 01FA2268 = 00000FF4
54: 01FA226C = 35037468
55: 01FA2270 = 61430702
56: 01FA2274 = 6F697470
57: 01FA2278 = 5416066E
58: 01FA227C = 5F747365
59: 01FA2280 = 50746547
60: 01FA2284 = 75746369
61: 01FA2288 = 64416572
62: 01FA228C = 73657264
63: 01FA2290 = 6F430573
64: 01FA2294 = 07726F6C
65: 01FA2298 = 426C6309
66: 01FA229C = 61466E74
67: 01FA22A0 = 460C6563
68: 01FA22A4 = 2E746E6F
69: 01FA22A8 = 72616843
70: 01FA22AC = 07746573
71: 01FA22B0 = 4645440F
72: 01FA22B4 = 544C5541
73: 01FA22B8 = 4148435F
74: 01FA22BC = 54455352
75: 01FA22C0 = 6E6F460A
76: 01FA22C4 = 6F432E74
77: 01FA22C8 = 07726F6C
78: 01FA22CC = 576C630C
79: 01FA22D0 = 6F646E69
80: 01FA22D4 = 78655477
81: 01FA22D8 = 6F460B74
82: 01FA22DC = 482E746E
83: 01FA22E0 = 68676965
84: 01FA22E4 = 09F50274
85: 01FA22E8 = 746E6F46
86: 01FA22EC = 6D614E2E
87: 01FA22F0 = 4D0D0665
88: 01FA22F4 = 61532053
89: 01FA22F8 = 5320736E
90: 01FA22FC = 66697265
91: 01FA2300 = 6E6F460A
92: 01FA2304 = 74532E74
93: 01FA2308 = 0B656C79
94: 01FA230C = 6C4F0E00
95: 01FA2310 = 65724364
96: 01FA2314 = 4F657461
97: 01FA2318 = 72656472
98: 01FA231C = 6E4F0808
99: 01FA2320 = 61657243
100: 01FA2324 = 0A076574
101: 01FA2328 = 6D726F46
102: 01FA232C = 61657243
103: 01FA2330 = 500D6574
104: 01FA2334 = 6C657869
105: 01FA2338 = 72655073
106: 01FA233C = 68636E49
107: 01FA2340 = 540A6002
108: 01FA2344 = 48747865
109: 01FA2348 = 68676965
110: 01FA234C = 000D0274
111: 01FA2350 = 6D495406
112: 01FA2354 = 06656761
113: 01FA2358 = 67616D49
114: 01FA235C = 4C043165
115: 01FA2360 = 02746665
116: 01FA2364 = 6F540340
117: 01FA2368 = 05500270
118: 01FA236C = 74646957
119: 01FA2370 = 06690268
120: 01FA2374 = 67696548
121: 01FA2378 = 69027468
122: 01FA237C = 54060000
123: 01FA2380 = 6562614C
124: 01FA2384 = 614C066C
125: 01FA2388 = 316C6562
126: 01FA238C = 66654C04
127: 01FA2390 = 01500374
128: 01FA2394 = 706F5403

Mon objet Bitmap est reconnu, mais il ne connaît ni Scanline ni Pixels. Refus du compilateur. Et je n'arrive pas à identifier ma bitmap dans le dump. J'ai encore dû rater quelque chose...

[Paul TOTH]

Mon objet Bitmap est reconnu, mais il ne connaît ni Scanline ni Pixels. Refus du compilateur. Et je n'arrive pas à identifier ma bitmap dans le dump. J'ai encore dû rater quelque chose...

ça c'est juste que tu as l'unité Windows dans le uses mais pas l'unité Graphics

mais je doute que tu puisses manipuler le Bitmap ceci dit, son code est assez complexe.