die lösung mit dem utf8toansi hat mir den richtigen lösungsansatz gegeben.
Ich habe dann noch etwas weiter gesucht und habe dann einen Thread gefunden der mich dann endgültig auf die Endlösung brachte.
ich musste schon beim Laden der Datei vom PC die Daten convertieren.
nun sieht die Nötige Funktion nun wie folgt aus :
Delphi-Quellcode:
function GetDocumentFromFile(const markup: WideString): IDispatch;
var
doc: OleVariant;
f : TextFile;
TextString : Widestring;
begin
AssignFile(f, Markup);
Reset(f);
Result := CoHtmlDocument.Create;
doc := Result;
doc.Open;
while not eof(f) do
begin
readln(f, textstring);
textstring := Utf8Encode(textstring);
doc.write(Utf8ToAnsi(textstring));
end;
doc.Close;
CloseFile(f);
end;
und schon ist der Rest gelöst.
gruss Sascha
