Icon mit CreateIconFromResourceEx aus Quelltext laden

[DGL-luke]

HxD Hexeditor ?

[NicoDE]

Zitat:

Zitat von Luckie

Gut, nehmen wir an, ich habe dann das Byte-Array. Wie geht es dann weiter?

Delphi-Quellcode:

Icon := CreateIconFromResource(PByte(@IconData[0]), SizeOf(IconData), True, $00030000);

[Reinhard Kern]

Zitat:

Zitat von Luckie

Dann hab eich ja wieder zwei Dateien. Also noch mal. Es handelt sich dabei um ein About-Fenster. In diesem Fenster möchte ich gerne mein Icon Anzeigen. Lade ich es aus einer Resourcen-Datei muss ich die Ressourcen-Datei immer mitschleppen und einbinden. Und genau das will ich eben nicht. Ich will nur diese eine Unit haben mit dem Fenster drinne.

Hallo,

brutal und ohne Knowhow:

nimm dein Icon, mach SaveToStream, mach einen Hexdump davon und formatiere das Ergebnis als Delphi const array of byte. In C ginge das leicher, Delphi ist für so was herzlich ungeeignet.

In deiner Unit erzeugst du eine TMemoryStream, kopierst das array rein und machst MyIcon.LoadFromStream.

Auf die Art musst du nicht wissen, wie ein Icon aufgebaut ist.

Gruss Reinhard

[Luckie]

Das Icon habe ich jett als Byte-Array:

Delphi-Quellcode:

ByteArray: array[0..3261] of Byte = (
    $00,$00,$01,$00,$01,$00,$20,$20,$00,$00,$01,$00,$18,$00,$A8,$0C,$00,$00,$16,$00,$00,$00,$28,$00,$00,$00,$20,$00,$00,
    $00,$40,$00,$00,$00,$01,$00,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C2,$C2,$C2,$A8,$A8,$A8,$A8,$A8,$A8,$C2,$C2,$C2,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    ...);

Aber hIcon ist leider null:

Delphi-Quellcode:

hIcon := CreateIconFromResource(PByte(@ByteArray[0]), SizeOf(ByteArray), True, $00030000);

GetLastError liefert auch null. :(

PS: Der Icon-Header ist da noch drinne, aber das sollte nichts machen, dann ist das Icon eben kaputt, was angezeigt wird, aber das sollte ihm egal sein.

[NicoDE]

Du sollst ja auch nicht die Icon-Datei in das Array packen, sondern die Daten eines Icons.
Entferne die ersten 22 Bytes (alles vor $28), dann sollte es gehen.

edit: blöde Smilies :)
ps: Nein, das ist der Funktion nicht egal (sie erwartet einen gültigen BITMAP-Header (oder optional einen PNG-Header unter Vista))

[Luckie]

:firejump:

:kiss:

Es geht!

[NicoDE]

Zitat:

Zitat von Luckie

Es geht!

Alles wird gut.