【HSP3】RPGツクール 200x イベント内容のクリップボード取得・書きこみモジュール | 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
/******************************************************************************
 RPGツクール 200x イベント内容のクリップボード取得・書きこみモジュール
 作者 イノビア
 http://homepage2.nifty.com/MJHS/ (http://www.hinekure.net/)
 http://www.tkooler.net/
 ※ 自由に転載・改造・配布可能です。
 ・命令
 getcbbin p1 【クリップボードからバイナリデータを取得します】
 p1 = 代入変数
 戻り値(stat)
 0 以上 : 正常終了でバッファサイズとなっています。
 -1 : クリップボードを開けない
 -2 : クリップボードの中身がない
 -3 : ツクール形式のクリップボードではない
 -4 : データが取れない
 -5 : グローバルメモリの確保に失敗
 -6 : グローバルメモリのロック失敗
 -7 : グローバルメモリのコピーに失敗
-------------------------------------------------------------------------------
 setcbbin p1,p2 【クリップボードにデータを書き込みます】
 p1 = 代入変数
 p2 = バッファのサイズ
 戻り値(stat)
 0  : 正常終了
 -1 : サイズ異常
 -2 : グローバルメモリの確保に失敗
 -3 : グローバルメモリのロック失敗
 -4 : クリップボードを開けない
 -5 : クリップボードの所有権取得に失敗
 -6 : クリップボードのコピーに失敗
******************************************************************************/
#include "user32.as"
#include "kernel32.as"
#module "_TKOOLEVCB_"
// 共通
#deffunc _opencb
    repeat 100
        OpenClipboard 0
        res=stat
        if res!0 : break
    loop
    return res
    
#deffunc getcbbin var cbBinBuf
    _opencb
    // 失敗
    if stat=0 : return -1
    // 数を取得
    CountClipboardFormats
    if stat=0 : CloseClipboard : return -2
    formatsNum = stat
    // 内容が 566 かどうか？
    res = 0
    repeat formatsNum
        EnumClipboardFormats 0
        if stat=566 : res = 1 : break
        if stat=0 : continue
    loop
    // 566 が見つからない
    if res=0 : CloseClipboard : return -3
    
    // データ取得
    GetClipboardData 566
    if stat=0 : CloseClipboard : return -4
    hGlobalMem = stat   
    
    // グローバルメモリブロックのサイズ取得
    GlobalSize hGlobalMem
    if stat=0 : CloseClipboard : return -5
    globalMemLen = stat
    // 受け取りバッファー初期化
    sdim cbBinBuf,globalMemLen
    bufPtr = varptr(cbBinBuf)
    // グローバルメモリブロックをロック
    GlobalLock hGlobalMem
    if stat=0 : CloseClipboard : return -6
    globalMemPtr = stat
    // バッファーへコピー
    dupptr cbBinBuf,globalMemPtr,globalMemLen,2
    res = stat
    GlobalUnlock hGlobalMem
    CloseClipboard
    if res=0 : return -7
    // サイズを返す
    return globalMemLen
// これだけ定義されていないので書いておく
#uselib "kernel32.dll"
#func CopyMemory "RtlMoveMemory" sptr, sptr, sptr
#deffunc setcbbin var cbBinBuf,int size
    // サイズチェック
    if size<=0 : return -1
    // グローバルメモリブロック確保
    GlobalAlloc 66,size
    if stat=0 : return -2
    hGlobalMem = stat
    // ポインター取得
    binptr = varptr(cbBinBuf)
    // グローバルメモリブロックをロック
    GlobalLock hGlobalMem
    if stat=0 : GlobalFree hGlobalMem : return -3
    globalMemPtr = stat
    // グローバルメモリブロックにコピー(結果が返ってこないのでちと不安)
    CopyMemory globalMemPtr,binptr,size
    // グローバルメモリブロックのロック解除
    GlobalUnlock hGlobalMem
    // クリップボードオープン
    _opencb
    if stat=0 : GlobalFree hGlobalMem : return -4
    // クリップボードの所有権をゲット
    EmptyClipboard
    if stat=0 : GlobalFree hGlobalMem : CloseClipboard : return -5
    // クリップボードにコピー
    SetClipboardData 566,hGlobalMem
    if stat=0 : GlobalFree hGlobalMem : CloseClipboard : return -6
    // クリップボードをクローズ
    CloseClipboard
    return 0
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX