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.