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
recstrlevariant;
begin
if mscomm.CommEvent =comevreceive then
begin
recstr:=mscomm.input;
memo1.Text :=memo1.text+recstr;
end;
end;
end.
当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
recstrlevariant;
begin
if mscomm.CommEvent =comevreceive then
begin
recstr:=mscomm.input;
memo1.Text :=memo1.text+recstr;
end;
end;
end.