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 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挺好的,现 ......
定义变量s,sql为string类型,s为函数参数,sql:='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错,请各位帮我改错,多谢!
showMessage(sql)下看看
sql:='sel ......
问题是这样子的
我在form1中定义了一个sk1:tsocket
然后在form2中
用sk1 发送东西 发完后 socket 自动关闭了~
但是在form1中发东西 如果我不运行 closesocket 的话 是不会断掉的
问下 这是怎么回事
另我在 for ......
用delphi的现有控件写收发数据的测试,在两台机器上试,结果网速是100M的,带宽最高只能用到30%至50%,是不是应该通过网卡驱动什么的直接做收发数据的代码?我是在要做一个极速情况下网络数据收发程序,那位有做过或 ......