استفاده ازmscomm۳۲در دلفی
با سلام و خسته نباشید من از روش زیر در ویژوال بیسیک توانستم از طریق وقفه اطلاعات را از پورت سریال بخوانم با دستورات زیر حال میخواهم بدانم مشابه این کار را در دلفی چطور انجام بدهم ؟در ضمن com_io.pas را نتوانستم دانلود کنم
Private Sub Command1_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim st As String
Dim C As Byte
While (MSComm1.InBufferCount)
C = AscB(MSComm1.Input)
st=st+hex(c)
Wend
text1.text=st
End Sub
** آخرین ویرایش در يكشنبه 12 خرداد 87 - 11:40 AM _______________________________________________________________________
j.z.y
|
