Delphi image library

moin,

ich habe ein kleines spielchen unter delphi programmiert.
fuer animationen in dem spiel habe ich z.zt. bmp’s in einem gfx verzeichnis, die beim prgstart eingelesen werden.

ich wuerde nun gerne diese bmp’s in eine library packen (also eine datei), welche moeglichkeiten gibt es dort ausser einen file of TBitmap zu basteln, moeglichst gepackt, obwohl ne zip-routine auch nicht das ware waere :wink:

danke schonmal
Lars

Hi,

du kannst deine Bildchen als Ressource entweder mit in die Exe linken, oder in eine DLL auslagern.

z.B.

BITMAP01 BITMAP „error.bmp“

das Teil übersetzen mit brcc32 -r resourcefile.rc
Syntax musst noch mal nachschauen

in eine DLL linken,

library MyDLL;

uses
Windows;

{$R MYIMAGES.RES}

begin
end.

im Clientprogramm holen, z.B. so

procedure TForm1.Button1Click(Sender: TObject);
var
dllHandle: THandle;
thisBitmap: TBitmap;
begin
dllHandle := LoadLibrary(‚bitmapdll.dll‘ );

if dllHandle 0 then try
thisBitmap := TBitmap.Create;

try
thisBitmap.Handle := LoadBitmap(dllHandle, ‚BITMAP01‘ );

if thisBitmap.Handle 0 then
Image1.Picture.Bitmap.Assign(thisBitmap);
finally
thisBitmap.Free;
end;
finally
FreeLibrary( dllHandle );
end;
end;

ungetetstet, sollte aber prinzipiell funktionieren

Gruss und viel Erfolg

RQ