Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.06.26;
Скачать: CL | DM;

Вниз

Не удается удалить картинку, созданную через jpg.savetofile()   Найти похожие ветки 

 
snakeas   (2011-03-20 12:42) [0]

Здравствуйте. Такая проблема:
В процессе работы программы в папку сохраняется картинка так:

procedure TFormCamers.SaveImage(ImageName, Dir: string);
var
 jpg: tjpegimage;
begin
 jpg := tjpegimage.create;
 jpg.assign(ImageMain.picture.graphic);
 jpg.compressionquality := 75;
 jpg.compress;
 jpg.savetofile(Dir + "\" + ImageName + ".jpg");
 jpg.Free;
 
end;

Затем создается еще одна, мне нужно предыдущую удалить.
DeleteFile() выдает ошибку 32, средствами Windows, пока программа не запущена, тоже не удается - файл используется.
Подскажите, как от этого избавиться? Может удалить дескриптор, но не знаю как.
Заранее спасибо


 
snakeas   (2011-03-20 13:38) [1]

Удалено модератором


 
sniknik ©   (2011-03-20 14:41) [2]

> Подскажите, как от этого избавиться?
невозможно, без серьезного психотренинга на веру системным ошибкам...

т.е. для начала садишься в позу лотоса, медитируешь где то чеса 2-3 (по желанию/результативности добавить...) повторяя мантру "файл используется, используется, я этому верю, верю, ....".
после того как снизойдет просветление, быстренько ищешь в программе, где используется, и прекращаешь это там.

p.s. проявляя чудеса экстрасенсорики, и предсказывая следующий пост вида "у меня это единственное место, код которого показал!" отвечаю - чудеса не лечатся. приглашай попа либо освящать комп, либо изгонять из него бесов, это уж он как специалист в своей области решит.


 
snakeas   (2011-03-20 14:43) [3]

Удалено модератором


 
snakeas   (2011-03-20 14:54) [4]

Удалено модератором


 
snakeas   (2011-03-20 15:05) [5]

хм, за методику медитации спасибо, оказывается файл использовался еще в одном месте, я как-то даже это упустил.



Страницы: 1 вся ветка

Текущий архив: 2011.06.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.007 c
2-1300306556
Aleks
2011-03-16 23:15
2011.06.26
Округление чисел в Дельфи


4-1227677945
Саня
2008-11-26 08:39
2011.06.26
Перехват названий окон и приложений


15-1300117961
Сергей К.
2011-03-14 18:52
2011.06.26
Bob Marley - no woman, no cry


2-1300865735
lewka
2011-03-23 10:35
2011.06.26
Текст в TLabel


15-1299833572
OW
2011-03-11 11:52
2011.06.26
Как проверить было ли изменение TDataSet ?