|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2020, 17:17 | #1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Сохранение картинки из Image в папку
Здравствуйте. Сделал по видео просмотр изображений в Image. Загружаются изображения со своими наименованиями. Просьба написать код для создания папки с именем из TextBox1 рядом с файлом Excel; поиска этой папки для сохранения в неё выбранной картинки с новым именем, введённым в TextBox2. После загрузки одной картинки будет новый выбор и сохранение в эту-же папку с новым именем. Тестовый файл прилагаю. С тестовым файлом есть папка с образцами размеров картинок. Если возможно, то желательно загружаемые картинки перевести в примерно такие размеры. Спасибо
|
01.06.2020, 19:28 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Зачем сохранять из Image, файл же имеется в папке?
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
01.06.2020, 20:39 | #3 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Спасибо, что ответили. Мне хотелось бы, чтобы был код для создания папки с именем из TextBox1 рядом с файлом Excel. Я не смог в этот код ничего "пригородить". Файл, который имеется в папке Label30.Caption & ListBox1.Text я бы хотел переименовать в то, что впишу в TextBox2. Получится что-то типа "файл сохранить как" с названием из TextBox2 в папку с названием из TextBox1. Пытался папку назначения слепить с Path = ThisWorkbook.Path & "", но, скорее всего, я одевал корове седло.
|
02.06.2020, 08:06 | #4 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Насобирал кусков и собрал код
Код:
|
02.06.2020, 08:40 | #5 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Возникла проблема с сохранением следующего рисунка в уже созданную ранее папку. Что нужно изменить?
|
02.06.2020, 08:45 | #6 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
В коде убрал создание новой папки и рисунок сохранился с новым названием в выбранную папку. Надо значит как-то прописать, что если папка с таким именем существует, то не создавать новую, а сохранять в неё
|
02.06.2020, 10:11 | #7 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Добавил On Error Resume Next. Картинка стала сохраняться в папку. Код всё-равно нужно править, так как в папке, из которой берётся рисунок, он переименовывается, а потом сохраняется в созданной. Пробовал менять местами куски кода по переименованию и сохранению, но ничего не получилось. По изменению размеров рисунка код не нашёл. Рисунок должен быть пропорциональным с размерами примерно 65х65. Прошу доработать код
|
02.06.2020, 18:13 | #8 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Вобщем разобрался и сделал что связано с сохранением. Громадная просьба, напишите, пожалуйста, код по масштабированию картинки до примерных размеров 65х65. Файл приложил
|
02.06.2020, 18:44 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
02.06.2020, 18:52 | #10 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Я нашёл выход, но за код спасибо. Вопрос закрыт
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование картинки из одного Image в другой Image | Oleg_SS | Общие вопросы Delphi | 7 | 22.05.2014 07:30 |
Сохранение в папку | UKRtortik | Общие вопросы Delphi | 10 | 01.03.2014 21:50 |
сохранение картинки с компонента Image через SavePictureDialog | Karina89 | Помощь студентам | 5 | 25.05.2011 21:59 |
сохранение картинки с компонента Image | Karina89 | Помощь студентам | 7 | 25.05.2011 20:37 |
Размер Image изменяется на размер картинки, а сама она рисуется на области первой картинки | RPGer | Мультимедиа в Delphi | 6 | 20.10.2008 19:54 |