V
vericky
Unregistered / Unconfirmed
GUEST, unregistred user!
var Rbuf : array [1..1024] of byte ;
...................
procedure TForm1.Comm2ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var i : integer ;
StringGet : string ;
begin
StringGet :='(R): ';
move (buffer^ ,Rbuf,BufferLength);
For i := 1 to BufferLength do
StringGet := StringGet + inttohex(Rbuf,2) + ' ';
memo1.Lines.Add (StringGet) ;
end;
在收进来的所有数据中,唯独'11'不能收取,
比如,对端发送'AB CD 23 11 23' ,我只能收到'AB CD 23 23', '11'没了?
被spcomm 吃了? 谁知道怎么回事?
...................
procedure TForm1.Comm2ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var i : integer ;
StringGet : string ;
begin
StringGet :='(R): ';
move (buffer^ ,Rbuf,BufferLength);
For i := 1 to BufferLength do
StringGet := StringGet + inttohex(Rbuf,2) + ' ';
memo1.Lines.Add (StringGet) ;
end;
在收进来的所有数据中,唯独'11'不能收取,
比如,对端发送'AB CD 23 11 23' ,我只能收到'AB CD 23 23', '11'没了?
被spcomm 吃了? 谁知道怎么回事?