Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Сохранение изображения

Автор: LexaL 27.12.2010, 23:51

Как сохранить изображение открытое с помощью OpenDialoga, в любую другую папку без вызова SaveDialoga

Автор: Данкинг 28.12.2010, 00:52

Код


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

Автор: LexaL 28.12.2010, 01:02

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

Код


copyfile(pchar(opendialog1.FileName),pchar('\.musor\'+extractfilename(opendialog1.FileName)),false)

Автор: Данкинг 28.12.2010, 01:28

Цитата(LexaL @ 28.12.2010, 01:02

)

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

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

В любом случае, букву диска надо будет подставить.

Автор: LexaL 28.12.2010, 01:34

У меня файл должен сохранятся в папку img, которая храниться в папке с программой, с расчетом того чтоб эту программу можно было бы на другом компьютере открывать.

Автор: Данкинг 28.12.2010, 02:33

Код


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

Автор: LexaL 28.12.2010, 08:55

Огромное Вам, Спасибо!

Автор: Данкинг 28.12.2010, 11:26

LexaL, на здоровье. smile