接收时:
下面的代码是接收串口信息的例子。要注意的是MSCOMM的文字属性为二进制。
procedure TForm1.MSComm1Comm(Sender: TObject);
var
Mbuffer:variant;
arr: array of byte;
K_sum:integer;
OutputString:string;
ArrayLength:integer;
begin
arr:=nil;
if mscomm1.CommEvent =2 then begin
mbuffer:=mscomm1.Input ;
arr:=mbuffer;
if arr=nil then exit;
.
.
.
end;
.
.
.
end;