PNGs oder Dateien allgemein in EXE einbinden und auslesen

[entwickler]

@ DeddyH
Klar, immer her damit!

@ wicht
Klingt logisch, habs in ne Prozedur gepackt:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : word;
begin
    for i := 1 to 493 do
      Memo.Lines.Add(inttostr(i) + ' RCDATA "' + inttostr(i)+ '.png"');
    Memo.Lines.SaveToFile('C:\Pokemon\Pokedex.rc');  // oder wohin auch immer
end;

War jetzt auch keine große Herausforderung

[DeddyH]

Komisch, mein Code zur Erstellung der Ressource sah beinah genauso aus . Das Projekt kann ich aber erst heute Abend hochladen, da ich es wie gesagt nur zu Hause habe.

[entwickler]

Nicht schlimm, hauptsache es kommt

Übrigens, wie kann ich die Ressource den als Datei aus der exe heraus speichern (z. B. Pokedex.png als PNG- Datei speichern, oder auch eine exe oder dll)?

[DeddyH]

Mit Streams sollte das recht einfach zu machen sein. Mit TResourceStream Ressource holen, in einen TFileStream oder TMemoryStream kopieren und als Datei abspeichern.

[entwickler]

Google hat mir folgendes Vorgeschlagen:

ResourceStream.Savetofile(''); geht das so ohne weiteres?

[DeddyH]

Scheint so, ich hatte übersehen, dass TResourceStream diese Methode ja bereits erbt. Damit entfällt dann auch der 2. Stream sowie das Kopieren.

[edit] So, hier ist das kleine Demo-Progrämmchen samt Ressourcen und der DLL. [/edit]

[entwickler]

Danke, DeddyH, die DLL funktioniert einwandfrei.
Und speichern kann ich die Dateien auch ganz leicht mit dem Einzeiler:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDLLHandle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'imagedll.dll'));
  Randomize;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if FDLLHandle <> 0 then
    FreeLibrary(FDLLHandle);
end;

procedure TForm1.LoadPokemon(Index: Cardinal; aPicture: TPicture);
var
  ResStream: TResourceStream;
  png: TPngObject;
begin
  Assert((FDLLHandle <> 0) and Assigned(aPicture));
  if (Index < 1) or (Index > MAXPICINDEX) then
    raise Exception.CreateFmt('Index muss zwischen 1 und %d liegen.', [MAXPICINDEX]);
  ResStream := TResourceStream.CreateFromID(FDLLHandle, Index, RT_RCDATA);
  try
    ResStream.Position := 0;
    png := TPngObject.Create;
    try

// Einzeiler:
      ResStream.Savetofile('D:\Projekt_Pokémon\Bild.png');  // oder wo auch immer

      png.LoadFromStream(ResStream);  
      aPicture.Assign(png);
    finally
      png.Free;
    end;
  finally
    ResStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadPokemon(Random(MAXPICINDEX) + 1, Image1.Picture);
end;

Danke nochmal an euch alle
Ihr habt mir echt weitergeholfen!

[entwickler]

So, jetzt habe ich neue Grafiken vom Kollegen gekriegt, die haben dieselbe Auflösung, sind nur besser komprimiert und auch an den richtigen Stellen transparent. Inhaltlich können die EXE und die dll dasselbe wie in dem Beispielprogramm von DeddyH. Die dll hat jetzt nur noch ca. 1/4 der Ursprungsgröße; ebenso wie die Pokedex.res: