小弟想要寫一支程式,讓使用者可以從資料庫選擇電話號碼 透過Voice Modem撥出去. 剛剛已下載按裝Spcomm, 但之前從未有Com Port的寫作經驗, 真不知從何下手, 可否有那為大大提供一點經驗, 先在此謝過.

引言: 小弟想要寫一支程式,讓使用者可以從資料庫選擇電話號碼 透過Voice Modem撥出去. 剛剛已下載按裝Spcomm, 但之前從未有Com Port的寫作經驗, 真不知從何下手, 可否有那為大大提供一點經驗, 先在此謝過.

//傳送命令給 Modem procedure ModemCommand(c:string); var s:string; begin s:='AT'+'Q0'+c+#13; SPcomm1.WriteCommData(s,strleng(s)); end; //啟始 Modem procedure InitialModem; begin ModemCommand('&C1&D2X4S0=0M0'); end; //撥電話 procedure Dial(PhoneNumber:string); begin ModemCommand('DT'+PhoneNumber); end;

謝謝cfm大大, 程式寫作程序是否是: 1. InitialModem 2. Dial 那傳送命令給Modem是做啥的? 又 InitialModem及Dial若失敗如何得知? 要掛斷電話要如何寫呢?

    //要掛斷電話 procedure HangUp; begin       ModemCommand('HO'); end;    //接聽 procedure Conncct; begin  ModemCommand('A'); end;    

------
︿︿

    1: 發送命令前,先將 DTR 設為 1    檢查 WriteBuf 是否 為 空的    如果 WriteBuf 內無資料表示已發送完畢     再將 DTR 設為 0 2: 要與MODEM 連線 必須 作出始化動作     ModemCommand('ATZ');     InitialModem; 3: 撥出電話    Dial('4125678'); 4:檢查 DCD    DCD=1 表示已連上線   DCD=0 表示已未連上線    

------
︿︿

CFM大大, 謝了!! 現在家裏沒有數據機, 明天到公司試完在回報!!

OK... 明天再繼續    

------
︿︿

CMF兄, 真的很感謝您的關切, 試了以後, 小弟發覺自己對Modem的Communication 沒有基本認識, 以致遇到問題仍無頭緒, 這樣問下去 會沒完沒了!! 幸好昨天在站上找到一個撥號原件, TDialer32, 剛剛 測試無誤, 所以我的問題也解決了!! Thanks Anyway!!