在delphi和c#中如何实现串口通信
2个回答
展开全部
下面的程序是我自己写的用在工业控制上的一个线程,你可以参考一下。
TMon
=
class(TThread)
private
pt
:
integer;
ph:
string;
LineOff
:
Boolean;
Lasttime
:
TDatetime;
lastmodemstatus
:
Dword;
CmdBuf
:
array
of
_Cmd;
lCmd,rCmd
:
integer;
procedure
WriteCmd;
//写出命令并负责读回数据
procedure
CheckLineStatus;
//主循环调用,检测线路状态
procedure
SendToMaster(msgstr:string);
//发送消息到主应用程序
public
ready
:
Boolean;
constructor
create(portstring);
procedure
WriteToCache(Cmd:_CMD);
protected
procedure
Execute;
Override;
end;
TMon
=
class(TThread)
private
pt
:
integer;
ph:
string;
LineOff
:
Boolean;
Lasttime
:
TDatetime;
lastmodemstatus
:
Dword;
CmdBuf
:
array
of
_Cmd;
lCmd,rCmd
:
integer;
procedure
WriteCmd;
//写出命令并负责读回数据
procedure
CheckLineStatus;
//主循环调用,检测线路状态
procedure
SendToMaster(msgstr:string);
//发送消息到主应用程序
public
ready
:
Boolean;
constructor
create(portstring);
procedure
WriteToCache(Cmd:_CMD);
protected
procedure
Execute;
Override;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询