Resourcen DLL's

[Luki206]

Ok, ich habe jetzt meinen Code verbessert aber jetzt bekomme ich angezeigt das die Bitmap ungültig sei. Neuer Code:

Delphi-Quellcode:

procedure TFrmHaupt.PictLoad(Pic: string);
var
   h :HINST;
   r :TResourceStream;
   b : Tbitmap;
begin
   h := LoadLibrary('LW_MP_GRA1.dll');
   if h <> 0 then
   try
     r := TResourceStream.Create(h, Pic, RT_BITMAP);
     b := Tbitmap.Create;
     try
       b.LoadFromStream(r);
       ImgButtonStore.Picture.Bitmap := b;
     finally
       b.Free;
       r.Free;
     end;
   finally
     FreeLibrary(h);
   end;
end;

[Sir Rufo]

Zeig uns doch mal die dazugehörige .rc Datei

[Luki206]

Ich habe sie in .txt gemacht weil sonst hätte ich sie ja nicht hochladen können

[Sir Rufo]

So hätte es auch gereicht, gelle?

Code:

Bitmap_1 BITMAP "..\\..\\..\\..\\Pictures\\L-Write\\Media Player Store Button.bmp"
Bitmap_2 BITMAP "..\\..\\..\\..\\Pictures\\L-Write\\Media Player Store Button_hint.bmp"

[Luki206]

Ja, heut ist nicht mein Tag

[himitsu]

TBitmap.LoadFromResourceName

War es nicht so, daß bei den Bitmap-Resourcen irgendwas mit einem "fehlenden" FileHeader war?
Bei LoadFromStream muß aber die komplette "Datei" vorhanden sein.



PS: LoadLibraryEx + LOAD_LIBRARY_AS_IMAGE_RESOURCE .... läd die DLL, ohne die Initialisationsroutine auszuführen.

[Luki206]

Ich verstehe nicht was du damit meins?