各位先進,小弟寫了以下這個程式,是基本的收送訊息功能,但卻出現下列問題: //以下程式寫在Timer中觸發. if Copy((DM.ADOTableDaily.FieldByName('CTime').Value),1,6)=FormatDateTime('HHMMSS',time) then //時間到了就送單 begin with IdTCPClient7031 do try WriteLn(tag7031B[DM.ADOTableDaily.RecNo-1]); //寫入 RBString:=ReadString(256); //(以上兩行第一次運行沒問題,可以正確讀到,但換成下一個資料則就會Exception Showmessage "error"??) //回覆確認,比較兩個字串是否一樣 RFlag:=Reply7031(tag7031B[DM.ADOTableDaily.RecNo-1],RBString); if RFlag then //如果正確的話,寫入資料庫更改狀態 begin ProgressBar1.StepIt; DM.ADOTableDaily.Next; end else //回覆格式錯誤,換下一筆寫入 DM.ADOTableDaily.Next; except on E:Exception do begin showmessage('error'); end; end; end; 第一次寫Socket的程式,請多幫忙,謝謝!!

WriteLn(tag7031B[DM.ADOTableDaily.RecNo-1]); RBString := ReadString(256); 確認這兩行是哪一行發生的錯誤？ 還有原本的錯誤訊息為何？ (不是指您指定的 ShowMessage('error'); 這個訊息) 再來檢查為什麼發生這個錯誤訊息 -- hagar.

啊,我感觉是不是第一轮timer还没有结束,第二轮timer又开始了呢?

不好意思,因為與我測試的AS/400 (Server端)最近出了點問題,導致問題擱置,再此先致歉.(我用Indy的範例TCPServer接收就一切正常:( ) 另外考慮下列問題,請各位大大提供些意見. 因為寫這程式的目的,是在資料庫欄位中有一時間欄位,程式根據這個時間送出訊息,小弟利用每秒從去比對時間,這樣是不是很沒效率?!是不是有其他較簡易的方式? 程式功力尚淺,還請多幫忙,謝謝!

今天測試的結果,仍然出現第一次可以正常傳送,傳第二次就掛了..:( Error訊息: EIdSocketError with message 'Socket Error #10053 Software caused connect abort.' 但是如果在送第二次前先切掉連接(disconnect),就一切正常@@.. 各位大大請幫幫忙,謝謝. 新手駕駛請多包含.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.