Problem mit Multibyte-Zeichen

[theo]

@Theo: Wenn man schon so viel Aufwand betreibt, dass man Sachen umcodiert, sollte es dann doch wenigstens richtig funktionieren.
Heutzutage voll auf UCS-2 abzufahren ist doch kein Hausgebrauch, sondern eher häusliche Gewalt.

Deine Lösung kann man zwar als schnelle Bastellösung durchgehen lasser, aber insgesamt würde ich doch eher "Daumen runter" dazu sagen.

Warum wirst du jetzt pampig? Hast du einen Vorschlag?
Du kannst gerne meinen TUniString verwenden, der benutzt durchgehend UTF-8 http://www.lazarusforum.de/viewtopic.ph ... 94&p=54025
Zur Normalisierung habe ich auch was: http://wiki.freepascal.org/Theodp

Und P.S: Es ist schon irgendwie auch merkwürdig, dass alle Leute denen es bisher komplett egal war, ob ihr Prog. im Nachbarland Polen funktioniert, jetzt plötzlich alle Lösungen die nur den BMP abdecken als unbrauchbar taxieren.

[Dee]

Es funktioniert nicht. Das Resultat bleibt das gleiche. Wenn eine Methode einen Char als Parameter erwartet, .

Beispiel:

Code: Alles auswählen

 
procedure ShowChar(c: Char);
begin
  ShowMessage(c)
end;          
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  c: Char;
begin
  s := UTF8Decode('äüö');
  c := s[1];
  ShowChar(UTF8Encode(AnsiString(c))[1])
end;
 

Das Zeichen muss sich doch in einer Char-Variable speichern lassen, ohne, dass man beim Auslesen codieren muss.

PS: Woher bekommt man die neueste Version vom FPC? Ist es sinnvoll eine neuere Version zu nutzen? Wenn schon 2.7.1 veröffentlicht wurde, warum wird diese Version nicht mit dem neusten Installer von Lazarus installiert?

[Michl]

Bitte bedenke, dass nur Chars bis Byte 127 auf "allen" Rechnern der Welt gleich sind, Byte 128..255 sind je nach Codepage anders definiert! Verwendest Du auf Deinem Rechner Codepage 850 oder 437 könntest Du Dein Char (wenn es unbedingt ein 8-Bit-Char sein muss) wie folgt übergeben:

Code: Alles auswählen

procedure ShowChar(c: Char);
begin
  ShowMessage(SysToUTF8(c));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  c: Char;
begin
  s := 'äüö';
  c := UTF8ToSys(s)[1];
  ShowChar(c);
end;         

Generell lege ich Dir nochmals zu Herzen, Dich mit Strings und Charakters zu beschäftigen:
http://www.joelonsoftware.com/articles/Unicode.html
http://wiki.freepascal.org/Character_an ... g_types/de

[BeniBela]

Bitte bedenke, dass nur Chars bis Byte 127 auf "allen" Rechnern der Welt gleich sind,

Es sei denn man hat einen EBCDIC Rechner

[Dee]

Die Referenzen habe ich mir schon angesehen, doch helfen sie mir nicht bei meinem Problem. Es gibt auch vordefinierte Methoden, welche Char als Parameter benötigen, wie in meinem Fall die Funktion VkScanCode (http://msdn.microsoft.com/en-us/library ... 85%29.aspx) in der Windows-Unit.

Wie kann man dieser Funktion nun ein Zeichen wie ä übergeben? Ich habe schon vieles ausprobiert. Codierungs-Funktionen helfen nicht, weil ein String zurückgegeben wird. Wenn man davon dann das 1. Zeichen auslesen will, dann erhält man wieder "nichts".

[Michl]

K.A. Bei mir gibt die Funktion eine Word zurück, dessen Lo- und Hi-Byte man auswerten kann. Auch ein 'ä' funktioniert bei mir, mit dem geposteten Code. Ist allerdings Windows-only:

Code: Alles auswählen

uses ..., Windows;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=IntToStr(VkKeyScan(UTF8ToSys('ä')[1]));
end;

[theo]

Und dann gibt es auch noch VkKeyScanW, welches mit WideChar funktioniert.

Aber ich persönlich habe immer noch nicht ganz verstanden, was du eigentlich erreichen willst, und warum du so an diesem "Char" hängst.

[Dee]

Und dann gibt es auch noch VkKeyScanW, welches mit WideChar funktioniert.

Aber ich persönlich habe immer noch nicht ganz verstanden, was du eigentlich erreichen willst, und warum du so an diesem "Char" hängst.

VkKeyScanW würde mir auch nicht helfen, da ich nur Zeichen von 32 bis 255 verwende.

Nochmal für alle: Ich habe einen Passwort-Generator entwickelt, mit dem man über virtuelle Tastenhiebe das Passwort eingeben lassen kann, damit Keylogger keine Chance haben, dass eingegebene Passwort auszulesen. Um die virtuellen Tastenhiebe zu realisieren, nutze ich die Methode keybd_event. Um das entsprechende Zeichen des Passwortes einzugeben, nutze ich die Funktion VkScanCode, dessen Wert an keybd_event übergeben wird.
In Delphi ist die Umsetzung sehr simpel, da man nicht konvertieren muss. In Lazarus muss man, allein was die Codierung betrifft, viel beachten. Klar, es ist ja auch dafür gedacht, um für verschiedene Plattformen Programme zu entwickelt.

[Socke]

VkKeyScanW würde mir auch nicht helfen, da ich nur Zeichen von 32 bis 255 verwende.

Konvertiere deinen Quelltext doch einfach nach CP-1252. Andernfalls ist das Ä/ä zwar in 32..255 enthalten, passt dann aber nur in Widechar, da ein Char mit dem Wert $C4 bzw. $E4 eine ganz andere Bedeutung hat.

[Patito]

Nochmal für alle: Ich habe einen Passwort-Generator entwickelt, mit dem man über virtuelle Tastenhiebe das Passwort eingeben lassen kann, damit Keylogger keine Chance haben, dass eingegebene Passwort auszulesen. Um die virtuellen Tastenhiebe zu realisieren, nutze ich die Methode keybd_event. Um das entsprechende Zeichen des Passwortes einzugeben, nutze ich die Funktion VkScanCode, dessen Wert an keybd_event übergeben wird.
In Delphi ist die Umsetzung sehr simpel, da man nicht konvertieren muss. In Lazarus muss man, allein was die Codierung betrifft, viel beachten. Klar, es ist ja auch dafür gedacht, um für verschiedene Plattformen Programme zu entwickelt.

Wenn man mit der Codierung Probleme hat, sollte man erst mal zwei Dinge klären:
1) Welche Codierung hat der vorliegende Text
2) Welche Codierung will ich haben.

Dann sucht man sich eine passende Konvertierungsmethode aus.

VKKeyScan benötigt vermutlich ein einzelnes Byte mit einem Encoding aus der System-Codepage. (auf einem chinesischen Windows wird es damit wohl eher nicht funktionieren)
VKKeyScanW benötigt vermutlich UCS-2.

Zum Debuggen ist es unpraktisch zu versuchen die Buchstaben per ShowMessage anzuzeigenm, da man sie dazu in das String-Format umkonvertieren muss, das ShowMessage braucht. Wenn man Debuggen will, sollte man lieber schauen was für Bytes man wirklich hat und nicht noch eine weitere Konvertierung zwischenschalten.

[Socke]

VKKeyScanW benötigt vermutlich UCS-2.

Microsoft ist mittlerweile auf UTF-16 umgestiegen; UCS-2 wurde nur bis Windows NT eingesetzt.

[Patito]

VKKeyScanW benötigt vermutlich UCS-2.

Microsoft ist mittlerweile auf UTF-16 umgestiegen; UCS-2 wurde nur bis Windows NT eingesetzt.

Hm, probier mal... Die Funktion hat doch nur einen 16-bit Parameter..
Es würde mich sehr wundern, wenn die Tastatureingabe in Windows voll Unicode-fähig wäre.