AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ressource komplett in Temp extrahieren

Ein Thema von taktaky · begonnen am 23. Okt 2007 · letzter Beitrag vom 24. Okt 2007
Antwort Antwort
Seite 1 von 2  1 2   
taktaky
(Gast)

n/a Beiträge
 
#1

Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 19:30
Hallo,

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

<>
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 19:31
Wozu FindFirst FindNext? Nimm die KLasse TResourceStream und speicher die Ressourcen im entspechenden Verzeichnis ab.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
taktaky
(Gast)

n/a Beiträge
 
#3

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 19:52
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


<>
  Mit Zitat antworten Zitat
dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 20:38
und was ist daran so schwer das zu widerholen, mit ner anderen datei?
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 20:40
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
taktaky
(Gast)

n/a Beiträge
 
#6

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 21:17
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)
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 21:44
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Ressource komplett in Temp extrahieren

  Alt 23. Okt 2007, 23:26
[OT]@Nuclear-Ping: *nachobenzeig* (sry, ist der einzige Smiley, der einigermaßen passt), zufrieden? [/OT]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
taktaky
(Gast)

n/a Beiträge
 
#9

Re: Ressource komplett in Temp extrahieren

  Alt 24. Okt 2007, 00:53
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 ;)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

Re: Ressource komplett in Temp extrahieren

  Alt 24. Okt 2007, 09:39
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz