PNGs oder Dateien allgemein in EXE einbinden und auslesen

[Medium]

Wozu überhaupt die DLL hier? Resource-DLLs nutzt man, wenn man die betreffenden Resourcen austauschbar halten muss (und selbst da ist diese Praxis mächtig aus der Mode gekommen) - das sehe ich hier irgendwie nicht gegeben. Also: Einfach an die EXE kleben und ab dafür, oder einfach die Bilder "as they are" in ein Unterverzeichnis, wenn sie denn separat vom Programm austauschbar bleiben sollen.

[DeddyH]

Ich habe gestern Abend unter Delphi 7 (die älteste Version, die ich noch habe) eine kleine Demoanwendung erstellt (mit DLL und den PngComponents). Falls noch Interesse besteht kann ich sie heute nach Feierabend ja mal hochladen.

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