Bild über Ressource-Dll laden

[sakura]

Dein erstes Beispiel wird unter keinen Umständen funktionieren, da die Daten im BITMAP Format anders hinterlegt werden. Möchtest Du Deine Methode nutzen, dann musst Du wie folgend vorgehen.

Code:

BILD1 RCDATA "images\logobig.bmp"

Delphi-Quellcode:

var
  h :HINST;
begin
  h := LoadLibrary('bitmaps.dll');
  if h <> 0 then
  try
    r := TResourceStream.Create(h, 'BILD1', RT_RCDATA);
    b := Tbitmap.Create;
    try
      b.LoadFromStream(r);
      Image1.Picture.Bitmap := b;
    finally
      b.Free;
      r.Free;
    end;
  finally
    FreeLibrary(h);
  end

......