Umlaute nach laden von Textdatei kaputt (Encodingprobleme)

[KodeZwerg]

Vielleicht so?

Delphi-Quellcode:

bytes: TBytesStream;


mStream := TBytesStream.Create(TBase64Encoding.Base64.DecodeStringToBytes(mRechnung.Edifakt));


try

  mTempDir := TIniManager.GetIniString('Default', 'TempDir');
  if not DirectoryExists(mTempDir + aMandantid) then
  begin
    ForceDirectories(mTempDir + aMandantid);
  end;

  TEncoding.GetBufferEncoding(mStream.Bytes, curEncoding);
  if curEncoding <> TEncoding.UTF8 then
    begin
      bytes := TEncoding.Convert(curEncoding, TEncoding.UTF8, mStream.Bytes);
      mStream.Free;
      mStream := TBytesStream.Create(bytes);
    end;

  mStream.SaveToFile(mTempDir + aMandantid + '\' + mRechnung.FileName);