Unicode und Express [erledigt]

[Ewald]

Hallo, ich drehe mich bei folgendem Problem im Kreis. Ich erzeuge mit express ein Formular (dcprint say ...) und möchte in dieses Formular verschiede Symbole aus Windows Schriften drucken. Z.B. einen schwarzen Smiley. Dieser Smiley befindet sich als Zeichen in der Windows Zeichentabelle mit Unicode U+9787. Hat jemand einen Tip, wie bzw. ob ich das wohl gebacken bekomme ?

[Tom]

Hallo, Ewald.

Eine Funktion, die nach Unicode umrechnet, kannst Du haben:

Code: Alles auswählen

Function Format_to_UNICODE(multiByteData )

    local wideCharData
    local wideCharDataLen
    local rc
    Local nBufferOut := " "

    wideCharData = " "
    wideCharDataLen = MultiByteToWideChar(0, 0, multiByteData, -1, "", 0)
    wideCharData = Space(wideCharDataLen * 2)
    rc = MultiByteToWideChar(0, 0, multiByteData, -1, @wideCharData, wideCharDataLen)

return (wideCharData)

DLLFUNCTION MultiByteToWideChar(CodePage, dwFlags, lpMultiByteStr, cchMultiByte,@lpWideCharStr, cchWideChar) USING STDCALL FROM kernel32.dll

Geklaut aus einer Alaska-NG.

Aber es ist viel einfacher:

Code: Alles auswählen

DCPRINT FONT "14.Webdings"
@ 1,1 DCPRINT SAY "J" // druckt einen Smiley

[Ewald]

Hallo Tom,
wie war das mit dem Wald und den Bäumen die man nicht sieht ? Auf diese Lösung wäre ich allerdings so schnell nicht gekommen... Ich meine nicht die Funktion sondern die Schriftart. Webdings scheint zwar nicht zum Win Standard zu gehören, aber in den Wingdings werde ich da wohl fünding werden. Warum schlägt man sich nur die Nächte um die Ohren ...
Danke nochmals
Ewald