MyChat Scripts: функция mExtractUserPhoto, сохранить фото пользователя в файл

MyChat Scripts: функция mExtractUserPhoto, сохранить фото пользователя в файл

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

 

Экспорт фотографии пользователя MyChat в файл на диске. Фото сохраняется в формате JPG.

 

Синтаксис

function mExtractUserPhoto(iUIN: integer; sPath, sFileName: string): integer;

 

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

Параметр

Тип

Значение

iUIN

integer

уникальный идентификатор пользователя;

sPath

string

путь на диске, куда необходимо сохранить фотографию. Должен существовать;

sFileName

string

название файла для экспорта до точки. Например, "myfile". Расширение ".jpg" функция добавит автоматически в конец.

 

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

0, если экспорт прошёл успешно;

-1, пользователь с таким UIN не найден на сервере;

-2, у пользователя нет фотографии в профиле;

-3, путь для экспорта указан неверно или папка не существует;

-4, ошибка сохранения файла (нет места на диске, ошибка записи на защищённый диск, нет прав для записи и т.п.).

 

Пример

Экспорт всех фотографий пользователей в папку сервера c:\temp\photos\

var
  sUsersList: string;
  iUIN: integer;
begin
  sUsersList := mGetUsersListByState(-2);
  
    while length(sUsersList) > 0 do begin
      iUIN := strtoint(Fetch(sUsersList, ','));
      mExtractUserPhoto(iUIN, 
                        'c:\temp\photos\', 
                        '(' + inttostr(iUIN) + ') ' + mGetUserAttribute(iUIN, 'DisplayName'));
    end;
end.

Результат работы скрипта

[15:38:21] (Run "ExtractAllUserPhotos"): Время выполнения скрипта: 695 мс

[15:38:21] (Run "ExtractAllUserPhotos"): Скрипт выполнен успешно.

 

Ещё посмотреть

Fetch

IntToStr

mGetUserAttribute

mGetUsersListByState