Для разработчиков > Серверные скрипты > Описание функций > Пользователи

"Для разработчиков", "Серверные скрипты", "Описание функций", "Пользователи", "mGetUINByCID".

Получить идентификатор онлайн-пользователя (UIN) по его номеру подключения (CID).

Синтаксис

function mGetUINByCID(const iCID: int64): integer;

Параметры и возвращаемые значения

Параметр	Тип	Значение
iCID	int64	номер онлайн-подключения к серверу.

Результат функции

UIN пользователя, если CID правильный, -1 — если подключения с таким номером нет.

Пример

Скрипт подсчитывает количество подключений всех онлайн-пользователей и выводит суммарную информацию в консоль.

procedure PrintCount(sUIN: string; iCount: integer);
begin
  if iCount > 0 then mLogScript(IntToStr(iCount) + ' connections', 'UIN ' + sUIN);
end;

var
  sCIDList, sUIN: string;
  i, iCount: integer;
  iCID: int64;
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.Sorted := true;
  SL.Duplicates := dupAccept;

  sCIDList := mGetCIDSByClientType('any');
  
    while length(sCIDList) > 0 do begin
      iCID := StrToInt64(Fetch(sCIDList, ','));
      SL.Add(IntToStr(mGetUINByCID(iCID)));
    end;  
    
    if SL.Count > 0 then begin
      sUIN := '';
      
        for i := 0 to SL.Count - 1 do begin
          if sUIN <> SL[i] then begin
            PrintCount(sUIN, iCount);
            sUIN := SL[i];
            iCount := 1;
          end else inc(iCount);
        end;
        
      PrintCount(sUIN, iCount);  
    end;  
    
  SL.Free;
end.