VPF::Как сохранить изображение в указанную папку

highklass

Дата 8.6.2008, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Код


jpg := TJpegImage.Create;
jpg.Loadfromfile(OpenPictureDialog1.FileName);
if jpg.Height > jpg.Width then
scale := 50 / jpg.Height
else
scale := 50 / jpg.Width;
bmp:= Tbitmap.Create;
bmp.Width := 48;
bmp.Height:= 48;
bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
jpg.Assign( bmp );
jpg.SaveToFile(ChangeFileext('C:\Temp\ntc\', '002.png'));
bmp.free;
jpg.free;end;

Нужно заранее прописать путь сохранения изображения и менять его в любое время не ограничиваясь лишь 'C:\Temp\ntc\'
например в Edit?
Если заменить 'C:\Temp\ntc\' на Edit1.text то выдает ошибку и не сохраняет.
jpg.SaveToFile(ChangeFileext('C:\Temp\ntc\', '002.png'))?
Как по другому сохранить изображение?

Как сохранить картинку заранее указывая любую папку?

ne0n

Дата 8.6.2008, 22:52 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

highklass, Ээээ ты не поназначению используешь функцию ChangeFileExt - смена расширения файла. Наверно поэтому и вылетает ошибка. Чем тебя не устраивает такой вариант?:

Код


jpg.SaveToFile(Edit1.text+'002.png');

--------------------

http://sa-sec.org
как я вам? smile

highklass

Дата 9.6.2008, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Код


var sDir:string;
...
sDir := Edit1.Text;
if Length(sDir)=0 then begin
    // забыли ввести путь
end else begin
    if not(sDir[Length(sDir)] in ['\','/']) then sDir := sDir+'\';
    if ForceDirectories(sDir) then begin
        //путь создан, теперь сохраняем:
        jpg.SaveToFile(sDir+'001.jpg');
    end else begin
        // не удалось создать путь
    end;
end;

Спасибо за помощь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »