如下代码在DELPHI中如何写
Private Sub Command24_Click()
Dim FrameBuf(9) As Byte
FrameBuf(0) = &HFF 'MAC
FrameBuf(1) = &HFF
FrameBuf(2) = &HFF
FrameBuf(3) = &HFF
FrameBuf(4) = &HFF
FrameBuf(5) = &HFF
FrameBuf(6) = &HFF 'TYPE
FrameBuf(7) = &HFF 'TYPESUB
FrameBuf(8) = &H0 'ORDER
FrameBuf(9) = &H0 '方向
Call UDPSend(FrameBuf)
Private Sub Command24_Click()
Dim FrameBuf(9) As Byte
FrameBuf(0) = &HFF 'MAC
FrameBuf(1) = &HFF
FrameBuf(2) = &HFF
FrameBuf(3) = &HFF
FrameBuf(4) = &HFF
FrameBuf(5) = &HFF
FrameBuf(6) = &HFF 'TYPE
FrameBuf(7) = &HFF 'TYPESUB
FrameBuf(8) = &H0 'ORDER
FrameBuf(9) = &H0 '方向
Call UDPSend(FrameBuf)
var
FrameBuf: array[0..9] of Byte;
begin
FrameBuf[0] := $FF; //MAC
FrameBuf[1] := $FF;
FrameBuf[2] := $FF;
FrameBuf[3] := $FF;
FrameBuf[4] := $FF;
FrameBuf[5] := $FF;
FrameBuf[6] := $FF; //TYPE
FrameBuf[7] := $FF; //TYPESUB
FrameBuf[8] := $0; //ORDER
FrameBuf[9] := $0; //方向
UDPSend(FrameBuf);
end;