8.х Помогите с картинками

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем emptycolor, 29 янв 2013.

  1. TopicStarter Overlay
    emptycolor
    Offline

    emptycolor

    Регистрация:
    29 янв 2013
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    вот такая задача:
    нужно создать процедуру по ограничению загрузки файлов(картинок) больше 100кб

    до этого была задача ограничить по разрешение чтобы максимум был 800 на 800 пикселей

    Вот код:


    Функция ПроверкаКартинки(ПутьКФайлу) Экспорт

    ИЕ=Новый COMОбъект("InternetExplorer.Application");
    ИЕ.Fullscreen=-1;
    ИЕ.Navigate(ПутьКФайлу);
    IMG=ИЕ.document.getElementsByTagName("IMG").item(0);
    Высота = IMG.Height;
    Ширина = IMG.Width;

    Если Высота > 800 ИЛИ Ширина >800 Тогда
    Возврат ИСТИНА;
    Иначе
    Возврат ЛОЖЬ;
    КонецЕсли;


    КонецФункции // ПроверкаКартинки()

    Вопрос как мне сделать по килобайтам картинки? а то уже везде посмотрел :(
    (1С только начал заниматься, стаж неделя)
  2. Dmitriy_76
    Offline

    Dmitriy_76 Опытный в 1С Команда форума

    Регистрация:
    26 мар 2011
    Сообщения:
    2.175
    Симпатии:
    13
    Баллы:
    29
    ВыбФайл = Новый Файл(ВыбранноеИмяФайла);
    сообщить(ВыбФайл.Размер());
  3. TopicStarter Overlay
    emptycolor
    Offline

    emptycolor

    Регистрация:
    29 янв 2013
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    Спасибо) задача решена!

Поделиться этой страницей