在procedure TForm1.MSComm1Comm(Sender:TObject);
var
recstr:Olevariant;
begin
if MSComm1.CommEvent=2 then
begin
recstr:=MSComm1.Input;
Memo1.text:=Memo1.Text+recstr;
end;
end;
之前你应该打开portopen,DTREnable,RTSEnable
var
recstr:Olevariant;
begin
if MSComm1.CommEvent=2 then
begin
recstr:=MSComm1.Input;
Memo1.text:=Memo1.Text+recstr;
end;
end;
之前你应该打开portopen,DTREnable,RTSEnable
解决方案 »
- 100分问 怎样用delphi7实现检测进程是否存在?
- TADOCommand 删除 Sql server 中数据 超时
- 谁有用gprs模块发送彩信的经验?有偿购买代码!
- 如何画销售走势点线图(里面有模拟数据列举)
- 有无选用软件公司开发企业信息化软件的标准?
- 我的 showmadal怎么不能使用阿
- 谁有SakMail最新版本的(3.5以上),请发一个给我,谢谢.
- 生日,在隔离中度过,散分1000……
- delphi的ADO问题---送100分
- dephi中的报表打印为什么每次只列出一条记录???
- 我用ADOQuery删除数据库后,要压缩数据库总出错说“被Admin以排它方式打开',怎么办?
- 在树形控件的单击事件中,如何判断单击的对象?
事件中接收数据呢?还有就是为什么我每次只能接收到8个字符,但是我定义的缓冲区是1024个字符的,也就是说我用memo来显示所接收的内容,
memo.lines.add(mscomm1.input);
每行最多只有8个字符,到底是怎么回事?
另外请大家帮个忙,也就是哪儿有多线程的代码,当然是mscomm串口通信的源代码,我想看看,学习学习!谢谢!