如何在Delphi5.0中实现 RS232(串口通信-3条线)(200分)

  • 主题发起人 主题发起人 万圣(NIAT)
  • 开始时间 开始时间

万圣(NIAT)

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大富翁帮忙...串口通信在工业控制方面有很好的作用,两台电脑也可以通过串口线直接连接.


万圣
2000.11.29
wfh7710@163.net
 
可以嵌入汇编,也可以用控件spcomm
 
asm
mov dx,PortAddr
add dx,3
mov al,80h
out dx,al
mov dx,PortAddr
mov ax,TranSped
out dx,ax
mov dx,PortAddr
add dx,3
mov ax,DataFmat
out dx,al
end;
{- asm}
function ReadComm: Byte;
begin
asm
xor cx,cx
mov dx,2fdh
@1: in al,dx
test al,1
jnz @2
dec cx
jnz @1
mov al,0
jmp @4
@2: and al,14
jz @3
mov ErrorCode,al
@3: mov dx,2f8h
in al,dx
@4: mov @Result,al
end;
end;

 
没什么特殊的地方,以前很多人都讨论过。查一查‘局域网与通信’分类
 
vcl.vclxx.org上有很多的。
 
给我来信我给你一个现成的
 
串口通讯很简单,我给一个你。
 
spcomm控件
 

可以用控件如spcomm,mscomm等,
也可以用API,


 
可以利用Api函数
 
这位朋友需要我帮您结束问题么?
 
建议使用spcomm,我才用它做了一个项目,非常好用
 
多人接受答案了。
 
赵普昉;
能给我个DEMO吗?让俺也学习一下!
多谢!
 
我也想要。。。
谢谢。。
shembar@163.com
 
我也想要
wl_whu@163.com
 
赵普昉;
最近我在学习串口通信,能给我个有关SPCOMM的DEMO吗?让俺也学习一下!
多谢!
 
后退
顶部