ASCII <-> Ansi Umwandlung

[shmia]

folgende Unit wandelt ASCII nach Ansi und umgekehrt:

Delphi-Quellcode:

unit AsciiAnsi;

interface

function Ascii2Ansi(const s:AnsiString):AnsiString;
function Ansi2Ascii(const s:AnsiString):AnsiString;


implementation

uses Windows;

function Ascii2Ansi(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      OemToChar(Pchar(Result), Pchar(Result));
   end;
end;

function Ansi2Ascii(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      CharToOem(Pchar(Result), Pchar(Result));
   end;
end;

end.

[Olli]

Ich bin dagegen das unreflektiert in die Codelib einzutragen, weil hier die Begriffe ANSI und ASCII falsch und mißverständlich benutzt werden. Abgesehen davon ist der OEM-Zeichensatz auf einem russischen System eben nicht identisch mit EASCII in westlicher Kodierung. Die Beschreibung als Konvertierung von ASCII nach ANSI und umgekehrt leitet also in die Irre ...

Zitat:

OemToChar: The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string.

Tja, was ist nun "OEM-defined"? Jedenfalls ist das Ergebnis nicht auf jedem System uniform!

[fkerber]

Hi!

Auch nach regem Bemühen ist es Matze und mir leider nicht gelungen, wirklich den Code nachvollziehen zu können. Natürlich wollen wir den Code deswegen nicht "wegwerfen" - nur weil wir ihn nicht verstehen

Aus diesem Grund wäre es prima, wenn jemand näher erläutern könnte, was genau gemacht wird.
Vor allem folgende Fragen haben sich mir gestellt:

• Warum ist in beiden Fällen der Ein- und Ausgabetyp "ansistring"
• Was genau kann man mit dem Code machen? Für welche Fälle wäre er produktiv nutzbar?

Es wäre wirklich prima, wenn jemand das aufklären könnte!
Vielen Dank!
Ciao, Frederic

[Olli]

Zitat von fkerber:

Auch nach regem Bemühen ist es Matze und mir leider nicht gelungen, wirklich den Code nachvollziehen zu können. Natürlich wollen wir den Code deswegen nicht "wegwerfen" - nur weil wir ihn nicht verstehen

Aus diesem Grund wäre es prima, wenn jemand näher erläutern könnte, was genau gemacht wird.
Vor allem folgende Fragen haben sich mir gestellt:

• Warum ist in beiden Fällen der Ein- und Ausgabetyp "ansistring"
• Was genau kann man mit dem Code machen? Für welche Fälle wäre er produktiv nutzbar?

Tja, das ist genau eine Frage, die sich jeder stellen sollte. Warum ist Ein- und Ausgabe AnsiString. Weil AnsiString eigentlich ProZeichen1ByteString heißen sollte und der WideString ProZeichen2ByteString. Die Namensgebung in Delphi hat keinerlei, aber wirklich keinerlei Auswirkung auf diese Dinge. Bekanntlich kann man bequem einen UTF-8-kodierten String in einer AnsiString-Variablen ablegen, weil es da eben keinen Zusammenhang zwischen dem Namen (AnsiString) und der Funktion (abspeicher von Strings aus Zeichen mit 1 Byte pro Zeichen) gibt. Man nimmt fälschlicherweise anhand des Namens an, daß der String immer ANSI-Zeichen beherbergen muß, dabei ist ANSI ja nur eine Kodierung, die wie viele andere Kodierungen bestimmte Zeichen in einen 8bit-Zeichensatz quetscht.

Die Funktionen OemToChar und CharToOem machen nichts weiter, als bestimmte Zeichenwerte (ord) in ANSI-Kodierung auf die OEM-Kodierung abzubilden. So daß der Buchstabe Ü beispielsweise immer als Ü angezeigt wird, auch wenn dies auf der Konsole geschieht, welche meist die OEM-Kodierung benutzt, während der Quelltext eines Delphiprogramms üblicherweise in ANSI-Kodierung abgespeichert wird.

[himitsu]

Zitat von Olli:

Weil AnsiString eigentlich ProZeichen1ByteString heißen sollte und der WideString ProZeichen2ByteString.

ich dachte Delphi interpretiert den AnsiString als MultiByteString?[delphi]

[xaromz]

Hallo,

Zitat von himitsu:

ich dachte Delphi interpretiert den AnsiString als MultiByteString?

nö, AnsiString ist die 1 Byte-Version (nativ von Delphi), WideString die 2 Byte-Version (OLE-Strings) von Strings. "String" ist standardmäßig ein AnsiString.

Gruß
xaromz

[himitsu]

Und warum sind dann die meisten Ansi-Funktionen in Delphi für MultByteStrings ausgelegt?

[Ydobon]

In der Hilfe sieht es so aus:

Zitat:

AnsiString ~2^31 Zeichen 4 Byte bis 2 GB 8-Bit-Zeichen (ANSI), DBCS ANSI, MBCS ANSI usw.
WideString ~2^30 Zeichen 4 Byte bis 2 GB Unicode-Zeichen, Mehrbenutzer-Server und mehrsprachige Anwendungen

Logischerweise verwendet Delphi unter Sprachversionen von Windows, die nur mit Multibytezeichen funktionieren auch solche für Ansi-Strings. 1 bis 4 Byte pro Zeichen, nicht als kleinste Zugriffsmöglichkeit 1 Byte.

[xaromz]

Hallo,

Zitat von himitsu:

Und warum sind dann die meisten Ansi-Funktionen in Delphi für MultByteStrings ausgelegt?

Weil Borland sich bisher beharrlich weigert, seine VCL auf Unicode zu portieren. Damit trotzdem Schriften darstellbar sind, die mehr als 256 Zeichen beinhalten, wird die Krücke MultiByteString benutzt. Das ist aber (genauso wir z. B. UTF-8) nur eine Codierung, die der Einfachheit halber in einen AnsiString gepackt wird. Wie Olli schon schrieb, Name und Inhalt müssen nicht immer übereinstimmen.

Gruß
xaromz

[DGL-luke]

Gibt es diese funktionen nicht schon längst in der codelib? ich hab das doch schon mal gesehen hier... Da war auch als CharToOEM und andersrum tituliert.