Exe aus Ressoruce extrahieren

[Aljoscha]

Hi.
Ich versuche verzweifelt eine Ressource (exe Datei) zu extrahieren.
Ist ein simples Testprogramm das keine andere Funktion hat.
Ich habe es angehängt, weil es einfach nicht klappen will.
Die Ressource kann NIE gefunden werden, egal was ich angebe.

Delphi-Quellcode:

Var
 MeinFileStream: TFileStream;
 RS: TResourceStream;
begin
SaveDialog1.Execute;

 RS := TResourceStream.Create(
   Form1.Handle,     // Handle deiner Anwendung/DLL
   '1',  // Name der Ressource
   RT_RCDATA);    // in diesem Fall ist es ein RCDATA resource type

 MeinFileStream:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
 MeinFileStream.CopyFrom(RS, RS.Size);
 MeinFileStream.Free;

Die Ressource 1 kann nie gefunden werden.
Wäre nett wenn jemand mein Beispiel im Anhang korrigieren könnte.

thx 4 help

[3_of_8]

Ich kenn mich damit nicht so aus, aber vielleicht:

Application.Handle

statt

Form1.Handle

?

[teebee]

'hInstance' statt Form.Handle könnte funktionieren,

Gruß, teebee

[Aljoscha]

Nein beides schon probiert :(
Scheint nicht am Quellcode zu liegen.
Wäre nett wenn jemand sich den Anhang mal angucken könnte :)
thx

[Jens Schumann]

Hallo,
probier es mal damit.

Delphi-Quellcode:

...
var
  Path : String;
  aRes : TResourceStream;
begin
  Path:=ExtractFilePath(Application.ExeName);
  Path:=IncludeTrailingBackSlash(Path);
  aRes:=TResourceStream.Create(hInstance,'MYEXE','EXEDATA');
  Try
    aRes.SaveToFile(Path+'test.exe');
    ShellExecute(Handle,'open',PChar(Path+'test.exe'),Nil,Nil,SW_SHOW);
  Finally
    aRes.Free;
    end;
end;

Code ist getestet und funktioniert

Hier die Resourcendatei

Code:

MYEXE EXEDATA "test.exe"

[Aljoscha]

WUNDERBAR!
ICh hatte schon so gut wie aufgegeben :)
Vielen Dank dir!

[ferby]

Hallo,

ich habe es bis jetzt auch nicht zusammengebracht eine datei aus dem res der exe zu extrahieren.

ich habe den Quellcode ausprobiert, bei mir kommen die fehler:

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch
[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden



kann mir da wer weiter helfen?

[MathiasSimmack]

Zitat:

Zitat von ferby

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch

Liegt nur an deinem Delphi. Kannst du ignorieren, wenn dein Programm eine Win32-Exe bleiben soll. Die Warnung ist so ein "Vorgeschmack" auf .NET. ;)

Zitat:

[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Delphi-Quellcode:

uses
  ShellAPI;

[mirage228]

Zitat:

Zitat von MathiasSimmack

Zitat:

Zitat von ferby

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch

Liegt nur an deinem Delphi. Kannst du ignorieren, wenn dein Programm eine Win32-Exe bleiben soll. Die Warnung ist so ein "Vorgeschmack" auf .NET. ;)

In diesem Fall hat die Warnung nichts mit .NET zu tun, sondern mit der Linux Kompatibilität (Sprichwort: CLX) der VCL/RTL ab Delphi 6.
Edit: Es hindert aber Niemand einen daran, die Methode IncludeTrailingPathDelimiter zu verwenden, die dann auch mit der CLX und Linux kompatibel ist. ;)

mfG
mirage228

[Jens Schumann]

Zitat:

Zitat von ferby

Hallo,

ich habe es bis jetzt auch nicht zusammengebracht eine datei aus dem res der exe zu extrahieren.

ich habe den Quellcode ausprobiert, bei mir kommen die fehler:

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch
[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden



kann mir da wer weiter helfen?

Ich verwende immer noch D5. Da ist IncludeTrailingBackslash noch Ok. Ab D6 steht in der OH, dass man
IncludeTrailingPathDelimiter verwenden sollte.

[MathiasSimmack]

Zitat:

Zitat von mirage228

In diesem Fall hat die Warnung nichts mit .NET zu tun, sondern mit der Linux Kompatibilität (Sprichwort: CLX) der VCL/RTL ab Delphi 6.

Okay, mein Fehler. :stupid:

[ferby]

Hallo,

jetzt funktionierts bei mir,
ich habe eine Frage:
Was ist wenn ich nicht eine exe Datei sondern eine bellibige Datei aus dem ressource extrahieren will,
was muss ich da ändern?

Sobald es keine exe mehr ist findet er die ressource nicht mehr......

könnt ihr mir weiterhelfen?


ferby

[ferby]

Hallo,

ich verstehs nicht, wenn ich die datei z.b: eine txt datei als EXEDATA definiere dann gehts aber wenn ich rcdata verwende dann nicht, warum????


ferby

[MathiasSimmack]

Ich kann dir nicht ganz folgen. Hast du diese Textdatei denn auch in der Ressourcendatei als "RC_DATA" deklariert? Oder steht dort immer noch "EXEDATA". Es muss schon beides zusammenpassen.

[ferby]

Hallo,

nein dort habe ich es auch geändert. Ich verstehe es auch nicht ganz.....
aber es ist egal, es funktioniert mit exedata so wie ich will, wo ist eigentlich der unterschied ob ich exedata oder rc_data nehme??
denn bei mir geht mit exedata jede datei.......

??


ferby

[marabu]

RC_DATA ist ein definierter Resourcen-Typ (siehe MS PSDK), EXEDATA ist ein custom resource type - du kannst an der Stelle jeden nicht vordefinierten Namen verwenden.

Grüße vom marabu