【HSP2.61】Unicode(UTF-16) を扱ってみる | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
// HSP 2.61用コード
#include "llmod.as"
#include "unicode.as"
#module
#define WM_SETTEXT  0x000C
#deffunc objprmW int, val
    mref p1, 0
    mref p2, 25
    _hspobjhandle p1
    handle = stat
    if handle == 0 : return -1
    getptr ptr, p2
    if ptr == 0 : return -2
    prm = handle, WM_SETTEXT, 0, ptr
    dllproc "SendMessageW", prm, 4, D_USER
return
#global
in = "abcあいうえお"
strlen size, in
sdim out, size*2+2
to_uni out, in, size + 1
sdim dummy, 1024
objsize 320, 24
input dummy
objprmW stat, out
stop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX