spcomm
发
procedure TForm1.CtrlLamp(CtrlInfo:Byte);
var
BytArrSend: array[0..7] of Byte;
begin
BytArrSend[0] := Ord('*');
BytArrSend[1] := $06;
BytArrSend[2] := 01
BytArrSend[3] := 00;
BytArrSend[4] := $31;
BytArrSend[5] := CtrlInfo;
BytArrSend[6] := 00;
BytArrSend[7] := CheckSum(BytArrSend, 0, 6);
SPComm.WriteCommData(@BytArrSend, 8);
end;
收
procedure TForm1.SPCommReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
bytArrRecv: array of Byte;
begin
SetLength(bytArrRecv, BufferLength);
Move(Buffer^, Pchar(bytArrRecv)^, BufferLength);
end;