F
fatorhundan
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tfrmkeybroad.ZkPz(strzkIDAll: string; CommandType: string; strCode: string);
var
data: array[0..6] of int64;
datanumber: array[0..31] of integer;
DataStream : TmemoryStream;
begin
data[0] := $00EFCDAB;
datanumber[0] := 4;
datastream.WriteBuffer(data[0],4);
IdUDPClient1.SendBuffer(DataStream,DataStream.Size);
showmessage('baichi');
finally
DataStream.Free;
end;
end;
var
data: array[0..6] of int64;
datanumber: array[0..31] of integer;
DataStream : TmemoryStream;
begin
data[0] := $00EFCDAB;
datanumber[0] := 4;
datastream.WriteBuffer(data[0],4);
IdUDPClient1.SendBuffer(DataStream,DataStream.Size);
showmessage('baichi');
finally
DataStream.Free;
end;
end;