VB的一段程序，如何用delphi來實現，謝謝！！！ Dim cmd(3) As Byte Dim data() As Byte Dim t1 As Single Dim i As Integer '清除数入缓冲区 data = MSComm1.Input cmd(0) = Asc("r") cmd(1) = mSlave_Address cmd(2) = 13 cmd(3) = 10 '发送命令 MSComm1.Output = cmd t1 = Timer '等待到接收到响应或超时 Do While MSComm1.InBufferCount < 34 If (Timer - t1) > 0.1 Then Exit Do End If Loop If (MSComm1.InBufferCount >= 34) Then MSComm1.InputLen = 34 data = MSComm1.Input '收到响应 labInfo.Caption = "通讯正常" labInfo.ForeColor = vbBlack For i = 0 To 15 labCounter(i).Caption = CStr(data(i * 2) * 256 data(i * 2 1)) Next Else Debug.Print MSComm1.InBufferCount labInfo.Caption = "通讯超时" labInfo.ForeColor = vbRed For i = 0 To 15 labCounter(i).Caption = "###" Next End If

請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34970 Ian

提問者您好:


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


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


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

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