Anzeigen von Unicode-Zeichen

[Scurra]

Hallo zusammen,

durch Einführung der "Unicode UTF-8"-Einstellung in Windows 10 (siehe hier: https://www.delphipraxis.net/203925-...verwenden.html) mussten wir ein paar Stellen in unserer Software anpassen. Ein Problem besteht nun jedoch weiterhin:

Wir haben in unserer Software ein Feedback-Formular, in dem wir Smileys zum Bewerten anzeigen. Früher haben wir dort die Zeichen "J", "K" und "L" in der Wingdings Schriftart angezeigt, was dann als lachender, neutraler bzw. trauriger Smiley angezeigt wurde. Durch die "Unicdoe UTF-8"-Einstellung in Windows wurden dann tatsächlich nur noch die Buchstaben "J", "K" und "L" angezeigt.

Als Lösung habe ich mir gedacht, dass wir einfach die Unicode-Zeichen für die Smileys benutzen und anzeigen können. Mit folgender Implementierung kann man das testen:

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
const
  SMILEY_UTF8_SLIGHTLY_SMILING_FACE: RawByteString = #$F0#$9F#$99#$82; // Unicode Code Point: U+1F642 (UTF-8 encoded)
begin
  ShowMessage(Utf8ToString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
end;

Die Idee dahinter ist einfach: Ich benutze die UTF-8-Kodierung für den Smiley und lasse mir die Bytes in einen (Unicode-)String konvertieren.

Unter Windows 10 funktioniert das auch ohne Probleme (unabhängig davon, ob die Unicode UTF-8 Einstellung gesetzt ist oder nicht). Siehe Anhang "Windows 10.jpg".
Unter Windows 7 wird der Smiley jedoch nicht richtig dargestellt. Siehe Anhang "Windows 7.jpg".


Ich frage mich, warum die Darstellung unter Windows 7 nicht gelingt und wie das Problem unabhängig von der Windows-Version gelöst werden kann. Ich bin für Hilfe/Ideen dankbar.

[DieDolly]

Schon versucht einfach8 das Unicode-Zeichen in den Quelltext zu kopieren statt das alles über Konvertierungen zu machen?

Delphi-Quellcode:

showmessage('��'); // hier soll eigentlich der Unicode-Smiley sein. Aber die DP entfernt ihn beim Bearbeiten des Beitrags.

https://de.wikipedia.org/wiki/Unicodeblock_Smileys
Ich sehe gerade, das funktioniert unter Windows 7 nicht.

[Bernhard Geyer]

Zitat:

Zitat von DieDolly (Beitrag 1462664)

Ich sehe gerade, das funktioniert unter Windows 7 nicht.

Was funktioiert nicht? Ich vermute das unter W7 einfach die Schriftart das Zeichen nicht beinhaltet.
Wenn du unbedingt noch W7 unterstützen musst, musst du in deinem Code ein Weiche machen
Win7 - Wie bisher
Win10 - Neue Logik

[Scurra]

Zitat:

Schon versucht einfach8 das Unicode-Zeichen in den Quelltext zu kopieren statt das alles über Konvertierungen zu machen?

Meinem Verständnis nach funktioniert das auch unter Windows 10 nicht immer. Je nachdem, ob man die Unicode UTF-8 Einstellung aktiviert hat oder nicht, würde Windows das Zeichen unterschiedlich interpretieren. Ich lasse mich aber gerne auch belehren, falls ich falsch liege.

Zitat:

Ich vermute das unter W7 einfach die Schriftart das Zeichen nicht beinhaltet.

Die Erklärung ergibt Sinn. Den Smiley, den ich verwende, gibt es erst seit 2014 in Unicode (https://www.compart.com/de/unicode/U+1F642), wahrscheinlich zu spät für Windows 7.

Mein Workaround wäre dann, einen älteren Smiley zu benutzen, z. B. U+263A (https://www.compart.com/de/unicode/U+263A). Das funktioniert auch.


Noch eine andere Frage: Mir ist jetzt gerade erst aufgefallen, dass meine Deklaration

Delphi-Quellcode:

const
  SMILEY_UTF8_SLIGHTLY_SMILING_FACE: RawByteString = #$E2#$98#$BA; // Unicode Code Point: U+263A

zu einer Warnung führt: W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'RawByteString'. Gibt es eine andere Möglichkeit, UTF-8 kodierte Bytes in einen Delphi-String zu bekommen?

Ich habe es mit einem konstanten array[0..2] of Byte versucht, aber dann wird kein Smiley mehr angezeigt:

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
const
  SMILEY_UTF8_SLIGHTLY_SMILING_FACE: array[0..2] of Byte = ($E2, $98, $BA); // Unicode Code Point: U+263A
begin
  ShowMessage(UTF8ToString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
end;

[Uwe Raabe]

Zitat:

Zitat von Scurra (Beitrag 1462704)

Gibt es eine andere Möglichkeit, UTF-8 kodierte Bytes in einen Delphi-String zu bekommen?

Delphi-Quellcode:

const
  SMILEY_UTF8_SLIGHTLY_SMILING_FACE: TBytes = [$E2, $98, $BA]; // Unicode Code Point: U+263A

begin
  ShowMessage(TEncoding.UTF8.GetString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
end;

[himitsu]

UTF8String (inkl. UTF-8-CodePage, statt Ohne wie beim RawByteString)

Und zusätzlich noch den Spaß, wo #xx-Zeichen eventuell anders gespeichert werden, also du denkst, bzw. automatisch konvertiert werden.
https://www.delphipraxis.net/192296-...ml#post1366693

[Scurra]

@Uwe Raabe: Danke, genau das, wonach ich gesucht habe :)

@himitsu: Wie ich anhand der verlinkten Seite und der darin verlinkten Seite zur Delphi-Hilfe sehe, muss ich da noch einige Zeit investieren, um das zu verstehen.

[Redeemer]

Zitat:

Zitat von Scurra (Beitrag 1462744)

@Uwe Raabe: Danke, genau das, wonach ich gesucht habe :)

Das ändert tatsächlich was daran, ob es unter Windows 7 geht oder nicht?

[Uwe Raabe]

Zitat:

Zitat von Redeemer (Beitrag 1462751)

Das ändert tatsächlich was daran, ob es unter Windows 7 geht oder nicht?

Keine Ahnung. Mein Vorschlag bezog sich konkret auf die Frage, die ich in meiner Antwort zitiert habe.

[Scurra]

Zitat:

Zitat von Redeemer (Beitrag 1462751)

Das ändert tatsächlich was daran, ob es unter Windows 7 geht oder nicht?

Ja. Die "alten" Smileys von 1993 werden auch in Windows 7 angezeigt (getestet auf 2 verschiedenen Systemen).