V7Picture

  1. Оффлайн

    hibico

    Посетители

    Сообщений: 1

    Случайно попал на данный сайт. Интересные разработки.
    В настоящее время очень пригодилась "V7Picture".
    Нужно было сконвертировать множество файлов изображений для переноса из старой конфигурации 7.7 в 8.2.
    Проблема была в том, что формат файлов не соответствовал форматам изображений, и кроме как загрузить в объект картинка 7.7, больше ничего нельзя было с ними сделать.
    Вот тут и пригодилась  "V7Picture".
    Большое спасибо за разработку.
    Правда обнаружилась проблемка.
    Вот примерно такой код:

    ЗагрузитьВнешнююКомпоненту("v7picture.dll");
    V7Pict=СоздатьОбъект("V7Picture"); 
    ФС.УстТекКаталог(Путь1);
    ИмяФайла = ФС.НайтиПервыйФайл("*.*");
    Пока ИмяФайла <> "" Цикл
    Если (ИмяФайла=".") ИЛИ (ИмяФайла="..") Тогда
    ИмяФайла = ФС.НайтиСледующийФайл();
    Продолжить;
    КонецЕсли;
    Карт = СоздатьОбъект("Картинка");
    Карт.Загрузить(ИмяФайла);
    V7Pict.ВыбратьОбъект(Карт);
    V7Pict.ЗаписатьВФайл(Путь2+ИмяФайла+".jpg",80);
    ИмяФайла = ФС.НайтиСледующийФайл();
    КонецЦикла;

    В результате выполнения Обработка начинает жрать память, ну и соответственно в конце концов вываливается.
    Для себя то проблему решил - разбил файлы на отдельные кучки, но проблему решил описать.
    Прикрепления: 2
    10 июля 2013 - 12:36 / #1
  2. Оффлайн

    Wirth

    Администраторы

    Сообщений: 389

    hibico:
    Спасибо, буду иметь ввиду.
    Прикрепления: 2
    10 июля 2013 - 13:02 / #2