Konvertierung der Umlaute einer Dosdatei im Tmemo

[joehd]

Hier mal die Beschreibung von Embarcadero

TEncoding (Delphi)
Description

This example determines the encoding of a source file and then writes the file in any encoding chosen. Use this project to create files of any encoding. This example requires two text edits and a combo box.
Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  LBuffer: TBytes;
  LByteOrderMark: TBytes;
  LOffset: Integer;
  LEncoding, DestEncoding: TEncoding;
  LFileStream: TFileStream;
  EncodingArray: array[0..5] of TEncoding;
begin
  LEncoding:= nil;
  EncodingArray[0]:= TEncoding.UTF8;
  EncodingArray[1]:= TEncoding.UTF7;
  EncodingArray[2]:= TEncoding.Unicode;
  EncodingArray[3]:= TEncoding.Default;
  EncodingArray[4]:= TEncoding.BigEndianUnicode;
  EncodingArray[5]:= TEncoding.ASCII;
  DestEncoding := EncodingArray[ComboBox1.ItemIndex];
  LFileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  try
    // Read file into buffer.
    SetLength(LBuffer, LFileStream.Size);
//    LFileStream.Read(LBuffer[0], Length(LBuffer));
    LFileStream.ReadBuffer(Pointer(LBuffer)^, Length(LBuffer));

    // Identify encoding and convert buffer to UTF8.
    LOffset := TEncoding.GetBufferEncoding(LBuffer, LEncoding);
//    for I := 0 to Length(LBuffer) - 1 do
//      Memo1.Lines.Add((LBuffer[I]));
    LBuffer := LEncoding.Convert(LEncoding, DestEncoding, LBuffer,
      LOffset, Length(LBuffer) - LOffset);
  finally
    LFileStream.Free;
  end;

  LFileStream := TFileStream.Create(Edit2.Text, fmCreate);
  try
    // Write an encoding byte-order mark and buffer to output file.
    LByteOrderMark := DestEncoding.GetPreamble;
    LFileStream.Write(LByteOrderMark[0], Length(LByteOrderMark));
    LFileStream.Write(LBuffer[0], Length(LBuffer));
  finally
    LFileStream.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   with ComboBox1, Items do begin
     Add('TEncoding.UTF8');
     Add('TEncoding.UTF7');
     Add('TEncoding.Unicode');
     Add('TEncoding.Default');
     Add('TEncoding.BigEndianUnicode');
     Add('TEncoding.ASCII');
     ItemIndex := 0;
  end;
end;

[Uwe Raabe]

Wenn es unter DOS mit dem im Deutschen üblichen OEM-Zeichensatz codiert ist, dann kannst du dir ein passendes Encoding selbst erstellen: myEncoding := TMBCSEncoding.Create(850);

[KodeZwerg]

Um Deine Datei im Memo darzustellen, ohne viel schnickschnack:

Delphi-Quellcode:

procedure ReadFileIntoMemo(const AFilename: string; const AMemo: TMemo);
var
  Reader: TStreamReader;
  Line: string;
begin
  Reader := TStreamReader.Create(AFilename, TEncoding.ANSI);
  try
    AMemo.Lines.BeginUpdate;
    AMemo.Clear;

    AMemo.Font.Name := 'Terminal';
    AMemo.Font.Size := 9;
    AMemo.Font.Charset := OEM_CHARSET;
    AMemo.Font.Style := [];

    while not Reader.EndOfStream do
    begin
      Line := Reader.ReadLine;
      AMemo.Lines.Add(Line);
    end;
    AMemo.Lines.EndUpdate;
  finally
    Reader.Free;
  end;
end;

[himitsu]

Njain, Fonts ala Terminal und Consolas und haben nichts mit Codepages und Co. zu tun.

OK, das Font.Charset schon, aber hat das seit Unicode (Delphi 2009) noch eine Wirkung?



Beziehen sie sich nicht nur auf einen 8-Bit-ANSI-String, oder wie?
https://learn.microsoft.com/en-us/wi...character-sets
Fand jetzt nur was zum Lesen, aber nichts zum Zuweisen
https://learn.microsoft.com/en-us/wi...gettextcharset
https://learn.microsoft.com/en-us/wi...extcharsetinfo
und im TFont.SetCharset hab ich mich im Fontmanager verloren und sehe nirgends, dass damit auch was gemacht wird.



Obwohl, das Wiki sagt
https://docwiki.embarcadero.com/Libr....TFont.Charset
hmmmmmmmmmmmmmmm......?



[add]
Ob mit CharSet oder ohne, ich sehe keinen Unterschied.

Delphi-Quellcode:

procedure TForm25.FormCreate(Sender: TObject);
begin  Memo1.Text := 'a'#$84'b'#$0084'c';
  Memo1.Font.Name := 'Terminal';
//  Memo1.Font.Charset := OEM_CHARSET;
  Memo1.Font.Size := 20;
end;

[Uwe Raabe]

Da der Reader mit TEncoding.Ansi erzeugt wurde, erfolgt die fehlerhafte Umwandlung in Unicode bereits im Reader.Readline , weil die Datei ja gerade eben nicht Ansi-codiert ist. Danach ist das kaum noch in den Griff zu bekommen. Mit dem von mir weiter oben beschriebenen Encoding sollte das aber funktionieren.

[KodeZwerg]

Zweiter Versuch ohne viel schnick-schnack:

Delphi-Quellcode:

procedure ReadFileToMemo(const AFilename: string; const AMemo: TMemo; const ACodePage: Integer = 850);
var
  Reader: TStreamReader;
  Encoding: TEncoding;
  Line: string;
begin
  Encoding := TEncoding.GetEncoding(ACodePage);
  try
    Reader := TStreamReader.Create(AFilename, Encoding);
    try
      AMemo.Lines.BeginUpdate;
      AMemo.Clear;
      while not Reader.EndOfStream do
      begin
        Line := Reader.ReadLine;
        AMemo.Lines.Add(Line);
      end;
      AMemo.Lines.EndUpdate;
    finally
      Reader.Free;
    end;
  finally
    Encoding.Free;
  end;
end;

// hab noch ein argument zum easy wechseln hinzugefügt
Dies sollte dem Beispiel von Uwe schon recht nahe kommen.

[Uwe Raabe]

Zitat von KodeZwerg:

Dies sollte dem Beispiel von Uwe schon recht nahe kommen.

In der Tat tut GetEncoding auch nichts anderes, solange die übergebene Codepage keinem der im case angegebenen Sonderfälle entspricht.

Allerdings könnte man es ja auch mal mit einem simplem AMemo.LoadFromFile(AFileName, Encoding); versuchen - so wegen ohne viel schnick-schnack...

[joehd]

Hallo
Danke erstmal das mit dem Encoding hat top funktioniert.
Das bedeutet nicht das das andere nicht funktioniert hätte aber es war auch einfach ...
Ich wusste bis heute nicht das es Encoding gibt und ich habe schon viele Tmemo geladen Danke !!
Guter Tip
Danke !!!!

Hier der Code für andere ...

Delphi-Quellcode:

var x,y: Integer;
    FilenameS,FilenameD : String;
    myEncoding : Tencoding; //  myEncoding := TMBCSEncoding.Create(850);

Begin 
  myEncoding := TMBCSEncoding.Create(850); // hier gibt es auch andere Siehe das Embarcadero WICKI weiter vorne
  // diverses for dem Laden des Files 

  // old // form1.GDT_TEMP.Lines.LoadFromFile(Filenames); // bei While immer auf 0 setzen

 form1.GDT_TEMP.Lines.LoadFromFile(Filenames,myEncoding); // bei While immer auf 0 setzen 

  // tu dann was mit dem Memo Inhalt 

end;

[himitsu]

selbst-erstellte TEncoding freigeben (Free)

nur die 5 Standard-Encodings, welche aus gewissen Property/Methoden raus kommen ... die nicht freigeben.