eingebunde Resourcen abfragen (RCDATA)

[Namenloser]

Zitat von thomasschaf:

Dort, wo im Screenshot 99303 steht, könnte auch ein String stehen.

Im Anhang habe ich noch ein Beispiel erstellt.

Ah ok, dann hab ich das falsch gesehen, sorry. Dann sollte dein Beispiel aber eigentlich funktionieren.

Ist wirklich sicher, dass die Ressource auch in der Exe ist und du nicht mit Reshacker versehentlich die falsche Datei untersucht hast?

[himitsu]

Wie hast du diese Resource erstellt?

[thomasschaf]

Es ist sicher, dass ich die richtige Datei mit dem Resourcehacker geöffnet habe.

Zwei mögliche Probleme sehe ich:
- Ich arbeite mit Lazarus, nicht mit Delphi.
- Die Resource, die ich auslesen möchte, habe ich auch in die exe-Datei geschrieben (mit einem anderen Programm über UpdateResource).
-> Es könnte also sein, dass die Resource nicht "ordentlich" reingeschrieben worden ist, obwohl ich sie mit dem reshacker sehen kann (daher auch die Frage, ob es da noch Unterschiede/Spezialfälle gibt)
--> Wenn ich die Resource in die exe-Datei schreibe und diese starte, sieht das Design auch anders aus (siehe screenshot), es wurden also die Resourcen, die für das Design verantwortlich sind, entfernt?

[lbccaleb]

Es kann sein, dass das Design des Programms aus der Ressource geladen wird und du mit deiner veränderung selbiger, diese irgendwie zerstörst. Er somit die benötigten Daten nicht mehr bekommt.

Ich kann dir nur dazu raten, dich vorher mit Tutorials zu dem Thema Ressourcen zu befassen. Google ist da dein Freund

[thomasschaf]

Ich habe mich in der Zwischenzeit mit dem Thema Resourcen sehr ausgiebig beschäftigt, trotzdem kann ich mir nicht erklären, warum die Resource nicht gefunden werden kann, aber mit einem anderen Programm (Resource Hacker) angezeigt werden kann.

Könnte jemand vielleicht mit Delphi folgenden Code compilen und die exe hier im Forum anhängen ?

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
    ShowMessage('(1)');
    RS.Free;
    ShowMessage('(2)');
    SetString(Result, RS.Memory, RS.Size);
  except
    ShowMessage(SysErrorMessage(GetLastError));
    Result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := GetResValue(Edit1.Text);
  if (s <> '') then
    ShowMessage(s);
end;

mit folgenden Komponenten:
- Editfeld: "Edit1"
- Button: "Button1"

Dann könnte ich testen, ob es möglich ist, die Resource abzufragen, die ich in eine exe reinschreibe.

Grüße

[himitsu]

Zitat von thomasschaf:

Dann könnte ich testen, ob es möglich ist, die Resource abzufragen, die ich in eine exe reinschreibe.

Bringt nichts, da der Code eh nicht funktioniert.

Delphi-Quellcode:

    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
    ShowMessage('(1)');
    RS.Free;  // hier freigeben
    ShowMessage('(2)');
    SetString(Result, RS.Memory, RS.Size); // und hier das nicht mehr existierende Objekt verwenden wollen?
  except

[thomasschaf]

Ok, das war dumm von mir.

Der Fehler ist natürlich offensichtlich, ABER es wird ja noch nicht mal die ShowMessage (1) angezeigt.

Mit Hilfe von try-except und den ShowMessages kann ich ja herausfinden, dass das Programm hier abstürzt:

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);

// ------------- ## CUT ## -------------------------------------------------

    ShowMessage('(1)');
    RS.Free;
    ShowMessage('(2)');
    SetString(Result, RS.Memory, RS.Size);
  except
    ShowMessage(SysErrorMessage(GetLastError));
    Result := '';
  end;
end;

Woran kann das dann liegen *ratlos!*

[thomasschaf]

Könnte bitte jemand den Code mit Delphi kompilieren, mir die exe zukommen lassen (z.B. per Anhang hier im Forum).

Dann könnte ich überprüfen, ob ich die Resource richtig in das Programm reinschreibe.

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
    ShowMessage('(1)');
    SetString(Result, RS.Memory, RS.Size);
    ShowMessage('(2)');
    RS.Free;
    ShowMessage('(3)');
  except
    ShowMessage(SysErrorMessage(GetLastError));
    Result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := GetResValue(Edit1.Text);
  if (s <> '') then
    ShowMessage(s);
end;

Vielen Dank

[ASM]

Zitat von thomasschaf:

Mit Hilfe von try-except und den ShowMessages kann ich ja herausfinden, dass das Programm hier abstürzt:

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);

Woran kann das dann liegen *ratlos!*

Wenn die benötigte Resource als String vorliegt, kann es eigentlich nur sein, dass dieser String entweder als Eintrag in einem in der RC-Datei als RCDATA eingebundenem Textfile vorliegt oder aber Teil einer Stringtable ist. In beiderlei Form eingebracht haben die darin vorhandenen,individuellen Strings jedoch keine eigenen Resourcenamen.

In einer Stringtable sind die enthaltenen Strings mit einem (beliebigen, aber unterschiedlichen) numerischen Wert indiziert. Ausschließlich nur über diesen Index kann ein String aus der Stringtable abgerufen werden.

Liegt der String dagegen in einem als RCDATA eingebunden Textfile vor, muss diese Resource zuerst mit einem ResourceStream abgerufen werden, anschließend dieser ResourceStream in den Stream einer Stringlist übertragen werden und schließlich die Stringlist entsprechend der aktuellen Anforderung analysiert werden.

Ein einzelner String kann nicht singulär als RCDATA (oder als TXT) in den Resourcen eingebunden werden.

Das Vorgehen, einen einzelnen String aus den Resourcen unmittelbar mittels SetString(Result, RS.Memory, RS.Size) abzurufen, kann demnach nicht funktionieren (wobei es ansonsten ohnehin korrekt heißen müßte "pchar(RS.Memory)").

Wird nun eine RCDATA-Resource mit einem Namen aufgerufen, der aber gar nicht in den Resourcen existiert, dann führt das zu einer EResNotFound-Exception - eben wie ereignet..

Abhilfe:
Binde die Unit Resources ein (Quelle).
Prüfe dann mit Hilfe von ResourceExists() erst einmal, ob überhaupt entweder in einer Stringtable ein String unter dem genannten Index vorhanden ist oder eine RCDATA-Resource mit dem genannten Namen existiert. Erst wenn das erfolgreich bestätigt worden ist, rufe die entsprechenden Daten aus den Resourcen ab:

Code:

uses Resources;

// String in einer Stringtable
function ResourceExists(index: integer): Boolean; overload;
var
  buffer: array[0..255] of Char;
  s: string;
begin
  result := false;
  try
    if LoadString(HInstance, index, buffer, SizeOf(buffer)) > 0 then
      s := string(buffer);
    result := s <> '';
  except
    on e: exception do
      Showmessage('Error ' + e.message);
  end;
end;

// String in einer RCDATA-Resource
function ResourceExists(ResName: string): Boolean; overload;
var
  lpResource: TPEResource;
  resGroup: TPEResourceGroup;
begin
  result := false;
  resGroup := TPEResourceGroup.Create(HInstance, RT_RCDATA);
  try
    lpResource := resGroup.Find(pchar(resname));
    if lpResource <> nil then  result:=true;
  finally
    if Assigned(resGroup) then FreeAndNil(resGroup);
    resGroup.Free;
  end;
end;

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  RS := nil;
  RS := TResourceStream.Create(hInstance, ResName, RT_RCDATA);
  try
    SetLength(result, RS.Size);
    RS.Read(result[1], Length(result));
  finally
    RS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ResName: string;
  slResValue: TStringlist;
begin
  ResName := 'liste';  // Name der RCDATA-Resource!
  if ResourceExists(ResName) then
  begin
    slResValue:=TStringlist.Create;
    try
      slResValue.text := GetResValue(ResName);
      Showmessage(format('Strings in der Resource "%s":'#13#10'%s', [ResName, slResValue.text]));
      // ... und Stringlist nach Bedarf analysieren
    finally
      slResValue.Free;
    end;
  end
  else
    ShowMessage(format('RCDATA-Resource "%s" gibt es nicht!', [ResName]));
end;