Darstellungsprobleme mit Unicode

[Bangkok]

Hallo,

Könnt ihr bitte mal diesen kleinen Code testen, läuft ab XProfan 11

window 1200,600

Declare a#
Dim a#,200
stringw a#,0 = "Hallo, mal ein etwas größerer Text äßö Hallo, mal ein etwas größerer Text äßö"
print char$(a#,0,200)
dispose a#
waitinput

Bei mir kommt es zu falschen Ausgaben und die Ausgabe ist sehr ruckelig, aber nur wenn ich den Text doppelt schreibe. Wenn ich den Text nur 1 x schreibe ist alles ok. Hängt das jetzt an Profan, an Win 7 oder an meinem Computer.
Win 7 32 bit und XProfan X2

[RGH]

Hallo,

bei mir ruckelt es zwar nicht, sieht aber genauso aus. Der PRINT-Befehl ist aber auch nicht für Unicode-Ausgabe gedacht.

Gruß
Roland

[Bangkok]

Hallo Roland,

danke für die schnelle Antwort, dann kann man Unicode gar nicht darstellen, nur in controls. Schau dir bitte mal das an, das geht ja gar nicht.

window 1200,600
TextColor $000000,-1
USEFONT "MS Sans Serif",13,0,1,0,0
Declare a#,a$
Dim a#,200
stringw a#,0 = "Hallo, mal ein etwas größerer Text äßö Hallo, mal ein etwas größerer Text äßö"
print char$(a#,0,200)
a$ = char$(a#,0,200)
dispose a#
print a$
DrawText 1,50,a$
waitinput

Mir ist schon klar, dass man die Darstellung von Unicode in unserer Sprache nicht braucht, ich wollte mal was testen in einer asiatischen Sprache, ob UTF8 oder UTF16 zu nehmen ist. Da ich aber weder was sinnvolles schreiben kann noch die Tastatur habe, habe ich es zum Testen in deutsch versucht.

[horsthorn]

@Dieter
So sieht dein letzter Code bei mir aus:

[Bangkok]

danke Horst,

ist das gleiche wie bei mir,

ich habe mich entschlossen in dieser Richtung nicht mehr weiter zu machen. Das überlasse ich den Leute die es gewohnt sind mit diesen Sprachen umzugehen.

Ich müsste praktisch alles von A bis Z mühsam über die W-Apis erstellen, da meine ersten kleinen Tests nun ergeben haben, dass nicht mal die einfachsten Dinge gehen.

[RGH]

Hallo,

XProfan verwendet an der Oberfläche ausschließlich ANSI-Code (nicht zu verwechseln mit ASCII-Code).

Der Befehl StringW dient dazu, diesen Ansicode so umzuwandeln, dass er für APIs oder DLL-Funktionen, die Unicode erwarten lesbar wird.

Umgekehrt dient die Funktion StringW$() bislang nur dazu, Unicode-Strings in normale Ansistrings umzuwandeln, solange sie nur Zeichen besitzen, die es im Ansicode gibt (also die ersten 256 Zeichen).

Wenn man also einen Unicode-Sring mit XProfan ausgeben will, ist er vorher mit StringW$() umzuwandeln und schon wird er korrekt angezeigt.

Statt "Print Char$(a#,0,200)" ist also zur Ausgabe von Unicode-Strings "Print StringW$(a#,0) zu verwenden. Und schon klappt es:

window 1200,600
TextColor $000000,-1
USEFONT "MS Sans Serif",13,0,1,0,0
Declare a#,a$
Dim a#,200
stringw a#,0 = "Hallo, mal ein etwas größerer Text äßö Hallo, mal ein etwas größerer Text äßö"
print StringW$(a#,0)
a$ = StringW$(a#,0)
dispose a#
print a$
DrawText 1,50,a$
waitinput

Gruß
Roland

[Bangkok]

Hallo Roland,

ist schon klar mit "Print StringW$(a#,0) wird der String ja zu Ansi umgewandelt. In meinem Fall geht das aber nicht, weil die Zeichen dann nicht mehr lesbar wären. ich habe mittlerweile auch festgestellt, dass UTF8 das bessere wäre, insofern entfällt StringW sowieso.

[RGH]

Hallo,

da würde dann wahrscheinlich nur ein DrawTextW im nächsten XProfan helfen und vorläufig die APIs TextOutW und DrawTextW, die mit Widechars klar kommen.

Gruß
Roland