Привет программеры!
Скажите пожалуйста, если не затруднит:
Как мне загрузить картинку? Т.е. пользователь может выбрать путь картинки и она экспортируется в поле картинки.
Посмотрите скрин: http://kursach.tom.ru/uploads/1184772282_untitled1.jpg
Если ДиалогФыбораФайла.Выбрать() Тогда
Элемент.Значение = ДиалогФыбораФайла.ПолноеИмяФайла;
ИмяФайлаПриИзменении(Элемент);
КонецЕсли;
КонецПроцедуры
Процедура ИмяФайлаПриИзменении(Элемент)
Если ЗначениеНеЗаполнено(Элемент.Значение) Тогда
ФайлОбраз = "";
Возврат;
КонецЕсли;
ФайлНаДиске = Новый Файл(Элемент.Значение);
Если Не ФайлНаДиске.Существует() Тогда
Предупреждение("Не найден файл!");
Возврат;
КонецЕсли;
Картинка = Новый Картинка(Элемент.Значение);
ЭлементыФормы.Картинка.Картинка = Картинка;
Сжатие = Новый СжатиеДанных(6);
ХранилищеКартинки = Новый ХранилищеЗначения(Картинка, Сжатие);
ФайлОбраз = ХранилищеКартинки;
КонецПроцедуры
Даа, Поппи, если Очкарито и Азернот выложили на тарелочке решение, то ты вообще разжевала и в рот положила... Но не об этом речь: напиши кто-нибудь человеку "кури документацию" - уверен, что обиделся бы.... Да еще обвинил в заносчивости... Жаль, что нельзя оценивать ответы в форуме - всем троим влепил бы по еденице (с плюсом впереди...).
VasilyKushnir Написал:
-------------------------------------------------------
> напиши кто-нибудь человеку "кури документацию" - уверен, что
> обиделся бы.... Да еще обвинил в заносчивости...
Правильнее написать RTFM и (или) STFW. И это не повод для обид и обвинений.
Так ведут себя только беспредельщики (в смысле обижаются, обвиняют и огрызаются).
> Правильнее написать RTFM и (или) STFW. И это не
> повод для обид и обвинений.
> Так ведут себя только беспредельщики (в смысле
> обижаются, обвиняют и огрызаются).
>
> ______________________________________
> Самая короткая дорога - та, которую знаешь.
RTFM - refer to fucking manual (втрое в том же духе). Я правильно понял транскрипцию? Честно скажу -улыбнуло. 5 баллов. Первая приятность за весь этот сумашедший день... Подняла настроение.
См. http://infostart.ru/articles/157/ - в знак благодарности (хотя в 8-ке ни бум-бум).
VasilyKushnir Написал:
-------------------------------------------------------
> RTFM - refer to fucking manual (втрое в том же
> духе). Я правильно понял транскрипцию?
В целом = правльно. Read The F...ing Manual и Search The F...ing Web.
Хотя, "кури документацию", тоже красиво, но как то не по хакерски.
> См. - в знак благодарности (хотя в 8-ке ни
> бум-бум).
Sorrov Написал:
-------------------------------------------------------
> Ну дк кто-нибудь скажет все - таки как сделать,
> чтоб картинка при загрузке сохранялась?
poppy Написал:
-------------------------------------------------------
> Sorrov Написал:
> --------------------------------------------------
> -----
> > Ну дк кто-нибудь скажет все - таки как
> сделать,
> > чтоб картинка при загрузке сохранялась?
>
> Что конкретно у тебя не получается?
У меня на форме картинка загружается, все ок.
Но она не сохраняется.
Я так думаю нужно ченить вписать в "ПриОткрытии()" вот только что?
Может кто сказать.
Пробовал вписывать вот это:
Картинка = РегистрСведенийМенеджерЗаписи.Изображение.Получить();
Если Картинка <> Неопределено Тогда
ЭлементыФормы.Картинка = Картинка;
КонецЕсли;
Выкидывает ошибку мол переменная не определена: РегистрСведенийМенеджерЗаписи.Изображение.Получить();
это все делал в справочнике номенклатура, для отбражения картинки номенклатуры.
1) создай реквизит Изображение с типом данных ХранилищеЗначений
2) в форме размести картинку с именем Миниатюра
Эта кнопка загружает картинку
Процедура Кнопка1Нажатие(Элемент)
// Вставить содержимое обработчика.
// Вставить содержимое обработчика.
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.ПолноеИмяФайла="";
ДиалогОткрытияФайла.Фильтр = "Текст(*,*)|*.*";
ДиалогОткрытияФайла.МножественныйВыбор=ложь;
ДиалогОткрытияФайла.Заголовок="Выберите файл с картинкой";
Если ДиалогОткрытияФайла.Выбрать() тогда
ВыбКартинка = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);
Изображение = Новый ХранилищеЗначения(ВыбКартинка);
КонецЕсли;
Фото = Изображение.Получить();
Если Фото <> Неопределено тогда
ЭлементыФормы.Миниатюра.Картинка = Фото;
КонецЕсли;
КонецПроцедуры
Эта кнопка стирает картинку
Процедура Кнопка2Нажатие(Элемент)
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Вы действительно хотите удалить картинку ?",
Режим,0,, "Удалить картинку ?");
Если Ответ = КодВозвратаДиалога.Да Тогда
ВыбКартинка = Новый Картинка;
Изображение = Новый ХранилищеЗначения(ВыбКартинка);
Фото = Изображение.Получить();
ЭлементыФормы.Миниатюра.Картинка = Фото;
Иначе
Возврат;
КонецЕсли;
poppy Написал:
-------------------------------------------------------
> 2 Sorrov
>
> Где ты хранишь (хочешь хранить) картинку?
>
> Это можно сделать в реквизите справочника или в
> регистре сведений.
>
>
> ______________________________________
> Самая короткая дорога - та, которую знаешь.
Ну т.к. в регистре сведений конфигуратор ошибку выкидывает, тогда чучше в реквизите :)
anpilogov, СПАСИБО все работает, вот только у меня все один и тот же вопрос, почему она не сохраняется? Я думаю, что что-то нужно написать в "ПриОткрытии". Вот только что? Помогите люди добрые.