Добавить кнопку Обзор...
30.10.2009
12:12
#41
Видимо, надо проверить, сохранил ли документ при записи нужный путь. Сохранил ли он его корректно (может там длины поля не хватает)? Проверить, существует ли файл, на который путь ссылается, ну и все, собственно. А еще надо, конечно же, просто проверить чего там делается с помощью отладчика. По моему, лучшего способа решения разных проблем в алгоритмах просто нет
30.10.2009
12:15
#42
А вы отладчиком пользоваться умеете?
Если где-то работает - значит там правильно. Поставьте точку и посмотрите путь до картинки.
Потом сделайте там, где не работает и сравните
Возможно еще, что вы загрузили, но форма не обновилась.
Если где-то работает - значит там правильно. Поставьте точку и посмотрите путь до картинки.
Потом сделайте там, где не работает и сравните
Возможно еще, что вы загрузили, но форма не обновилась.
30.10.2009
12:19
#43
"в том то и дело смотрю через отладчик все работает загружает с нового пути, но иозображение не обновляется , но есть такие документы в которых есть картинка хть и не правильная.
Если ФС.ВыбратьФайл(0,Файл,Каталог,"Выберите файл картинки","Файл картинки (*.jpg)|*.jpg|Файл картинки (*.wmf)|*.wmf|Файл картинки (*.bmp)|*.bmp|Все файлы (*.*)|*.*","wmf")=1 Тогда
ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
ИзображениеКартинки.Сохранить(НовыйПуть);
ОбновитьИзображение();
КонецЕсли;
Процедура ОбновитьИзображение()
Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
ИзображениеКартинки.Загрузить(ПутьККартинке);
ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
ИзображениеКартинки.Загрузить(НовыйПуть);
КонецЕсли;
КонецПроцедуры "
Если ФС.ВыбратьФайл(0,Файл,Каталог,"Выберите файл картинки","Файл картинки (*.jpg)|*.jpg|Файл картинки (*.wmf)|*.wmf|Файл картинки (*.bmp)|*.bmp|Все файлы (*.*)|*.*","wmf")=1 Тогда
ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
ИзображениеКартинки.Сохранить(НовыйПуть);
ОбновитьИзображение();
КонецЕсли;
Процедура ОбновитьИзображение()
Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
ИзображениеКартинки.Загрузить(ПутьККартинке);
ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
ИзображениеКартинки.Загрузить(НовыйПуть);
КонецЕсли;
КонецПроцедуры "
30.10.2009
12:31
#44
"> Если ФС.ВыбратьФайл(0,Файл,Каталог,"Выберите файл картинки","Файл картинки (*.jpg)|*.jpg|Файл картинки (*.wmf)|*.wmf|Файл картинки (*.bmp)|*.bmp|Все файлы (*.*)|*.*","wmf")=1 Тогда
Выбрали файл - хорошо
> ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
ПутьККартинке - ладно, получили, а где использовали?
> Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
> НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
НовыйПуть - это понятно.
> ИзображениеКартинки.Сохранить(НовыйПуть);
Интересно - а что собственно сохранили? Изображение которое было когда-то, где-то загружено. А новое кто загружать будет?
> ОбновитьИзображение();
>
> КонецЕсли;
> Процедура ОбновитьИзображение()
>
> Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
> ИзображениеКартинки.Загрузить(ПутьККартинке);
> ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
> ИзображениеКартинки.Загрузить(НовыйПуть);
> КонецЕсли;
>
> КонецПроцедуры
"
Выбрали файл - хорошо
> ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
ПутьККартинке - ладно, получили, а где использовали?
> Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
> НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
НовыйПуть - это понятно.
> ИзображениеКартинки.Сохранить(НовыйПуть);
Интересно - а что собственно сохранили? Изображение которое было когда-то, где-то загружено. А новое кто загружать будет?
> ОбновитьИзображение();
>
> КонецЕсли;
> Процедура ОбновитьИзображение()
>
> Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
> ИзображениеКартинки.Загрузить(ПутьККартинке);
> ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
> ИзображениеКартинки.Загрузить(НовыйПуть);
> КонецЕсли;
>
> КонецПроцедуры
"
30.10.2009
12:35
#45
"в смысле кто загружать будет, переходим в процедуру и загружаем:Процедура ОбновитьИзображение()
Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
ИзображениеКартинки.Загрузить(ПутьККартинке);
ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
ИзображениеКартинки.Загрузить(НовыйПуть);
КонецЕсли;
КонецПроцедуры"
Если ФС.СуществуетФайл(ПутьККартинке)=1 Тогда
ИзображениеКартинки.Загрузить(ПутьККартинке);
ИначеЕсли ФС.СуществуетФайл(НовыйПуть)=1 Тогда
ИзображениеКартинки.Загрузить(НовыйПуть);
КонецЕсли;
КонецПроцедуры"
30.10.2009
12:38
#46
"Еще раз - обратите внимание на строку:
> ИзображениеКартинки.Сохранить(НовыйПуть);
И объясните - что вы сохранили по Новому пути?"
> ИзображениеКартинки.Сохранить(НовыйПуть);
И объясните - что вы сохранили по Новому пути?"
30.10.2009
12:39
#47
я сохранила картинку в каталоге с именем вайлика, откуда потом и должна идти загрузка
30.10.2009
12:41
#48
Куда вы торопитесь? Не спешите и читайте внимательнее.
)
> я сохранила картинку в каталоге с именем вайлика, откуда потом и должна идти загрузка
Какую картинку вы туда сохранили?
> я сохранила картинку в каталоге с именем вайлика, откуда потом и должна идти загрузка
Какую картинку вы туда сохранили?
30.10.2009
12:49
#49
Все я поняла у меня сохраняется только оболочка фото,тогда чтобы сохранился сам файл надо прописать путь -"C:\картинки\"+Файл ???, но как сделать чтобы он полность скопировался.
30.10.2009
13:00
#50
"Правильно
. Только выражаясь точнее - вам надо её сначала загрузить:
> Если ФС.ВыбратьФайл(0,Файл,Каталог,"Выберите файл картинки","Файл картинки (*.jpg)|*.jpg|Файл картинки (*.wmf)|*.wmf|Файл картинки (*.bmp)|*.bmp|Все файлы (*.*)|*.*","wmf")=1 Тогда
> ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
> Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
> НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
ИзображениеКартинки.Загрузить(ПутьККартинке);
> ИзображениеКартинки.Сохранить(НовыйПуть);
> ОбновитьИзображение();
"
> Если ФС.ВыбратьФайл(0,Файл,Каталог,"Выберите файл картинки","Файл картинки (*.jpg)|*.jpg|Файл картинки (*.wmf)|*.wmf|Файл картинки (*.bmp)|*.bmp|Все файлы (*.*)|*.*","wmf")=1 Тогда
> ПутьККартинке=Каталог+?(Прав(Каталог,1)="\","""","\")+Файл;
> Каталог2 = ("\\Buh\Рабочая_база\PKFAUTODOOR\картинки");
> НовыйПуть = Каталог2+?(Прав(Каталог2,1)="\","""","\")+Файл;
ИзображениеКартинки.Загрузить(ПутьККартинке);
> ИзображениеКартинки.Сохранить(НовыйПуть);
> ОбновитьИзображение();
"
Читают тему
(гостей: 1)