Вывод картинок в печатную форму

Программирование - Практика программирования

Обработка выводит все картинки (.jpg) из выбранного каталога (и подкаталогов) в печатную форму. Искал по инету и справкам, как это сделать - нигде не нашёл. Сделал методом научного тыка и решил выложить - может кому пригодиться.

Скачать файлы

Наименование Файл Версия Размер
-
.1216032341 133,00Kb
25.09.09
307
.1216032341 133,00Kb 307 Скачать бесплатно

См. также

Комментарии
1. Сhe Burashka (CheBurator) 14.07.08 14:53 Сейчас в теме
Не работает... Выводит одну тумбнайлку всего из каталога...
если вдруг надо - посмотри у меня в профиле по прграммам и блогам - там есть мелкие обработочки по всяким "картинкам"
2. Роман Петров (PeRom) 50 14.07.08 15:23 Сейчас в теме
выводит только .jpg
Что-бы выводила все возможные типы файлов нужно строку 35 заменить на:
Код
Если (Прав(Ф,4)=".jpg") или (Прав(Ф,4)=".wmf") или (Прав(Ф,4)=".emf") или (Прав(Ф,4)=".ico") или (Прав(Ф,4)=".bmp") или (Прав(Ф,4)=".dib") или (Прав(Ф,4)=".rle") Тогда
Показать полностью
3. Роман Петров (PeRom) 50 14.07.08 15:59 Сейчас в теме
Извиняюсь был косяк, при повторном запуске без закрытия формы выводилось то-же что и при первом. Поправил.
4. Сhe Burashka (CheBurator) 14.07.08 19:23 Сейчас в теме
Катер не катит! Суши весла!
вот у меня, например, Прав(Ф,4) возвращает ".JPG"...
5. Сhe Burashka (CheBurator) 14.07.08 19:31 Сейчас в теме
Предлагаю покурить кастанеду и расширить границы сознания... вместо офигенной длины условия предлагаю писать коротко и кузяво:
Вариант1:
Код
СЗ = СоздатьОбъект("СпсиокЗначений");
СЗ.ДобавитьЗначение("JPG");
СЗ.ДобавитьЗначение("GIF");
//...
//и дальше юзать
если СЗ.Принадлежит(ВРег(Прав(Ф,4))) = 1
//
Показать полностью

плюс надо иметь в виду: расширения могут быть не обязательно 3-х символьные...
tiff, jpeg - вполне легитимные названия
//
вариант2
Код
ДопустимыеРасширения = "*JPG*GIF*TIF*....";
расширение = "*"+ВРег(Прав(ф,3))+"*"
если Найти(ДопустимыеРаширения,Расширение) > 0 тогда
Показать полностью
6. Сhe Burashka (CheBurator) 14.07.08 19:32 Сейчас в теме
по поводу (1) - это я видимо лажанулся - у мну в каталоге всего одна картинка была....
7. Сhe Burashka (CheBurator) 14.07.08 19:34 Сейчас в теме
+ отстойно выводить все в один столбик.. нет бы расположить шахмакой...
8. Роман Петров (PeRom) 50 14.07.08 22:52 Сейчас в теме
Главная идея вывести картинку, а какие расширения использовать и как располагать картинки, и выводить ли имена файлов - это уже дело техники и вкуса. ИМХО
Идею использовал для вывода картинок, прикреплённых к элементам справочника в прайс-лист, а обработку сляпал на скорую руку для иллюстрации идеи.
ПС: 1с различает верхний и нижний регистр в имени файла, и для учёта всех возможных вариантов придётся дублировать расширения в верхнем и нижнем регистре или преобразовывать имена файлов в один из регистров...
9. Владимир Пресняков (vip6374) 16.07.08 07:35 Сейчас в теме
Предпочитаю помещать картинки в Эксель, эффективно выводить пакет лицензий для алкоголя, можно контролировать, кому эти лицензии уже выданы и когда
10. Сhe Burashka (CheBurator) 21.07.08 15:36 Сейчас в теме
(8) а зачем юзера грузить этими проблемами? если обработка для юзера - то оценка на троечку - неудобно....
если для прога - то на единицу....
12. ineoosaki (ineoosaki) 07.11.08 18:50 Сейчас в теме
Вижу, fixin, решил заценить разработки своих доброжелателей.
Посмотрим, что из этого получиться.
13. Роман Петров (PeRom) 50 07.11.08 18:54 Сейчас в теме
У ГЕниЯ такой способ поиска новых партнёров. Видать тем 89 он уже давно надоел.
14. ineoosaki (ineoosaki) 07.11.08 19:26 Сейчас в теме
2 (13)
Вместо того, что бы умничать, и поганить чужие ники, лучше бы ответили на 11.
15. Роман Петров (PeRom) 50 08.11.08 02:07 Сейчас в теме
14. А шобы было. А по разумному, пятниццо уйдёт, будет по делу.
16. Оракул Айметдинов (jhfrek) 164 08.11.08 23:52 Сейчас в теме
(11) Мне нужна была такая программулина для того чтобы все фотографии из каталога пакетно распечатать. Писать самому было влом, поэтому по одному распечатал. Клиенту одному делал подобную штуку, только там одну фотографию нужно было выводить на печать. У них там схемы были нарисованы. Так что вещь полезная. Редко конечно, но могут такое нестандартные клиенты заказать.
17. Роман Петров (PeRom) 50 10.11.08 15:32 Сейчас в теме
14. Во-первых, про что в (11) вопрос. Если про обработку - то специально для слабовидящих из (8)Идею использовал для вывода картинок, прикреплённых к элементам справочника в прайс-лист, а обработку сляпал на скорую руку для иллюстрации идеи.
Во-вторых, насчёт поганить чужие ники - это я ещё по божески. Для иллюстрации прошу обратить внимание на коменты к последним 15-20 идеям идеягенератора. И насчёт умничать там-же.
18. Ёпрст (Ёпрст) 1021 10.11.08 15:46 Сейчас в теме
Ээххх когда же поиск то заработает у людёв ?
http://www.mista.ru/articles1c/hare/article.18.html
19. Роман Петров (PeRom) 50 10.11.08 16:14 Сейчас в теме
(18)" - Ну не шмогла я, не шмогла." с.
20. Роман Петров (PeRom) 50 10.11.08 16:27 Сейчас в теме
Ёпрст прошу Вашего разрешения добавить найденную Вами ссылку в описание обработки.
21. Ёпрст (Ёпрст) 1021 10.11.08 16:29 Сейчас в теме
(20) мне то что, это не мой код .. :)
22. Ёпрст (Ёпрст) 1021 10.11.08 16:29 Сейчас в теме
Это
Никита Зайцев (WildHare) где-то в 1999
23. Ёпрст (Ёпрст) 1021 10.11.08 16:30 Сейчас в теме
Хотя этот способ был известен и раньше ...
Просто всегда находились люди и записывали полезные вещи где-то...
:)
24. Роман Петров (PeRom) 50 10.11.08 16:58 Сейчас в теме
21-23 Согласен, очередной велосипед получается. Доказать нечем, но после безрезультатного поиска использовал только ЖКК...
А насчёт поиска по Инфостарту, был бы поиск и по форуму, таких велосипедом на порядок поуменьшилоль бы :(
25. Proger Proger (Proger) 09.11.09 18:24 Сейчас в теме
Ободрялка тебе.Небось проблы со скачкой ;)
26. Андрей Марецкий (Iksteram) 06.10.11 18:07 Сейчас в теме
Да идея не нова, но когда мне понадобилось, нашел только тут. Так что спасибо.
27. eremin (mybracho) 10.05.12 15:02 Сейчас в теме
Оставьте свое сообщение