mscomm问题!!!在线等!!!(19分)

  • 主题发起人 主题发起人 king_213
  • 开始时间 开始时间
K

king_213

Unregistered / Unconfirmed
GUEST, unregistred user!
程序打开时 串口1打开 并发送十六进制指令(FO 10 F0 10 05) 单片机收到后 返回
十六进制数据(25 38 26 10 E3) 串口收到后 程序提示 准备联机 串口再发送十六进制指令(E5 69 29 8D E7 84 00 00 62) 单片机收到后 返回十六进制数据(03 56)
程序提示 联机成功 之后串口接收字符串数据 并在程序里显示
真实难死我了!!!就剩这点分了!!!请高手帮忙!!!不胜感激!!!
 
procedure TForm1.readClick(Sender: TObject);
var i:byte; j:integer;send,receive:variant;
begin
str_write:=vararraycreate([0,4],varbyte);
send[0]:=$F0;
send[1]:=$10;
send[2]:=$F0;
send[3]:=$10;
send[4]:=$05;
fasong.Clear;
for i:=0 to 4 do
memo1.Text:=memo1.Text+inttohex(str_write,2)+' '; //用来显示
mscomm.Output:=str_write;
wait(30); //是自己写的毫秒级的延时;等待单片机反应
receive:=mscomm.Input; //从缓冲区接受数据
jieshou.text:=inttohex(receive[0],2);
mscomm.Output:= 略 //接着下发的数据
wait(strtoint(dengdai.text));
j:=mscomm.InBufferCount;
receive:=mscomm.input;
。。。。。。。。。。。。
end;
简单写了写,刚开始可以用mscomm练手, 不过建议楼主 用SPCOMM 或API来实现 精确的串口通讯
 
请问用SPCOMM如何实现呀??
 
我原来也想用SPCOMM实现 可是SPCOMM不能完全关闭端口(关闭端口后连接端口的设备指示灯仍然亮着) 郁闷!!!
 
帮顶!

http://www.source520.com

站长开发推广同盟 站长朋友的终极驿站
同时拥有海量源码电子经典书籍下载

http://www.source520.com/search/search.asp

"编程.站长"论坛搜索引擎-----为中国站长注入动力!
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部