有關從電腦發送簡訊至手機的問題.. |
|
答題得分者是：RaynorPao
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
請問大家:
我想寫個發送簡訊的介面程式,我找到較可行的方式有2種
1.中華電信的[air to socket] 但是太貴了(要設定和安裝費)...
http://sockettoair.hinet.net/spec.htm
2.台灣簡訊 (可行且便宜,以量計費)
http://www.twsms.com/web_faq_a.php
它有副範例程式,但是是用PHP寫的(我沒有接觸過),不知誰能
轉成BCB的方式呈現呢??
程式內容如下: http://api.twsms.com <?
$msg = "CID=test&CPW=test&N=0922111222&M=測試API簡訊";
$num = strlen($msg); // 打開 API 閘道
$fp = fsockopen ("api.twsms.com", 80);
if ($fp) {
$MSGData = $MSGData."POST /SendSMS.php HTTP/1.1\r\n";
$MSGData = $MSGData."Host: api.twsms.com\r\n";
$MSGData = $MSGData."Content-Length: ".$num."\r\n";
$MSGData = $MSGData."Content-Type: application/x-www-form-urlencoded\r\n";
$MSGData = $MSGData."Connection: Close\r\n\r\n";
$MSGData = $MSGData.$msg."\r\n";
fputs ($fp, $MSGData); // 取出回傳值
while (!feof($fp)) $Tmp[]=fgets ($fp,128); // 關閉閘道
fclose ($fp); // 顯示回傳值
$Respone = split(":",$Tmp[9]);
$Res["Number"] = $Respone[0]; // 傳回碼
$Res["OrderID"] = $Respone[1]; // 如果傳回碼是 00 成功, 才會有 OrderID 產生
echo $Res["Number"];
echo $Res["OrderID"];
}
?> 謝謝大家
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 請問大家: 我想寫個發送簡訊的介面程式,我找到較可行的方式有2種 1.中華電信的[air to socket] 但是太貴了(要設定和安裝費)... http://sockettoair.hinet.net/spec.htm 2.台灣簡訊 (可行且便宜,以量計費) http://www.twsms.com/web_faq_a.php 它有副範例程式,但是是用PHP寫的(我沒有接觸過),不知誰能 轉成BCB的方式呈現呢?? 程式內容如下: http://api.twsms.com <? $msg = "CID=test&CPW=test&N=0922111222&M=測試API簡訊"; $num = strlen($msg); // 打開 API 閘道 $fp = fsockopen ("api.twsms.com", 80); if ($fp) { $MSGData = $MSGData."POST /SendSMS.php HTTP/1.1\r\n"; $MSGData = $MSGData."Host: api.twsms.com\r\n"; $MSGData = $MSGData."Content-Length: ".$num."\r\n"; $MSGData = $MSGData."Content-Type: application/x-www-form-urlencoded\r\n"; $MSGData = $MSGData."Connection: Close\r\n\r\n"; $MSGData = $MSGData.$msg."\r\n"; fputs ($fp, $MSGData); // 取出回傳值 while (!feof($fp)) $Tmp[]=fgets ($fp,128); // 關閉閘道 fclose ($fp); // 顯示回傳值 $Respone = split(":",$Tmp[9]); $Res["Number"] = $Respone[0]; // 傳回碼 $Res["OrderID"] = $Respone[1]; // 如果傳回碼是 00 成功, 才會有 OrderID 產生 echo $Res["Number"]; echo $Res["OrderID"]; } ?>taishyang 你好: 如果~~我是說如果喔< > 如果我想試試看~~該怎麼幫你呢??(我沒有帳號跟環境)< > 建議你先參考以下的連結(利用 TIdHTTP 這個元件)自己先試試看
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2003-02-10 22:55:57
IP:140.135.xxx.xxx 未訂閱
系統時間：2024-04-24 3:54:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |