![]() |
TResourceStream - BITMAP - Verständnisfrage
Liste der Anhänge anzeigen (Anzahl: 1)
Moin moin,
gegeben ist folgende RC Datei:
Code:
Wenn ich mit
TESTONE BITMAP "one.bmp"
TESTTWO BMP "one.bmp"
Delphi-Quellcode:
den Stream erstellen will, bekomm ich einen Fehler. (Resource TESTONE wurde nicht gefunden)
... TResourceStream.Create(hInstance, 'TESTONE', 'BITMAP');
Mit
Delphi-Quellcode:
funktioniert es.
... TResourceStream.Create(hInstance, 'TESTTWO', 'BMP');
Ich hab mal zum nachstellen ein kleines Demoprojekt angehangen. Kann mir jemand erklären, warum das so ist? NACHTRAG: Bei LoadBitmap ist es genau anders herum:
Delphi-Quellcode:
Bmp.Handle := LoadBitmap(hInstance, 'TESTONE'); // funktioniert
Bmp.Handle := LoadBitmap(hInstance, 'TESTTWO'); // funktioniert nicht |
Re: TResourceStream - Verständnisfrage
BITMAP in der Ressource ist ein reserviertes Wort für den Typ Bitmap welcher in Delphi die Constante RT_BITMAP haben müsste.
|
Re: TResourceStream - Verständnisfrage
Ok, erstmal danke aber
Delphi-Quellcode:
gibt mir jetzt den Fehler: Bitmap ist ungültig
rs := TResourceStream.Create(hInstance, 'TESTONE', RT_BITMAP);
Auch die Reduzierung auf 256 Farben bringt keine Änderung. Es muss doch dafür eine Erklärung geben? Luckie hat ![]() |
Re: TResourceStream - BITMAP - Verständnisfrage
wie bereits erwähnt ist der Typ "BITMAP" ein reservierter. Dabei wird die Datei nicht wie üblich einfach 1 zu 1 in die Ressource übernommen. Daher funktioniert es wohl mit dem Laden aus einem RessourceStream nicht weil eben nur noch die notwendigsten Infos in der Ressource sind (bei meinen Tests war die Ressource 14 Byte kleiner als das eigentliche Bild).
Du kannst die Bitmapressource aber wie folgt laden:
Delphi-Quellcode:
var
lBmp : TBitmap; begin lBmp := TBitmap.Create(); try lBmp.LoadFromResourceName(HInstance, 'TESTONE'); //do something like that: Image1.Picture.Graphic := lBmp; finally lBmp.Free; end; |
Re: TResourceStream - BITMAP - Verständnisfrage
Hallo Jens,
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz