串口读写数据 (100分)

jiweishan · 2004-03-18

我用串口读16进制数据结果发出命令收不到数据啊，请问这是怎么回事啊，代码如下： procedure TForm1.FormShow(Sender: TObject); begin   MSComm1.CommPort := 1;   MSComm1.Settings := '19200,n,8,1';   MSComm1.InputLen := 0;   MSComm1.InputMode := comInputModeBinary;   MSComm1.RThreshold := 1;   MsComm1.PortOpen := True; end; procedure TForm1.Button1Click(Sender: TObject); Var Str : OleVariant;       i : iNTEGER;      AA : String; begin   MSComm1.OutBufferCount := 0;   MSComm1.Output := IntToHex($1B,2);   Ab := $1B;   MSComm1.Output := IntToHex(Ab,2);   Ab := $49;   MSComm1.Output :=IntToHex(Ab,2);   Delay(100);   Str := MSComm1.Input;   Begin     For I := 1 To Length(Str) DO     Begin       AA := AA + Str;     End;   End;  ShowMessage(Str); end; procedure TForm1.MSComm1Comm(Sender: TObject);   Var    Xbyte : Word;        j : Word; InByte :Byte; inbyte2: Byte; inData : String; begin  Case MSComm1.CommEvent of    comEvReceive :    BEgin         InByte := MSComm1.Input;         ShowMessage(IntToStr(InByte));  End;  comEventRxOver    ShowMessage('Err');   End; end;

串口读写数据 (100分)

jiweishan

Unregistered / Unconfirmed

Similar threads