resource Dateien --> gelöst

[Bauer321]

Ich wollte einen kleinen Patcher für Minecraft machen, damit man schnell und einfach die version ändern kann jedoch klappt das leider nicht wie ich mir das wünsche.
Also ich habe eine resource datei(.res) in der ich die benötigten version habe.
Struktur sieht so aus:


Dann habe ich ein simples interface, das sieht in etwa so aus:

Da soll man dann einfach die Version auswähle könne nund Patch klicken

Dann bekomme ich immer diese Fehlermeldung:


Quellcode sieht so aus:

Code: Alles auswählen

unit umain;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TFMain }
 
  TFMain = class(TForm)
    bpatch: TButton;
    ComboBox1: TComboBox;
    procedure bpatchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Extractjar(rname:String);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  FMain: TFMain;
 
implementation
 
{$R *.lfm}
{$R res/minecraftjar.res}
 
{ TFMain }
 
procedure TFMain.bpatchClick(Sender: TObject);
begin
  if Combobox1.Text = 'Minecraft 1.5_01'
     then Extractjar('1501');
 
  if Combobox1.Text = 'Minecraft 1.4'
     then Extractjar('1400');
 
  if Combobox1.Text = 'Minecraft 1.3_01'
     then Extractjar('1201');
 
  if Combobox1.Text = 'Minecraft 1.2_02'
     then Extractjar('1202');
 
  if Combobox1.Text = 'Minecraft 1.1_02'
     then Extractjar('1102');
end;
 
procedure TFMain.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('Minecraft 1.5_01');
  ComboBox1.Items.Add('Minecraft 1.4');
  ComboBox1.Items.Add('Minecraft 1.3_01');
  ComboBox1.Items.Add('Minecraft 1.2_02');
  ComboBox1.Items.Add('Minecraft 1.1_02');
end;
 
procedure TFMain.Extractjar(rname:String);
var
  S: TResourceStream;
  F: TFileStream;
begin
  S := TResourceStream.Create(HInstance, rname, 'RT_RCDATA');
  F := TFileStream.Create(ExtractFilePath(ParamStr(0)) + rname, fmCreate);
  F.CopyFrom(S, S.Size);
  F.Free;
  S.Free;
end;
 
end.

Was mache ich falsch?
Also der Fehler scheint ja offensichtlich zu sein das er die Ressource nicht findet jedoch ist sie ja da wenn ich mit ResourceHacker nachschaue

[carli]

Code: Alles auswählen

procedure TFMain.bpatchClick(Sender: TObject);
begin
  if Combobox1.Text = 'Minecraft 1.5_01'
     then Extractjar('1501');
 
  if Combobox1.Text = 'Minecraft 1.4'
     then Extractjar('1400');
 
  if Combobox1.Text = 'Minecraft 1.3_01'
     then Extractjar('1201');
 
  if Combobox1.Text = 'Minecraft 1.2_02'
     then Extractjar('1202');
 
  if Combobox1.Text = 'Minecraft 1.1_02'
     then Extractjar('1102');
end;
 

Was mache ich falsch?
Also der Fehler scheint ja offensichtlich zu sein das er die Ressource nicht findet jedoch ist sie ja da wenn ich mit ResourceHacker nachschaue

Genau richtig.
Du gibst den Pfad zur Ressource ja auch nicht richtig an.

[Bauer321]

wie muss ich ihn denn angeben?
weil die resource heißt doch 1501 bzw 1400 und so weiter

[carli]

Die Ressource heißt 1033 und befindet sich in einer Baumstruktur.

[Bauer321]

und wie habe ich mit dieser baumstruktur umzugehen?

[carli]

Belies dich mal, wie ein Dateisystem funktioniert:
http://de.wikipedia.org/wiki/Verzeichnisstruktur" onclick="window.open(this.href);return false;

[Bauer321]

hilft mir bei der sache nicht weiter(zumindestens weiß ich nicht inwiefern es das tun soll)

Extractjar('RCDATA\1501\1033') --> geht nicht
Extractjar('1501\1033') --> geht nicht
Extractjar('1501/1033') --> geht nicht
Extractjar('RCDATA/1501/1033') --> geht nicht

mehr möglichkeiten kommen mir da so erstmal nicht in den sinn

[Bauer321]

Die Ressource heißt 1033 und befindet sich in einer Baumstruktur.

Ich hab nochmal bei ResHacker geguckt, die 1033 ist so ne Art Language-Code, die Ressource selber heißt aber 1501
auch wenn ich mit ResHacker die Resource umbennene ändert sich die 1501 aber nicht die 1033

[carli]

Weil die Ressource 1501\1033 heißt

noch nie was von Dateien Ordnern gehört?

[Bauer321]

natürlich schon was von ordnern gehört ich weiß wie ich dateipfade nutze usw und auf deine idee oder was auch immer mit 1501\1033 bin ich auch schon gekommen aber wenn ich das da einstze gehts trotzdem nicht

also so hab ich halt versucht und es geht aber trotzdem nicht:

Code: Alles auswählen

procedure TFMain.bpatchClick(Sender: TObject);
begin
  if Combobox1.Text = 'Minecraft 1.5_01' then Extractjar('1501\1033');
 
  if Combobox1.Text = 'Minecraft 1.4' then Extractjar('1400');
 
  if Combobox1.Text = 'Minecraft 1.3_01' then Extractjar('1201');
 
  if Combobox1.Text = 'Minecraft 1.2_02' then Extractjar('1202');
 
  if Combobox1.Text = 'Minecraft 1.1_02' then Extractjar('1102');
end;
 
procedure TFMain.Extractjar(rname:String);
var
  S: TResourceStream;
  F: TFileStream;
begin
  S := TResourceStream.Create(HInstance, rname, 'RT_RCDATA');
  F := TFileStream.Create(ExtractFilePath(ParamStr(0)) + rname, fmCreate);
  F.CopyFrom(S, S.Size);
  F.Free;
  S.Free;
end;

[carli]

Probiers mal damit:
http://www.freepascal.org/docs-html/rtl ... romid.html" onclick="window.open(this.href);return false;

[Bauer321]

wie bekomme ich denn die resource id?
da brauche ich doch sicherlcih noch ne funktion für oder?

ich habe übrigens eben versucht FindResource(HInstance, '1501\1033', 'RT_RCDATA'); zu benutzen und bekam eine 0 zurück laut beschreibung heißt das, dass die resource nicht gefunden werden konnte

[Socke]

wie bekomme ich denn die resource id?

Du kannst Ressourcen im allgemeinen entweder durch eine ID (natürliche Zahl) oder durch eine Zeichenkette identifizieren. Wenn du also eine ID vergeben hast, gibst du einfach nur diese an.

[DiBo33]

Übergebe dein Parameter nicht als String, sondern als integer und verwende TResourceStream.CreateFromId

desweiteren ist der Resourcetype nicht der String 'RT_RCDATA' sondern die Konstante RT_RCDATA.

Last but not least

Code: Alles auswählen

if Combobox1.Text = 'Minecraft 1.3_01' then Extractjar('1201');

schau die das mal ganz genau an.

[carli]

Die ID scheint in deinem Fall 1201 zu sein.
Aber dass du da nicht selber drauf kommst?