Ressource komplett in Temp extrahieren

[taktaky]

Hallo,

hat jemand eine Idee, wie man .res komplett in Temp entpackt ohne die Verwendung von Findfirst Findnext Funktionen ?

<>

[Luckie]

Wozu FindFirst FindNext? Nimm die KLasse TResourceStream und speicher die Ressourcen im entspechenden Verzeichnis ab.

[taktaky]

Zitat von Luckie:

Wozu FindFirst FindNext? Nimm die KLasse TResourceStream und speicher die Ressourcen im entspechenden Verzeichnis ab.

Ich habe aber mehrere verschiedene Dateien
Für eine Datei ist klar :

Delphi-Quellcode:

implementation

{$R *.dfm}
{$R AlleDateien.res}
procedure TForm1.Button1Click(Sender: TObject);
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, 'Sounds', 'WAV');
  ResStream.SaveToFile('Sound1.wav');
  ResStream.Free;
end;

Wie kann ich alle Dateien in einen beliebigen Ordner entpacken ?

Eine ähnliche Funktion habe ich gefunden :
http://www.delphipraxis.net/internal...ct.php?t=61185


<>

[dominikkv]

und was ist daran so schwer das zu widerholen, mit ner anderen datei?

[Luckie]

Ich gehe mal davon aus, dass er eine allgemeine Routine schreiben will ohne die Dateinamen und Ressourcenbezeichner hardcodieren zu müssen. Es müssen also alle entsprechenden Ressourcen enumeriert werden. Und das ist das Problem, denke ich mal.

[taktaky]

Zitat von dominikkv:

und was ist daran so schwer das zu wiederholen, mit ner anderen Datei?

Die sind zuviel
---

Zitat von Luckie:

...Es müssen also alle entsprechenden Ressourcen enumeriert werden. Und das ist das Problem, denke ich mal.

Ich möchte die Dateien beim Entpacken nicht umbenennen. Das Ist kein Problem
Ich weiß was Du meinst (von z.B. wav1 zu wav1.wav)

[SirThornberry]

mal das übliche:
- Wie sieht dein bisheriger Quelltext aus
- An welcher Stelle genau kommst du nicht weiter
- Was hast du bisher alles schon versuchst (Welche Eigeninitiative hast du gezeigt)
- hast du dich mit dem Thema Ressourcen überhaupt schon befasst (anhand der Fragestellung hab ich das Gefühl das du einfach das bisher geposteten kopiert hast aber dich nicht mit dem Thema vertraut gemacht hast)

Wir sind da um zu helfen, nicht um die Arbeit für andere zu machen. Zeige Eigeninitiative dann helfen wir. Ansonsten such dir ein anderes Forum. Du müsstest langsam eigentlich verstanden haben das wir auch Initiative deinerseits sehen wollen. Aber davon ist nichts zu sehen.

[DeddyH]

[OT]@Nuclear-Ping: *nachobenzeig* (sry, ist der einzige Smiley, der einigermaßen passt), zufrieden? [/OT]

[taktaky]

Zitat von SirThornberry:

mal das übliche:
- Wie sieht dein bisheriger Quelltext aus
- An welcher Stelle genau kommst du nicht weiter
- Was hast du bisher alles schon versuchst (Welche Eigeninitiative hast du gezeigt)
- hast du dich mit dem Thema Ressourcen überhaupt schon befasst (anhand der Fragestellung hab ich das Gefühl das du einfach das bisher geposteten kopiert hast aber dich nicht mit dem Thema vertraut gemacht hast)

Wir sind da um zu helfen, nicht um die Arbeit für andere zu machen. Zeige Eigeninitiative dann helfen wir. Ansonsten such dir ein anderes Forum. Du müsstest langsam eigentlich verstanden haben das wir auch Initiative deinerseits sehen wollen. Aber davon ist nichts zu sehen.

Ich habe eine kleine Frage gestellt, bekomme ich 4 Fragen

Ok, mein lieber Freund
Um Dateien an exe zu binden und wieder entpacken und danach starten ist schon klar Leute

Es geht nur wie man mehere Dateien auf einmal entpacken mehr nicht

Ich möchte natürlich nicht den Code wiederholen

Delphi-Quellcode:

{$R *.dfm}
{$R AlleDateien.res}
procedure TForm1.Button1Click(Sender: TObject);
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(hInstance, 'index', RT_RCDATA); 
  if not FileExists(ExtractFilePath(ParamStr(0)) + 'index.htm') then ResStream.SaveToFile(ExtractFilePath(ParamStr(0)) + 'index.htm');
// ResStream.savetofile('c:\windows\temp\index.htm');
  if  fileexists(ExtractFilePath(ParamStr(0)) + 'index.htm') then
  ShellExecute(Handle, 'open',
  PChar(ExtractFilePath(ParamStr(0)) + 'index.htm')
  , nil, nil, SW_SHOWNORMAl)
  else ShowMessage('Die Datei konnte nicht geladen werden !');
  ResStream.Free;
end;

Der Code funktioniert super möchte ich aber den Weg verkurzen um die dateien von Ressource komplett zu entpacken
ohne den Code zu wiederholen :

Delphi-Quellcode:

ResStream := TResourceStream.Create(hInstance, 'index', RT_RCDATA); // RT_RCDATA
...
ResStream1 := TResourceStream.Create(hInstance, 'help', RT_RCDATA); // RT_RCDATA
...
ResStream2 := TResourceStream.Create(hInstance, 'kontakt', RT_RCDATA); // RT_RCDATA

// so will ich nicht, obwohl es so mein Problem löst ;)

[Luckie]

Davon rede ich doch die ganze Zeit, du musst in einer Schleife alle Ressourcen vom Typ RC_DATA durchgehen / enumerierem. Da gibt es bestimmt eine entsprechende API-Funktion. Mit FindFirst, FindNext hat das aber gar nichts zu tun.