L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
以前重来没做过串口，现在老板让我试试可不可以用串口通信，两台PC用一根串口连接
不用什么校验之类的，只要一个能发一个能收就行，以后就可以自己试了，哪位贴
段代码？谢了
不用什么校验之类的，只要一个能发一个能收就行，以后就可以自己试了，哪位贴
段代码？谢了
C
chur
Unregistered / Unconfirmed
GUEST, unregistred user!
做好线，用‘直接电缆连接’就好啊，何必去做什么程序？
D
dcsdcs
Unregistered / Unconfirmed
GUEST, unregistred user!
采用spcomm或者api直接搞定！
查询本论坛，会有大把！！！
查询本论坛，会有大把！！！
L
luckchen8256
Unregistered / Unconfirmed
GUEST, unregistred user!
用MSComm和SPComm很简单的
发送：
MSComm.PortOpen := true;
MSComm.Output := data;//data为你想发送的数据
接收：
MSComm.PortOpen := true;
procedure TfrmMSComm.MSComm1Comm(Sender: TObject);
var
vRec: variant;
begin
case MSComm.ComEvent of
2:
begin
vRec := MSComm.Input;
end;
end;
发送：
MSComm.PortOpen := true;
MSComm.Output := data;//data为你想发送的数据
接收：
MSComm.PortOpen := true;
procedure TfrmMSComm.MSComm1Comm(Sender: TObject);
var
vRec: variant;
begin
case MSComm.ComEvent of
2:
begin
vRec := MSComm.Input;
end;
end;
T
truecat
Unregistered / Unconfirmed
GUEST, unregistred user!
来个EMAIL，我给你发个完整的例子，WIN98+D6
L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
哦，我用spcomm思路有，就是具体事件和方法不太清楚怎么写。
L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
truecat:哦，刚才没看见，我的mail： lclpipi@163.com 多谢了
我查了一些资料现在基本明白了用法，可是我用“串口精灵”在一台PC上发数据，
我自己写了个收数据的小东西，可是没有反映啊。那里有问题啊
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
edit1.Text:=s;
end;
我查了一些资料现在基本明白了用法，可是我用“串口精灵”在一台PC上发数据，
我自己写了个收数据的小东西，可是没有反映啊。那里有问题啊
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
edit1.Text:=s;
end;
L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
我靠，搞定，原来是我的 com2坏了
