今天，一同事問，PB下如何調用短信接口的問題。
一般短信接口有http，webservice，db，api等幾種格式，他用的是http。
感覺很簡單，他說用ole容器，插入對象，調用，可惜，在PB9下，總是非法退出，鬧的想裝個PB11看看。
至少5年沒用過PB了。還真得想想。
http的接口只要在瀏覽器中輸入對應的url，就已經調用成功，那就是執行一次對應url的過程，也沒必要非用ole。況且，ole這東西在pb下很不穩定。
如果按我所想，無論什麼方式，只要有一次url的訪問就可以。考慮下用pb的internetresult 這個內置對象，並測試如下：
建個對象n_ir_msgbox，繼承自internetresult，直接在internetdata函數中返回1（這一步很關鍵，必須有個返回值）
建立窗口，定義實例變量n_ir_msgbox iir_msgbox
增加按鈕，click事件中：
inet linet_base
String ls_url
integer li_rc
iir_msgbox = CREATE n_ir_msgbox
if GetContextService("Internet", linet_base) = 1 THEN
ls_url = "http://ip:port/sms/http/SendSms?Account=004&Password=33c678db81ecd3daed05bb4520a59f13&Content=這是個測試的短信&Phone=13012345678"
li_rc = linet_base.GetURL(ls_url, iir_msgbox)
END IF
DESTROY iir_msgbox
測試，一次性成功。呵呵。
簡單的記錄下來