在Delhpi中怎样用MScomm进行串口通信? (10分)

  • 主题发起人 主题发起人 ahai
  • 开始时间 开始时间
A

ahai

Unregistered / Unconfirmed
GUEST, unregistred user!
非常感谢大家的指导与帮助!我已经做了一个小程序,但发现与下载的一个用VB做的通信程序进行COM1到COM2调试时,
当VB程序发送十六进制数据时,我的程序就不能正确接收了,只有当VB程序发送ASC码时
我的程序才能正确接收。请问用什么函数转换?我找不到资料。代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
mscomm.inbuffercount:=0;
mscomm.InputLen :=0;
mscomm.RThreshold :=1;
mscomm.settings:='9600,n,8,1';
mscomm.CommPort :=1;
mscomm.PortOpen :=true;
n4.enabled :=false;
com11.checked:=true;
memo1.text:='';
memo2.Text :='';
end;
procedure TForm1.N9Click(Sender: TObject);//发送数据;
var
s:string;
begin
s:=memo2.text;
MSComm.Output:=s;
end;
procedure TForm1.MSCommComm(Sender: TObject);
var
recstr:olevariant;
begin
if mscomm.CommEvent =comevreceive then
begin
recstr:=mscomm.input;
memo1.Text :=memo1.text+recstr;
end;
end;
end.
 
看看与InputMode属性是否有关系
 
http://delphi.mychangshu.com/dispdoc.asp?id=671
 
我需要源代码,能同时进行十六进制数据的收发。
 
接受答案了.
 
后退
顶部