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.