Difference between revisions of "File.GetFileSize"

From SunFlurry wiki
Jump to: navigation, search
(Created page with "{{infobox function |name=GetFileSize |object=Файл |caption=Размер файла |type=1 |status=2 |db=1 |exception=Невозможно превратить в ст...")
 
m (1 revision imported)
 
(No difference)

Latest revision as of 08:50, 7 February 2021

  GetFileSize (Размер файла)
Объект:Файл
Статус разработки: Реализована
Тип:Функция
Обращение к БД:Сервер
Исключения:Невозможно превратить в строку
Визуальность:Нет

Функция возвращает размер указанного файла в байтах. Если файл не существует, функция возвращает 0.

Синтаксис

File.GetFileSize(<Путь и имя файла (STRING)>):<Размер файла в байтах (INT)>

Аргументы

  • <Путь и имя файла (STRING)> - Путь и имя файла. Путь может быть как серверным и так и локальным (Имена файлов).

Возвращаемое значение

Возвращается целое число, размер существующего файла в байтах.

Примеры

Файл:="";
If OpenFileDialog(Файл,"Выберите файл с образом удостоверения","Файлы в формате JPG|*.jpg",1,"jpg") Then
  If File.GetFileAttributes(Файл) And _FILE_ATTRIBUTE_READONLY<>0 Then
    Box("Файл имеет атрибут только для чтения! Снимите пометку перед использованием!",Q_STOP);
    Exit;
  EndIf;
    
  аРазм:=File.GetFileSize(Файл);
  If аРазм/1024>МаксРазмер Then
    Box("Размер файла удостоверения слишком велик ("+глФРМ(аРазм/1024)+"Кб)! Не разрешается добавлять удостоверения размером более "+
      МаксРазмер+"Кб! Измените разрешение при сканировании, либо отредактируйте картинку в граф. редакторе!",Q_STOP);
    Exit;
  EndIf;
  
  //Проверка на корректный формат
  аБуф:=Buffer.Create();
  аБуф.LoadFromFile(Файл,0,2);
  if аБуф.GetWord(0)<>55551 Then //$d8ff
    Box("Поддерживаются только картинки в формате JPG, даже если выбранный файл имеет расширение JPG, внутренний формат его не соответствует этому расширению!",Q_STOP);
    Exit;
  EndIf;
    
  ...
EndIf;