Resourcen DLL's

[Luki206]

Ja kann ich machen ;) nur wie geht das jetzt mit den PNG's? Weil ich habe eben mich irgendwo reingelesen und habe auch schon probiert aber es geht nicht.. :( BZW. Ich bekomme Fehler zurück (bei dem Code der anderen)

[mkinzler]

Und würdest Du Dich nun Geheimnisverrat schuldig machen, wenn Du uns den Fehler nennen würdest?

[Luki206]

Nein, tut mir leid.. Ich hätte ihn auch genannt nur wurde ich eben abgelenkt und habe das vergessen, sorry.. Ich habe den Code aber erstmal mit Bitmaps probiert und hier ist der Code:

Delphi-Quellcode:

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

und hier der Fehler:

Code:

[dcc32 Fehler] haupt.pas(155): E2029 '(' erwartet, aber ')' gefunden
[dcc32 Fehler] haupt.pas(156): E2010 Inkompatible Typen: 'PWideChar' und 'tagBITMAP'

[Sir Rufo]

TResourceStream.Create

[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 :D

[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.