易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi spcomm 控件 - Delphi / 网络通信/分布式开发

大侠们帮忙看一下,用spcomm控件进行串口通信。
发送数据:
procedure TForm1.Button2Click(Sender: TObject);
var
 strPressure:string;
begin
 
 strPressure:='SEND'+#13;
 comm1.WriteCommData(pchar(strPressure),Length(strPressure));
end; 

接收数据:
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
 RecvBuf:string;
 strPressure:string;
 str:string;
begin
 Setlength(RecvBuf,BufferLength);
 move(buffer^,pchar(recvbuf)^,bufferlength);
 strPressure:=recvbuf;
 strPressure:=MidStr(strPressure,7,bufferlength-6);
 strPressure:=LeftStr(strPressure,bufferlength-10);
 str:='压强是:'+strPressure;
 memo1.Lines.Add(str);
end 
end;
给气压传感器通信,但是TForm1.Comm1ReceiveData此事件就没有触发过,为何呀?
这几天这个问题好多。。。

把你的SpComm控件属性页里,所有True的地方都改为False再试。


是不是這個命令無效啊

(笑霸王) :

能详细讲解设置false那几个属性的作用吗?

你应该到网上去首先研究一下,这几个属性的作用,你这样编程序,肯定编不好


相关问答:

Delphi的语法问题 - Delphi / 语言基础/算法/系统设计

例子程序见附件,用Delphi 7进行编译
问题代码为 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

用Delphi做一个影院售票管理系统

老师布置了一个课题,需要用Delphi做一个影院售票管理系统,但是我们还没有学过Delphi,各位高手能否指点一下,如何进行系统设计,时间比较紧急,谢谢啊
我也不懂,也想学!

我也是啊,感觉Delphi挺好的,现 ......

sql语句错误 - Delphi / 数据库相关

定义变量s,sql为string类型,s为函数参数,sql:='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错,请各位帮我改错,多谢!

showMessage(sql)下看看
sql:='sel ......

delphi 问题求助 - Delphi / 网络通信/分布式开发

问题是这样子的
我在form1中定义了一个sk1:tsocket
然后在form2中
用sk1 发送东西 发完后 socket 自动关闭了~
但是在form1中发东西 如果我不运行 closesocket 的话 是不会断掉的
问下 这是怎么回事
另我在 for ......

delphi 高速网络发包 - Delphi / 网络通信/分布式开发

用delphi的现有控件写收发数据的测试,在两台机器上试,结果网速是100M的,带宽最高只能用到30%至50%,是不是应该通过网卡驱动什么的直接做收发数据的代码?我是在要做一个极速情况下网络数据收发程序,那位有做过或 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号