Resource-File in Tokyo mit TEXT

[HJay]

Ich upgrade gerade einige Projekte von XE7 zu 10.2 Tokyo. In einem Projekt verwende ich eine eigene Ressource als rc-Datei mit folgendem String-Inhalt:

Code:

codekey TEXT "codekey.txt"

Zugriff im Programm dann über

Delphi-Quellcode:

var ACodeKey : String;

{...} 

ACodeKey := GetResourceAsString('codekey', 'text');

Wenn ich nun bei Tokyo versuche, über "Projekt > Ressourcen und Bilder" diese Resource auf moderne Art einzubinden, so kann ich als Typ nicht TEXT auswählen, sondern RCDATA nehmen. Das Programm stürzt dann beim Zugriff auf die Resource ab.

Wie bindet man denn Text-Resourcen in Tokyo ein?

Ich habe auch versucht, alle möglichen Dateien (*res, otares, rc) zu löschen und sie von Tokyo neu aufbauen zu lassen, aber irgendwie klappt es nicht. In XE7 lief es tadellos.

[HJay]

Update: Ich habe jetzt das rc-File mit meiner TEXT-Resource manuell mit brcc32 zu einer Datei namens RESSOURCES.RES compiliert wie früher --- weiterhin Absturz.

Dann habe ich das Tokyo automatisch in die dpr-Datei nach der uses-Anweisung eingefügte {$R *.res } durch meinen Dateinamen ersetzt {$R RESSOURCES.RES } und VOR die uses-Anweisung verschoben und jetzt klappt es zum Glück wieder. Ich weiß aber nicht wirklich warum.

Frage: Muss bei Tokyo *.res eingebunden werden und was steht eigentlich in der von Tokyo selbst angelegten res-Datei? Genügt es wie oben angegeben in der dpr-Datei nur die eigene Ressource-Datei einzubinden?

Wie kann man TEXT-Resourcen anders als manuell einbinden?

[haentschman]

Moin...:P

Bei so viel Fragen ist ein Beispiel angebrachter. Anbei ein Beispielprojekt. Da mußt du das nur auf deine Gegebenheiten anpassen. :P

Zitat:

Ich habe jetzt das rc-File mit meiner TEXT-Resource manuell mit brcc32 zu einer Datei namens RESSOURCES.RES compiliert wie früher

...ist in Ordnung. Alternativ: Das macht Delphi automatisch (Erzeugen). :thumb: Früher ist out. 8-)

Zitat:

Genügt es wie oben angegeben in der dpr-Datei nur die eigene Ressource-Datei einzubinden?

...prinzipiell ja.(RES) In der Regel hast du aber an deiner "RC" auch Änderungen. Da ist das Mitcompilieren besser. Die Quellen müssen dann vorhanden sein.

Zitat:

was steht eigentlich in der von Tokyo selbst angelegten res-Datei

...darüber gibt dir ein beliebiger Resource Editor Auskunft. Beispiel: http://www.chip.de/downloads/Resourc..._71937653.html

[Uwe Raabe]

Was genau macht denn GetResourceAsString?

[Uwe Raabe]

Also folgendes funktioniert bei mir unter Tokyo:

- unter Projekt - Ressourcen und Bilder wähle ich die passende Textdatei aus, vergebe den Namen "codekey" und schreibe bei Ressourcentyp "TEXT" hinein.
- im Programm kann ich den Inhalt der Ressource mit folgendem Code auslesen:

Delphi-Quellcode:

var
  lst: TStringList;
  stream: TResourceStream;
begin
  stream := TResourceStream.Create(HInstance, 'codekey', 'TEXT');
  try
    lst := TStringList.Create;
    try
      lst.LoadFromStream(stream);
      Memo1.Lines := lst;
    finally
      lst.Free;
    end;
  finally
    stream.Free;
  end;
end;

[haentschman]

Zitat:

"Projekt > Ressourcen und Bilder" diese Resource auf moderne Art einzubinden, so kann ich als Typ nicht TEXT auswählen, sondern RCDATA nehmen.

...Man kann auch TEXT eingeben und nicht nur die Auswahlen auswählen. :P

Nachtrag Ressourcen und Bilder:
1. Wenn man einmal TEXT eingeben hat, steht es in allen Projekten zur Verfügung. Wenn man Delphi neu startet ist es wieder zurückgesetzt.
2. Wenn man die RC lädt, werden nur die Anweisungen für das automatische compilieren und die zugehörigen Dateien in die DPR bzw. das Projekt eingefügt. Der Name der compilierten Ressource ist identisch mit der RC Datei. Der Bezeichner und Typ sind nicht relevant.
3. Den Typ braucht man nur wenn man z.B. Bilder in die Projektressource (.DRES) aufnehmen will.

[HJay]

Zitat:

Zitat von Uwe Raabe (Beitrag 1372717)

Was genau macht denn GetResourceAsString?

Delphi-Quellcode:

  function GetResourceAsString(ResName: pchar; ResType: pchar): string;
    var ResData: PChar;
        ResSize: Longword;
  begin
    ResData := GetResourceAsPointer(resname, restype, ResSize);
    SetString(Result, ResData, ResSize);
  end;

[HJay]

Zitat:

...darüber gibt dir ein beliebiger Resource Editor Auskunft. Beispiel: http://www.chip.de/downloads/Resourc..._71937653.html

Danke, werde ich mir gleich mal anschauen.

[Bernhard Geyer]

Zitat:

Zitat von HJay (Beitrag 1372785)

Zitat:

Zitat von Uwe Raabe (Beitrag 1372717)

Was genau macht denn GetResourceAsString?

Delphi-Quellcode:

  function GetResourceAsString(ResName: pchar; ResType: pchar): string;
    var ResData: PChar;
        ResSize: Longword;
  begin
    ResData := GetResourceAsPointer(resname, restype, ResSize);
    SetString(Result, ResData, ResSize);
  end;

GetResourceAsPointer ist keine Standard-Delphi-Funktion die mitgeliefert wird.
Wie schaut also GetResourceAsPointer aus?

[HJay]

Zitat:

Zitat von haentschman (Beitrag 1372708)

Anbei ein Beispielprojekt. Da mußt du das nur auf deine Gegebenheiten anpassen.

Wow, vielen Dank, sehr nett!

Delphi zickt aber leider bei mir massiv rum. Ich habe jetzt mal testweise {$R CODEKEY.RES CODEKEY.RC } eingebaut, aber es wird keine RES-Datei erzeugt.

Die Compilierung misslang mit der Meldung "BRCC32 failed unexpectedly. FilenotFoundException: ... RESSOUCRES.RC nicht gefunden." -- Delphi hatte sich also irgendwo gemerkt, dass ich früher mal RESSOURCES.RES verwendet habe. Nur wo? Unter Projekt > Ressourcen ist alles leer, andere $R-Befehle kommen nicht vor. Ich habe darauf hin *.dproj und weitere Projekt-Dateien gelöscht und das Projekt neu geöffnet. Damit verschwand dann die Fehlermeldung.

Allerdings wird immer noch keine CODEKEY.RES erzeugt, obwohl die Compilierung fehlerfrei durchläuft!

Dann habe ich {$R CODEKEY.RES CODEKEY.RC } um die Anführungszeichen ergänzt: {$R 'CODEKEY.RES' 'CODEKEY.RC' } -- jetzt erzeugt er eine CODEKEY.RES, aber die Compilierung failed mit entsprechender Fehlermeldung "FilenotFoundException: ... CODEKEY.RC nicht gefunden. Was für ein Widerspruch in sich, wo er doch die RES-Datei erzeugt...

Ich weiß nicht weiter.