Ok Diese Version funktioniert für Notepad.exe, leider sind dann die Zeilenumbrüche weg.
Sublime Text zeigt dann aber nur eine HExDump an.
Delphi-Quellcode:
function TLog.Internal_GetEmailFile: String;
var alogtext:String;
AnsiArr:Tbytes;
UTF8Arr:tBytes;
begin
result := '';
Internal_ReadFile(alogtext);
if tFile.Exists(fEmailFile) then
Tfile.Delete(fEmailFile);
UTF8Arr := Tencoding.UTF8.GetBytes(aLogtext);
AnsiArr := TEncoding.Convert(Tencoding.UTF8,Tencoding.ANSI, UTF8Arr );
Tfile.WriteAllBytes(femailfile,AnsiArr);
// TFile.WriteAllText(femailfile,aLogText, TEncoding.ANSI );
result := femailfile;
end;
Zeilenumbrüche mache ich so mit linefeed...
Delphi-Quellcode:
aText := Datetimetostr(now) + ' ' + aText + linefeed;
FStream.Write(aText[1], length(aText) * Sizeof(aText[1]) );