procedure TForm_TZ_JuanQuL.FormShow(Sender: TObject);
begin
Comm1.CommName:=Glb_Com;
Comm1.StartComm;
end;
//接收函数
procedure TForm_TZ_JuanQuL.Comm1ReceiveData(Sender: TObject;
Buffer: Pointer; BufferLength: Word);
var
i:integer;
begin
sRece1:='';
move(buffer^,pchar((@rbuf)^),bufferlength);
for i:=1 to bufferlength do
begin
sRece1:=sRece1+ inttohex(rbuf[i],2);
end;
end;