AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language FreePascal eingebunde Resourcen abfragen (RCDATA)
Thema durchsuchen
Ansicht
Themen-Optionen

eingebunde Resourcen abfragen (RCDATA)

Ein Thema von thomasschaf · begonnen am 15. Mär 2012 · letzter Beitrag vom 19. Mär 2012
Antwort Antwort
ASM

Registriert seit: 15. Aug 2004
165 Beiträge
 
Delphi 7 Enterprise
 
#1

AW: eingebunde Resourcen abfragen (RCDATA)

  Alt 17. Mär 2012, 00:31
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;
Angehängte Dateien
Dateityp: pas Resources.pas (14,1 KB, 11x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#2

AW: eingebunde Resourcen abfragen (RCDATA)

  Alt 17. Mär 2012, 01:44
Nochmal:
Wie erstellst du diese Resource?

Langsam vergeht einem die Lust immer wieder jeden mehrmals erst nach dem Wichtigsten fragen zu müssen.
Diese Frage hatte schließlich einen guten Grund.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (17. Mär 2012 um 01:50 Uhr)
  Mit Zitat antworten Zitat
thomasschaf
(Gast)

n/a Beiträge
 
#3

AW: eingebunde Resourcen abfragen (RCDATA)

  Alt 17. Mär 2012, 10:48
Hallo,

entschuldige himitsu. (Ich habe die verstecke Nachricht übrigens auch gelesen).
Du hast völlig recht, nach weiteren Versuchen konnte ich feststellen:
das Problem liegt definitiv darin, wie die Resource in die Exe geschrieben wird.

Dazu die Funktion:
Delphi-Quellcode:
function SetRes(filename, resname, resvalue: string; langid: word;
  delex: boolean): boolean;
var
  hUpdate: THandle;
  Size: DWord;
begin
  hUpdate := BeginUpdateResource(PChar(filename), delex);
  if (hUpdate <> 0) and (hUpdate <> INVALID_HANDLE_VALUE) then
  begin
    try
      Size := Succ(Length(resvalue)) * SizeOf(char);
      Result := UpdateResource(hUpdate, RT_RCDATA, PChar(resname),
        langid, PChar(resvalue), Size);
    finally
      EndUpdateResource(hUpdate, False);
    end;
  end;
end;

// Aufruf:
SetRes(f2, Edit1.Text, Edit2.Text, StrToInt(Edit3.Text), CheckBox1.Checked)
// Rückgabewert ist immer True.

Beispiel:
Edit1.text = TEST
Edit2.text = Hallo
Edit3.text = 0
checkbox1.checked = false

---

Nun erhalte ich aber, wenn ich versuche die Datei zu öffnen, in die ich geschrieben habe, sofort die Fehlermeldung siehe Anhang.
Angehängte Grafiken
Dateityp: png Screenshotcaek.png (7,5 KB, 9x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#4

AW: eingebunde Resourcen abfragen (RCDATA)

  Alt 19. Mär 2012, 09:12
Prüf mal, ob die LangID stimmt.
Diese Resource-Funktionen gehn immer nur auf eine Sprache los.
Wenn also eine andere Sprache angegeben wurde, dann kann das natürlich nicht gefunden werden.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
thomasschaf
(Gast)

n/a Beiträge
 
#5

AW: eingebunde Resourcen abfragen (RCDATA)

  Alt 19. Mär 2012, 22:17
Die Langid ist bei den anderen Resourcen 1033, deswegen habe ich die auch mal ausprobiert.
Leider hat es nicht funktioniert.

Das folgende Problem tauch aber unabhängig davon immer auf:
Nur ein Teil der ReadProcessMemory- oder WriteProcessMemory wurde abgeschlossen

Und zwar sofort nachdem ich die modifizierte EXE starte.
Es ist eine Windows-interne Fehlermeldung.
(siehe Anhang letzten Posts von mir)


Ich mache durch meine Funktion SetRes also die exe (hier: filename) kaputt, wie es scheint.

Ich würde mich freuen, falls es doch noch möglich ist, das Problem zu lösen.
Angehängte Grafiken
Dateityp: png Screenshotcx3x.png (21,7 KB, 11x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort

 

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 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz