Пт мар 02, 2018 4:08 pm Пт мар 02, 2018 4:08 pm
program NoticeGet;
var
IntermediateVariable, sMsg, UserListStore: string;
byteArray : array of integer;
CountStore,SendMsg, Count, f,i: integer;
time, dtNow: double;
const
SetTime=16;
Group1='Группа1';
function GetUserList(sUINList:string):string;
var
sData,sUIN,sResult:string;
UserListStore:string;
begin
sData:=sUINList;
while length(sData)>0 do begin
sUIN:=GetNextSt(sData,',');
sResult:=sResult+sUIN+',';
end;
result:=sResult;
end;
begin
UserListStore:=GetUserList(mGetUsersListInGroupByName(Group1));
IntermediateVariable:=UserListStore;
i:=0;
while length(IntermediateVariable)>0 do
begin
sMsg:=GetNextSt(IntermediateVariable, ',');
byteArray[i]:=sMsg;
CountStore:=i;
Inc(i);
end;
time:=FormatDateTime('hh',dtNow);
if (time=SetTime) then begin
for Count:=0 to CountStore do begin
SendMsg:=mSendBroadcast('Hi','i',EndofTheDay(Now),0);
end;
end;
end.