T
taiy
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个串口通信器,采用一个类似于传呼装置的无限接收器接收信息,接受后在RichEdit上显示的却是EE 01 EE 01 EE 01 EE 01 EE 01 ,而不是我要接收的正确的汉字信息,如何才能接收到我想要的正确的信息呢?请各位高手指点,问题实在是很急!
我用的是TurboPower Async Professional V4.06 中的 Tadport控件,接收信息代码如下:
//接收数据
procedure TMainForm.ComPort1Trigger(CP: TObject; Msg, TriggerHandle,
Data: Word);
var
I : Word;
C : Char;
s : String;
begin
try
case Msg of
APW_TRIGGERDATA :
;
APW_TRIGGERAVAIL :
begin
s:='';
for I:= 1 to Data do
begin
C := ComPort1.GetChar;
if CB_hexGet.Checked then
begin
s:=s+inttohex(byte(c),2) ;
end else
s:=s+c;
inc(JSdate);
end;
StatusBar.Panels.Items[2].Text:='接收:'+inttostr(JSdate);
Diff(s);//在RichEdit中显示字符串
end;
APW_TRIGGERTIMER :
;
end;
except
end;
end;
恳请您的帮助
我用的是TurboPower Async Professional V4.06 中的 Tadport控件,接收信息代码如下:
//接收数据
procedure TMainForm.ComPort1Trigger(CP: TObject; Msg, TriggerHandle,
Data: Word);
var
I : Word;
C : Char;
s : String;
begin
try
case Msg of
APW_TRIGGERDATA :
;
APW_TRIGGERAVAIL :
begin
s:='';
for I:= 1 to Data do
begin
C := ComPort1.GetChar;
if CB_hexGet.Checked then
begin
s:=s+inttohex(byte(c),2) ;
end else
s:=s+c;
inc(JSdate);
end;
StatusBar.Panels.Items[2].Text:='接收:'+inttostr(JSdate);
Diff(s);//在RichEdit中显示字符串
end;
APW_TRIGGERTIMER :
;
end;
except
end;
end;
恳请您的帮助