Error sending massive commands
Posted: Wed Aug 12, 2015 8:05 pm
I am trying send massive commands to allowed guids, executing the follow sentences
The first normal, the second return error. Is there some suitable way to do that?
Code: Select all
Cmd := TRVCmd.Create;
Cmd.Cmd := _CMD_USER_STATUS;
with Cmd.Params.Add do begin
Name := 'Status';
ParamType := rvptString;
Value := Status;
end;
for I := 0 to Length(AllUsers)-1 do begin
RVCamSender1.SendCmd(Cmd, AllUsers[i].GUID, '');
RVCamSender1.WaitForSendCmd;
end;