@@出來的東西並是想要的 set url "http://dfktv2.com/getJson.php" set useragent "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.151 Safari/534.16" set type "application/x-www-form-urlencoded" set text "Fmethod=POST&option=artist"
package require http
set query [::http::formatQuery $text] puts $query set hid [::http::geturl $url -method post -query $query] if {[::http::status $hid] eq "ok"} { set data [::http::data $hid] puts $data }
應該直接 set text "Fmethod=POST&option=artist" set hid [::http::geturl $url -query $text] 這樣就可以了 ::http::formatQuery 的話得用 key value 的格式 set query [::http::formatQuery Fmethod POST option artist] set hid [::http::geturl $url -query $query]
invalid command name "button" while executing "button .btnok -text "ok" -command {exit}" (file "/home/oknow/main.bin/lib/app-tmpkit/tmpkit.tcl" line 3) invoked from within "source /home/oknow/main.bin/lib/app-tmpkit/tmpkit.tcl" ("package ifneeded app-tmpkit 1.0" script) invoked from within "package require app-tmpkit" (file "/home/oknow/main.bin/main.tcl" line 4)
主要是看到新版 treectrl 提供漸層 element，感覺可以做出很多花俏的介面，加上最近天天寫 Tcl/Tk，手感正好，只是要等到 release 還有段時間，現在只能晚上或是假日寫興趣的。
回覆刪除就寫一套系統，內容等你回來再私底下講 XD 比較特別的是我採用之前說的 js+html+css 來做主要 gui，這案子做完後大概知道哪些應用適合用這架構，哪些功能是做不到的。目前覺得最大的優點是開發快速，gui 可以交給網頁美編做。
回覆刪除不好意思!! 可以請教一下tcl的問題嗎
回覆刪除如果在ubuntu下要呼叫Tcl_sleep()這個函式
需先引入tcl.h
但卻有沒有這個檔可引入
請問應該要如何解決呢？
ps:已裝tcl8.5
感恩~
沒這樣用過 tcl，我猜 tcl.h 是在 source 裡? 不然等 dai 來回答好了。
回覆刪除我搜尋了整個硬碟沒找到
回覆刪除網路說會在usr/include/tcl8.5 底下
但也沒有
不過有找到別的函式替代方案囉
謝謝囉
不好意思可以再請教一個問題
回覆刪除當我在執行
set hid [::http::geturl $albumUrl -binary 1]
結果會出現Error in startup script: invalid command name "::http::geturl"
似乎是找不到::http::geturl這個函數
請問該如何解決呢？ 謝謝囉~
package require http 試看看
回覆刪除解決囉
回覆刪除原來要加上 package require http ?2.7?
感恩~^__^
不好意思又來請教您問題了
回覆刪除不知道tcl能不能傳POST data
今天看了一下手冊::http::getul似乎沒有可用的參數
ps:後來是用wget解決了,但還是想知道~這樣程式就不用另外呼叫wget了
感恩
post 要用 -query ，query 字串可先用 ::http::formatQuery 編碼，或是直接用 arg1=val1&arg2=val2。
回覆刪除@@出來的東西並是想要的
回覆刪除set url "http://dfktv2.com/getJson.php"
set useragent "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.151 Safari/534.16"
set type "application/x-www-form-urlencoded"
set text "Fmethod=POST&option=artist"
package require http
set query [::http::formatQuery $text]
puts $query
set hid [::http::geturl $url -method post -query $query]
if {[::http::status $hid] eq "ok"} {
set data [::http::data $hid]
puts $data
}
這是wget的語法，可順利取得
#exec wget -q -O $::list_path --user-agent=\"$useragent\" --post-data=$text $url
是我哪邊有用錯了呢？謝謝指教囉
應該直接
回覆刪除set text "Fmethod=POST&option=artist"
set hid [::http::geturl $url -query $text]
這樣就可以了
::http::formatQuery 的話得用 key value 的格式
set query [::http::formatQuery Fmethod POST option artist]
set hid [::http::geturl $url -query $query]
真的可以用了~哈~太感謝囉
回覆刪除沒想到tcl能做到這種程度
難怪dai要推它
不過我又遇到一個問題@@
在用ezdit打包成執行檔時，打包沒問題…
但要執行打包後的執行檔卻出現，似乎是tmpkit.tcl有問題…我是在ubuntu下執行的，請問大大有遇過類似的情形嗎？
invalid command name "button"
while executing
"button .btnok -text "ok" -command {exit}"
(file "/home/oknow/main.bin/lib/app-tmpkit/tmpkit.tcl" line 3)
invoked from within
"source /home/oknow/main.bin/lib/app-tmpkit/tmpkit.tcl"
("package ifneeded app-tmpkit 1.0" script)
invoked from within
"package require app-tmpkit"
(file "/home/oknow/main.bin/main.tcl" line 4)
簡單的程式如下:
button .btnok -text "ok" -command {exit}
pack .btnok
感恩~~
= = 師叔…
回覆刪除那我要叫你師公嗎？…
不好意思請問一下...
回覆刪除這個軟體現在已經沒有 for mac os x 的版本了對不對???
謝謝您
现在2012年了喔……等到脖子都長了……話說，可不可以加入多一點的相冊？特別是一切大陸的例如pconline的攝影博客，poco，等等……
回覆刪除有辦法修正無名不能抓的問題嗎!?
回覆刪除順便問一下能寫出抓取SING相冊嗎...
諸多要求，打擾不便 請見諒
順帶一提 新年快樂
時間拿來寫能換錢的程式比較重要，所以近期不會有新的進度...
回覆刪除同意!!!
回覆刪除先把時間用來交換可以換錢的程式比較重要，
建議，這麼多人用你的程式你開個paypal的帳戶讓人donate您
這樣應該也會比較有動力。
必盡您寫的程式真的不錯用XD