肯定可以发送和接收
发送
procedure tform1.write;
var
buf:array[0..1] of byte;
begin
buf[0]:=byte($A1);
comm1.writedata(@buf[0],1);
end;
接收:
procedure tform1.oncomm1recievedata(buffer:pointer;bufferlength:integer);
var
buf:array[0..1023] of byte;
s:string;
begin
move(buffer,pchar(buf),bufferlength);
//十六进制
s:=inttostr(buf[0]);
end;