L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-09 #1 1。通过发送字节数组来实现数据通讯 2。数据采集不停,也就是说只要程序一旦开了,就不停向设备发命令,然后读取信息。 经过测试通过后,马上给分。
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-09 #5 ¥3000还差不多吧。 没做过,帮不了你了 不过我想肯定是用线程来实现的, 看看这个: http://www.china-pub.com/computers/emook/0918/info.htm
L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-09 #8 通讯协议是IEC870-5-101。。。。 我的部分源代码在http://www.delphibbs.com/delphibbs/dispq.asp?lid=678999 本来我想给更多分,但没办法给,弄的我还丢了100分。 有什么需要的请给我EMAIL:lp414@sina.com MSN: lp414@hotmail.com
通讯协议是IEC870-5-101。。。。 我的部分源代码在http://www.delphibbs.com/delphibbs/dispq.asp?lid=678999 本来我想给更多分,但没办法给,弄的我还丢了100分。 有什么需要的请给我EMAIL:lp414@sina.com MSN: lp414@hotmail.com
Q qdshen Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-09 #9 +100分,我也想学学! qdshen@263.net
L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-09 #10 IEC870-5-101在这个地方可以下 http://www.htong.com/zlxz/zlxz.htm
I iie Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #14 建议你用async控件自己做,不难的, 按你描述的,你的收发指令基本是固定的, 那就更容易,主要是在接收监听上分析协议流,做得越精致,运行效率就越高,
M mikegong Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #15 用控件comm32就行了,看看csdn。net那里,有这个控件啊!! 好像还有源代码。。。应该不难吧!
L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #16 请大家看清楚要求,我不是要的简单通讯,而是多设备不间断的通讯。 楼上各位大虾既然认为这个很方便的话,请帮我一下。 分数除了这里能得到外,还有http://www.delphibbs.com/delphibbs/DispQ.asp?LID=678999 上的两百分。 分数总共是499分
请大家看清楚要求,我不是要的简单通讯,而是多设备不间断的通讯。 楼上各位大虾既然认为这个很方便的话,请帮我一下。 分数除了这里能得到外,还有http://www.delphibbs.com/delphibbs/DispQ.asp?LID=678999 上的两百分。 分数总共是499分
L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #17 现在公布我的QQ: 59938689,,,请在加我的理由中写“DELPHI”.拒绝无聊的聊天!
I iie Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-12 #18 我刚才简单看了一下你的程序,感觉sleep有问题,我从来不在程序里用这种阻塞函数
L lp414 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-15 #20 to iie:你给我的控件我使用中,有点疑问。 发送 b[1]:=byte($68); b[2]:=byte($05); b[3]:=byte($05); b[4]:=byte($68); b[5]:=byte($4b); b[6]:=byte($01); b[7]:=byte($00); b[8]:=byte($05); b[9]:=byte($10); b[10]:=(b[5]+b[6]+b[7]+b[8]+b[9]) mod 256; b[11]:=byte($16); for i:=1 to 11 do s:=s+strpas(@b); 然后用Ok := VaComm1.WriteText(S); 结果得到一些乱码。没有通过COM口发向设备。但OK是TRUE。很奇怪。 请帮忙。
to iie:你给我的控件我使用中,有点疑问。 发送 b[1]:=byte($68); b[2]:=byte($05); b[3]:=byte($05); b[4]:=byte($68); b[5]:=byte($4b); b[6]:=byte($01); b[7]:=byte($00); b[8]:=byte($05); b[9]:=byte($10); b[10]:=(b[5]+b[6]+b[7]+b[8]+b[9]) mod 256; b[11]:=byte($16); for i:=1 to 11 do s:=s+strpas(@b); 然后用Ok := VaComm1.WriteText(S); 结果得到一些乱码。没有通过COM口发向设备。但OK是TRUE。很奇怪。 请帮忙。