A
ANTIDEAD
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用"串口精灵"从com1向com2口(我的程序)单个字符A/1000毫秒,程序受到的字符个数不稳定(应该是一个一个的接收,但有时是2~7个),代码如下,请高手指点:
procedure Tform1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i:integer;
strsouc: PChar;
strdesc:array[0..128] of char;
tempint:integer;
begin
strsouc:= Buffer;
//tempint:=strlen(str);
tempint:=0;
for i:=0 to bufferlength-1 do
begin
if strsouc=char(65) then
strdesc:=strsouc;
end;
tempint:=strlen(str
desc);
edit1.text:=inttostr(tempint);//tempint应为1,单有时是2~7之间的数.
if tempint<>0 then
intcontrol:=tempint;
end;