Имя: Пароль:
1C
1C 7.7
v7: Вывод картинок в прайсе
,
0 Азат
 
09.11.11
17:24
Собственно, суть: в справочнике номенклатуры есть реквизит "Файл картинки" - Строка (200)
туда юзеры навыбирали картинок
имена файлов, каталогов и русские и с пробелами и тп
теперь хочу картинку вывести на прайс

вешаю на таблицу объект "картинка", метод пишу ВывестиКартинку(Таб.ЭтотОбъект, ИмяФайла)

В модуле:
Процедура ВывестиКартинку(Куда, Файл)
    Куда.Загрузить(Файл);
КонецПроцедуры

постоянно ругается, что ошибка доступа к файлу ...

Как можно побороть?
1 ДенисЧ
 
09.11.11
17:25
А что у нас с именем файла?
2 filh
 
09.11.11
17:27
СокрЛП и ФС.СуществуетФайл
3 Азат
 
09.11.11
17:29
(1) ну там бывает всякая дрянь типа D:\Images\Китай\Игрушки новые\И098.jpg
(2) ФС.СуществуетФайл() = 1 стабильно, проверил
4 Ёпрст
 
09.11.11
17:30
ЭтотОбъект ???
5 Азат
 
09.11.11
17:34
(4) а как? не помню, если честно, это нашел в яндехе
6 filh
 
09.11.11
17:36
ТекущийОбъект
7 Азат
 
09.11.11
17:39
(6) а, ну да, канеш
8 filh
 
09.11.11
17:44
Все же попробуй СокрЛП:

ВывестиКартинку(Таб.ТекущийОбъект, СокрЛП(ИмяФайла))
9 Азат
 
09.11.11
18:40
(8) это было первым, что я попробовал
10 Азат
 
10.11.11
07:35
Утренний ап! По совету Абрахамса попробовал с короткими именами, ошибка теперь такая:
Общая файловая ошибка при доступе к D:\1cbases\2008\Images\8311~1\117~1.JPG
Куда.Загрузить(СокрЛП(ИмяФайла));
11 Азат
 
10.11.11
07:49
+ (10) сделал себя владельцем папки, права добавил по максимуму...
12 1Сергей
 
10.11.11
08:17
(10) а оно жипеги разве понимает?
13 Азат
 
10.11.11
09:24
(12) с бмп та же колбаса... картинки разные есть...
14 KUBIK
 
10.11.11
09:26
(10) Общая файловая ошибка при доступе = это значит у тебя нет доступа к картинке.
Скопируй путь в КС и попробуй открыть картинку
15 Азат
 
10.11.11
09:29
(14) попробовал, все норм
16 KUBIK
 
10.11.11
09:34
(15) Посмотри в почте, рабочий отчет, 2 года назад делал.
17 KUBIK
 
10.11.11
09:37
+(16) токо он для самописки, подрихтуй и проверь
18 Азат
 
10.11.11
10:07
(16) та же х*ня, мать ее... всю голову сломал
19 Ёпрст
 
10.11.11
11:28
(18) пр1вер0 на bmp фай2е - будет работать
20 Азат
 
10.11.11
11:58
(19) проверил, не работает.
+ пробовал ShortPath - тоже не взлетело...
21 Азат
 
10.11.11
11:58
и на png попробовал, тоже не летает..

+ перед выводом картинки пробовал КомандаСистемы - открывается, все ок
22 1Сергей
 
10.11.11
14:26
(21) П-к0ж_ к*д
23 Азат
 
10.11.11
14:57
(22) код см в (0)

Все нафиг, тему закрываем, решить не удалось, в итоге решил сразу выгрузкой в Exсеl
24 1Сергей
 
10.11.11
15:06
у меня так работает:

Функция Рисунок (Куда,Знач Откуда) Экспорт
   Если Лев(Откуда,1)="." тогда
       Откуда=КаталогИБ()+Сред(Откуда,2);
   КонецЕсли;
   Попытка
       Если (ПустоеЗначение(СокрЛП(Откуда))=1) тогда  
           Куда.УстановитьКартинку(СоздатьОбъект("Картинка"));
       ИначеЕсли (ФС.СуществуетФайл(Откуда)=0) тогда
           Куда.УстановитьКартинку(СоздатьОбъект("Картинка"));
       Иначе    
           Куда.Загрузить(Откуда);    
       КонецЕсли;    
   Исключение
   КонецПопытки;
КонецФункции
25 Азат
 
10.11.11
15:09
дык код такой же практически кроме УстановитьКартинку)
26 Азат
 
10.11.11
15:09
+ (25) и так день убил на эту дрянь, достало
27 1Сергей
 
10.11.11
15:11
(24) + а в свойствах картинки:

Рисунок(Таб.ТекущийОбъект,"logo.bmp")