Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранение изображения 
V
    Опции темы
LexaL
Дата 27.12.2010, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет
Как сохранить изображение открытое с помощью OpenDialoga, в любую другую папку без вызова SaveDialoga
PM MAIL   Вверх
Данкинг
Дата 28.12.2010, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not opendialog1.Execute then exit;
  copyfile(pchar(opendialog1.FileName),pchar('i:\musor\'+extractfilename(opendialog1.FileName)),false);
end;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LexaL
Дата 28.12.2010, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет
Спасибо, а если я не знаю на какой диск копировать, а только знаю в какую папку, как выглядеть код будет

Код

copyfile(pchar(opendialog1.FileName),pchar('\.musor\'+extractfilename(opendialog1.FileName)),false)
PM MAIL   Вверх
Данкинг
Дата 28.12.2010, 01:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(LexaL @  28.12.2010,  01:02 Найти цитируемый пост)
Спасибо, а если я не знаю на какой диск копировать, а только знаю в какую папку, как выглядеть код будет

В смысле, не знаешь? А куда копировать собираешься, если не знаешь? smile В любом случае, букву диска надо будет подставить.

Это сообщение отредактировал(а) Данкинг - 28.12.2010, 01:28


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LexaL
Дата 28.12.2010, 01:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет
У меня файл должен сохранятся в папку img, которая храниться в папке с программой, с расчетом того чтоб эту программу можно было бы на другом компьютере открывать.
PM MAIL   Вверх
Данкинг
Дата 28.12.2010, 02:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Код

copyfile(pchar(opendialog1.FileName),pchar(extractfilepath(application.ExeName)+'img\'+extractfilename(opendialog1.FileName)),false);




Это сообщение отредактировал(а) Данкинг - 28.12.2010, 02:33


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
LexaL
Дата 28.12.2010, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет
Огромное Вам, Спасибо!
PM MAIL   Вверх
Данкинг
Дата 28.12.2010, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
LexaL, на здоровье. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0479 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.