全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:786
推到 Plurk!
推到 Facebook!

我有一程式可以當成控件使用試了幾天都沒用

尚未結案
x_y_z
一般會員


發表:9
回覆:14
積分:4
註冊:2004-03-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-19 16:06:07 IP:219.80.xxx.xxx 未訂閱
軟體說明 1、註冊簡訊控件。 執行:smstxrx.exe /Embedding 就可以自動註冊短信控件了。 2、其中類CXmsRemoteControl包裝了對短信控件的調用。其中接口說明: bool LoadRemoteXms (void); 裝載短信控件。 long xms_Connect (LPSTR bstrPort, long lSpeed); 連接手機。參數bstrPort表示連接的端口名稱,比如(「COM1」「紅外線」)等。 參數lSpeed表示連接速度,比如(19200)。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_Disconnect(long nDevice); 斷開和手機的連接。參數nDevice為連接手機時返回的手機句柄。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_SendMessage (long lDevice, LPSTR strPhoneNum, LPSTR strMsg); 發送普通短信。參數lDevice為連接成功的手機句柄,strPhoneNum為手機號碼, strMsg為要發送的短信內容。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_ReceiveMessage (long lDevice, LPSTR * strMsg, long * lMsgLen, long lDeleteMsg); 接收手機中的短信。參數lDevice為連接成功的手機句柄, strMsg為短信內容,lMsgLen為返回短信的 長度,lDeleteMsg為是否刪除短信。 返回值:大於0表示成功,等於0表示沒有短信,小於0表示失敗。 試用版只能發送100個普通短信,30個Wap_Push短信。 ====================================================================== 我已經在板上發問過了但是還是沒辦法調用哪位大人能幫忙一 下我用DELPHI geniustom VC 轉換成DELPHI bool LoadRemoteXms (void); long xms_Connect (LPSTR bstrPort, long lSpeed); long xms_Disconnect(long nDevice); long xms_SendMessage (long lDevice, LPSTR strPhoneNum, LPSTR strMsg); long xms_WapPush (long lDevice, LPSTR strPhoneNum, LPSTR strURL, LPSTR strContent); long xms_ReceiveMessage (long lDevice, LPSTR * strMsg, long * lMsgLen, long lDeleteMsg); -------------------------------------------------------------------------------- function LoadRemoteXms():boolean; function xms_Connect (bstrPort:String;lSpeed:integer):integer; function xms_Disconnect(nDevice:integer):integer; function xms_SendMessage (lDevice:integer;strPhoneNum,strMsg:String):integer; function xms_WapPush (lDevice:integer;strPhoneNum,strURL,strContent:String):integer; function xms_ReceiveMessage (lDevice:integer;strMsg:Pchar;lMsgLen,lDeleteMsg:integer):integer; 簡單說明 bool--->Boolean long--->integer LPSTR-->String LPSTR*->Pchar 有傳回值都叫Function 無傳回值都叫Procedure GOOD LUCK
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-20 17:35:53 IP:220.130.xxx.xxx 未訂閱
我來猜猜看吧!
引言: 軟體說明 1、註冊簡訊控件。 執行:smstxrx.exe /Embedding 就可以自動註冊短信控件了。 (AAA) smstxrx.exe <-- 是不是一個Automation Server? 2、其中類CXmsRemoteControl包裝了對短信控件的調用。其中接口說明: {BBB}CXmsRemoteControl<--是不是一個Type Library檔案? bool LoadRemoteXms (void); 裝載短信控件。
(CCC)LoadRemoteXms (void)<--是不是在取得Automation 
                                 Server 的介面(interface)?
          然後以下的Function都是去Call 這個介面的Method?    
long xms_Connect (LPSTR bstrPort, long lSpeed); 連接手機。參數bstrPort表示連接的端口名稱,比如(「COM1」「紅外線」)等。 參數lSpeed表示連接速度,比如(19200)。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_Disconnect(long nDevice); 斷開和手機的連接。參數nDevice為連接手機時返回的手機句柄。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_SendMessage (long lDevice, LPSTR strPhoneNum, LPSTR strMsg); 發送普通短信。參數lDevice為連接成功的手機句柄,strPhoneNum為手機號碼, strMsg為要發送的短信內容。 返回值:大於0表示成功,小於等於0表示失敗。 long xms_ReceiveMessage (long lDevice, LPSTR * strMsg, long * lMsgLen, long lDeleteMsg); 接收手機中的短信。參數lDevice為連接成功的手機句柄, strMsg為短信內容,lMsgLen為返回短信的 長度,lDeleteMsg為是否刪除短信。 返回值:大於0表示成功,等於0表示沒有短信,小於0表示失敗。
如果上述(AAA), (BBB), (CCC)成立的話, 則我建議你先自己import 一份 Type Libtary, 自行取得界面自己Call它的Method. 以上純屬建議,如果有誤,純屬猜錯...
系統時間:2024-06-29 15:22:04
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!