UTF8対応版TsubuyakiSoupのTweetUTF8

hinekure_inovia
2012/7/19 23:28
タグ：
タグはありません
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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
/*======================================================================
    ツイートサンプル
------------------------------------------------------------------------
    ツイートするサンプルです。
    (このサンプルを実行するには、「Sample01_OAuth.hsp」か
    「Sample02_xAuth.hsp」を実行して「Setting.txt」を作成してくださ
    い。)
  ※このモジュールやサンプルを実行する場合には、Twitter側から
    ConsumerKeyとConsumerSecretを取得する必要があります。詳しくは、モ
    ジュールと同封されている「TsubuyakiSoupドキュメント」を参照して
    ください。
------------------------------------------------------------------------
Author     : takata
LastUpdate : 10/10/16
CreateDate : 10/09/23
======================================================================*/
// モジュールをインクルード
#include "../TsubuyakiSoup.as"
#module
#uselib "msvcrt"
#cfunc strstr "strstr" int, sptr
#uselib "kernel32"
#func MultiByteToWideChar "MultiByteToWideChar" int, int, sptr, int, sptr, int
#func WideCharToMultiByte "WideCharToMultiByte" int, int, sptr, int, sptr, int, int, int
#deffunc UTF8ToUnicode var in, var out
    MultiByteToWideChar 65001/*CP_UTF8*/, 0, varptr(in), -1, 0, 0
    len = stat
    sdim out, len * 2 + 2
    MultiByteToWideChar 65001/*CP_UTF8*/, 0, varptr(in), -1, varptr(out), len
return len
#deffunc UnicodeToUTF8 var in, var out
    // Unicode → UTF-8
    WideCharToMultiByte 65001/*CP_UTF8*/, 0, varptr(in), -1, 0, 0, 0, 0
    len = stat
    sdim out, len + 1
    WideCharToMultiByte 65001/*CP_UTF8*/, 0, varptr(in), -1, varptr(out), len, 0, 0
return len
#deffunc ShiftJISToUTF8 str _in_sjis, var out_utf8
    in_sjis = _in_sjis
    // SHIFT_JIS → Unicode
    len = strlen(_in_sjis) * 2
    sdim uni, len + 2
    cnvstow uni, _in_sjis
    // Unicode → UTF-8
    WideCharToMultiByte 65001/*CP_UTF8*/, 0, varptr(uni), -1, 0, 0, 0, 0
    len = stat
    sdim out_utf8, len + 1
    WideCharToMultiByte 65001/*CP_UTF8*/, 0, varptr(uni), -1, varptr(out_utf8), len, 0, 0
return len
#deffunc BOMDelete var in_utf8
    // EF BB BF(BOM) 手抜き～
    if (0xBFBBEF == (lpeek(in_utf8, 0) & 0xFFFFFF)){
        len = strlen(in_utf8)
        sdim copybuf, len*2 + 1
        copybuf = in_utf8
        sdim in_utf8, len*2 + 1
        memcpy in_utf8, copybuf, len, 0, 3
        return 1
    }
return 0
// instr(手抜きUTF8対応版)
#defcfunc instr_utf8 var in_buf, int p, str _key
    key = _key
    inbuf_ptr = varptr(in_buf) + p
    s_pos = strstr(inbuf_ptr, key)
    if s_pos == 0 : return -1
return (s_pos - inbuf_ptr)
#global
#module
#deffunc _TweetUTF8 str p1, double p2
    tmpStr = p1
    //１４０字に丸める
    if (mb_strlen(tmpStr) > 140) {
        tmpStr = mb_strmid(p1, 0,140)
    }
    //POST
    sdim Argument
    Argument(0) = "status="+ form_encode(tmpStr, 1)
    if p2 > 0 : Argument(1) = "in_reply_to_status_id="+ strf("%.0f",p2) 
    RESTAPI ResponseBody, ResponseHeader, METHOD_POST, "statuses/update."+ TS_FormatType@TsubuyakiSoup, Argument
return stat
#define global TweetUTF8(%1, %2=0) _TweetUTF8 %1, %2
#global
#module
#defcfunc hex2bin str _s1
    s1 = _s1
    memexpand s1, strlen(s1)*2
    sdim buf, strlen(s1)*2+1
    i = 0
    repeat strlen(s1)
        key = strmid(s1, cnt, 1)
        if (key == " " || key == "\t"){
            // 読み飛ばす
            continue
        }
        key = strmid(s1, cnt, 2)
        if (key == "\n"){
            // 読み飛ばす
            continue
        }else : if (key == "0x"){
            poke buf, i, int("$"+strmid(s1, cnt+2, 2))
            i++
        }       
    loop
return buf
#global
// ここから
;サンプル用設定ファイル
#include "SampleSetting.hsp"
if CONSUMER_KEY = "" : dialog "「SampleSetting.hsp」でConsumerKeyとConsumerSecretを設定してください。" : end
    // 初期化
    TS_Init "TsubuyakiSoup Sample", CONSUMER_KEY, CONSUMER_SECRET, 20
    //設定ファイルの有無確認
    xToken = ""
    xSecret = ""
    exist "Setting.txt"
    if strsize != -1 {
        notesel SFA
        noteload "Setting.txt"
        if (Decryption(SFA, "SampleKey")=0) : dialog "ファイルの復号に失敗したため、読み込むことができませんでした。終了します。" : end
        noteget xToken,0
        noteget xSecret,1
        noteunsel
        SetAccessToken xToken, xSecret
    }
    if ( (xToken ="") or (xSecret = "") ) : dialog "「Sample01_OAuth.hsp」か「Sample02_xAuth.hsp」を実行して「Setting.txt」を作成してください。" : end
    ;TweetText = ""
    ;pos 10, 10
    ;input TweetText, 450,20
    ;InputID = stat
    ;pos 470, 8
    button gosub "投稿", *submit
stop
*submit
//---------------------------------
// ツイート
//    Tweet 命令で投稿します。
//    第一引数に投稿する文字列を指定します。
    //Tweet TweetText, 0
    
    
    // Unicodeにしかない文字はこちらで 下は ☝( ՞ਊ ՞)☝ (UTF-8)を文字列化(HEXダンプ)したもの
    ShootingStarString = hex2bin("0xE2 0x98 0x9D 0x28 0x20 0xD5 0x9E 0xE0 0xA8 0x8A 0x20 0xD5 0x9E 0x29 0xE2 0x98 0x9D")
    // 日本語とか変換可能なのはこっち
    ShiftJISToUTF8 "送信テスト", UTF8String 
    // 2つを連結する
    TweetString = UTF8String+ShootingStarString
    // UTF8対応版
    TweetUTF8 TweetString, 0
    //Tweet "ツイートテスト", 0
    ; エラー判断
    if (stat = 200) {
        ;objprm InputID, ""
        dialog "送信完了"
    } else {
        dialog "投稿に失敗しました。\nステータスコード : "+stat,1,"投稿失敗"
    }
//---------------------------------
return
stop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする