串口通讯 现在要做一个串口通讯的测试程序.请教有那些控件比较好用。用没有现成的串口通讯测试程序?谢谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用mscomm控件通讯代码如下:With MSComm1 do begin If PortOpen=true Then begin PortOpen:=false; end; Settings := '2400,M,8,1'; PortOpen := True; BytOut[0] := lono Mod 200; BytOut[1] := lono div 200;//整除 VarOut := vararraycreate([0,1],varbyte);//创建一个数组 varout[0] := BytOut[0]; varout[1] := BytOut[1]; Output := VarOut; end;你还可以参考“delphi 串口通讯技术与工程实践”网上有下电子书 MSCOMM发布较为麻烦.建议使用:SPCOMM或是COMPORT网上有N多的资料.自己找找吧. 如果仅做测试,用现成的就可以,最简单的超级终端,串口调试助手可以用hex调试 关于TImage控件坐标的问题 一个Timer1控件的问题!! TreeView控件的 onChanging 相关问题 各位大哥!如何获得当前打印机设置的纸张边距? Richedit的内容更新到Access的备注字段时出错? 我想用timage控件,编一个可以自动显示单色灰度级变化的程序但是不知道如何下手? 关于类的问题?急!急!急!!! RichEdit的SaveToFile怪问题? 最基本的问题 请教高手,为什么我的TChart经常显示的字体大小和打印的字体大小不一致,而且相差简直太大了,大约相查近10倍,导致好多无法打印,这是怎么回事 DBGrid连接数据库表的问题? 统计问题
通讯代码如下:
With MSComm1 do
begin
If PortOpen=true Then
begin
PortOpen:=false;
end;
Settings := '2400,M,8,1';
PortOpen := True;
BytOut[0] := lono Mod 200;
BytOut[1] := lono div 200;//整除
VarOut := vararraycreate([0,1],varbyte);//创建一个数组
varout[0] := BytOut[0];
varout[1] := BytOut[1];
Output := VarOut;
end;
你还可以参考“delphi 串口通讯技术与工程实践”
网上有下电子书
网上有N多的资料.自己找找吧.
串口调试助手可以用hex调试