LoadResource lädt 2 Resourcen statt nur einer / falsches Encoding

[RandomDD]

Mehr gibt es nicht

Ich erstelle die RES-Datei, binde sie ein und versuche die HTML-Datei in der RES-Datei mit LoadTextFromResourceByName zu laden.

Code:

Datei_0 RCDATA ".\Datei_0.txt"
Datei_1 RCDATA ".\Datei_1.htm"
Datei_2 RCDATA ".\Datei_2.htm"
Datei_3 RCDATA ".\Datei_3.htm"

Zitat:

C:\> brcc32.exe HTML-Content.rc

{$R HTML-Content.RES}

Delphi-Quellcode:

function LoadTextFromResourceByName(ResourceName: AnsiString): AnsiString;
var
 ResourceStream: TResourceStream;
begin
 try
  ResourceStream := TResourceStream.Create(HInstance, ResourceName, RT_RCDATA);

  try
   SetLength(Result, ResourceStream.Size);
   ResourceStream.ReadBuffer(Result[1], ResourceStream.Size);
  finally
   ResourceStream.Free;
  end;
 except
 end;
end;

Delphi-Quellcode:

var Datei1: String;
 begin
  Datei1 := LoadTextFromResourceByName('Datei_1');
 end;

Datei1:

Zitat:

Lorem Ipsum Test ÄÖÜ é è

Resultat im Programm, siehe bitte Screenshot.

Alle HTML-Dateien sind laut Notepad++ in UTF8 ohne BOM kodiert.

[Luckie]

Äh: function LoadTextFromResourceByName(ResourceName: AnsiString): AnsiString; Fällt dir was auf?

[RandomDD]

Ja da fällt mir was auf. Ich hatte nur vorher das Problem, dass ich nicht einfach AnsiString zu String machen konnte, ist ja logisch.

Lösung: trotzdem String hinschreiben, den ResourceStream in eine StringList laden und den Text der Stringlist in UTF8Decode jagen. Wusste bis jetzt nicht, dass es diese Funktion in Delphi gibt.

[Uwe Raabe]

Wenn ich mich recht erinnere, kann brcc32 nicht recht mit Unicode umgehen. Versuch mal, die RC-Datei in UTF-8 zu codieren und gib beim brcc32-Aufruf den Parameter -c65001 mit.

[Sailor]

Wenn Ihr Auto nicht anspringt, dann drücken Sie mit dem linken Fuß das Gaspedal, mit dem rechten Fuß öffnen Sie das Schiebedach, den rechten Daumen legen Sie auf den roten Knopf im Motorraum und mit der linken Hand zeigen Sie dem Hersteller den Stinkefinger. So oder so ähnlich würde sich das in anderen Bereichen anhören. Und das im Jahr 2016, nach 50 Jahren Computerei!

[RandomDD]

? ?

[Sailor]

Sorry, ich bezog mich auf den Kommentar von Uwe. Wieso bringt es Embarcadero einfach nicht fertig, daß ihre Tools klaglos zusammenspielen? Deren Produkte werden ja nun nicht gerade für lau unters Volk gebracht. Die haben nicht mal eine Dokumentation, die diesen Namen auch verdient. Ohne die Quelltexte würde man da noch mehr im Nebel rumstochern. Unsere Kunden hätten uns vom Hof gejagt, wenn wir denen so etwas geliefert hätten - mit Recht. Nur wir schlucken das alles. Werde in der nächsten Zeit umsteigen, nach 30 Jahren Turbo/Delphi.

[RandomDD]

Finde ich gut so, dass immer mehr Leute Emba-Produkte den Rücken kehren. Vielleicht denken die dann mal nach was sie falsch machen!
Aber das ist ein anderes Thema (bevor ich hier noch Ärger bekomme).

[Uwe Raabe]

Zitat von Sailor:

Wieso bringt es Embarcadero einfach nicht fertig, daß ihre Tools klaglos zusammenspielen?

Das Tool wird seitens der IDE auch korrekt angesprochen. Lediglich bei manuellem Erstellen der RC-Datei muss der Aufruf eben zum verwendeten Encoding passen. Lässt man den c-Parameter weg, wird ANSI als Default verwendet. In dem Fall sollte die RC-Datei auch ANSI codiert sein.

Zitat:

Alle HTML-Dateien sind laut Notepad++ in UTF8 ohne BOM kodiert.

Ohne BOM kann man nur durch heuristische Analyse des Inhalts das Encoding bestimmen. Genau für solche Fälle gibt es den besagten Parameter.

Ich behaupte ja nicht, daß Embarcadero alles richtig macht, aber ich sehe hier kein Versäumen seitens Embarcadero. Insofern kann ich das Bashing in diesem Zusammenhang auch nicht nachvollziehen.

[Uwe Raabe]

Wenn ich mir den Code nochmal betrachte, dann geht es hier ja gar nicht um das Encoding der RC-Datei, sondern um das Encoding der Datei-Resource selber. Dann ist der c-Parameter tatsächlich überflüssig und das Problem ist einfach die falsche Leseroutine für die Resource.

Wenn die HTML-Dateien nun mal in UTF-8 codiert sind, dann muss man die halt auch so einlesen:

Delphi-Quellcode:

function LoadTextFromResourceByName(ResourceName: String): String;
var
  reader: TStreamReader;
  ResourceStream: TResourceStream;
begin
  ResourceStream := TResourceStream.Create(HInstance, ResourceName, RT_RCDATA);
  try
    reader := TStreamReader.Create(ResourceStream, TEncoding.UTF8);
    try
      result := reader.ReadToEnd;
    finally
      reader.Free;
    end;
  finally
    ResourceStream.Free;
  end;
end;