1,979
社区成员




type TDevice_set = record
id : Integer;
_name : Array[0..31] of Char;
username : Array[0..31] of Char;
userpass : Array[0..15] of Char;
ip : Array[0..15] of Char;
port : Cardinal;
channel_count : Byte;
start_channel : Byte;
device_type : Byte;
end;
type PDevice_Set = ^TDevice_Set;
function Devicelist_Callback(aset: PDevice_set;pksize:integer): Boolean;
var
device : PDevice_Set;
begin
new(device);
if sizeof(TDevice_set)<pksize then
pksize := sizeof(TDevice_set);
move(aset^, device^, sizeof(TDevice_set));
devicelist.Add(device);
result := True;
end;