Удалить загруженный файл из Temp-папки

[Человек_Борща]

Всем привет!

Интересен вопрос след. характера.

Программа при старте скачивает картинку и сохроняет в Temp папку, и загружает в Timage.

Путь до папкпи+имя файла примерно так:

function GetImgName: string;
begin
  Result:=IncludeTrailingBackslash(GetTempDir)+AdminForm.HTTPLogoFileNameEdit.Text ;
end;

GetTempDir - процедура получения ссылки на временную папку.

при завершении программы нужно удалять файл. Пробовал:

DeleteFile(GetImgName);

ничего не удаляется.. изображение загружается в Timage даже если нет интернета.. (грузится из временой папки).. как удалить?

[Sanprof]

а изображение не используется вашей программой или какой нибудь другой??? и путь обязательно должен быть полным, к примеру (C:\TEMP\1\1\1\Img1.jpg)

[Человек_Борща]

нет изображение использует только моя программа..

т.е. программа скачивает изображение , сохраняет через функцию GetImgName(путь до папки temp+\+имя изображения) , и потом грузит в TImage

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

но этого не происходит.. почему?

[Stilet]

 if not DeleteFile(GetImgName) then RaiseLastWin32Error;

И посмотри чем ось отмазывается.

[Sanprof]

значит пока ваша программа запущена изображение ею используется и поэтому не может быть удалено, попробуте освободить ссылки на загруженные изображения в TImage? что-то типа того

Image1.Picture := nil;

[Пепел Феникса]

может потому что где то не уничтожен файловый обьект?(не закрыт файл)
покажи как грузишь и скачиваешь?

[spamer]

Чего-то ТС скорее всего в пути не так пишет...ну вот например все работает:

function GetTempDir: String;
var
  Buf: array[0..1023] of Char;
begin
  SetString(Result, Buf, GetTempPath(Sizeof(Buf)-1, Buf));
end;

procedure LoadJPG(HTTP : TidHTTP; picURL : string);
var
  st : TMemoryStream;
begin
 st := TMemoryStream.Create;
 HTTP.Get(picURL, st);
 st.Position:=0;
 st.SaveToFile(GetTempDir + '\123.jpeg');
 st.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadJPG(IdHTTP1, 'http://allday.ru/uploads/posts/2010-08/thumbs/1280651156_ec8ozsgr7g9aw1p.jpeg');
  Image1.Picture.LoadFromFile(GetTempDir + '\123.jpeg');
  DeleteFile(GetTempDir + '\123.jpeg');
end;

[Stilet]

значит пока ваша программа запущена изображение ею используется и поэтому не может быть удалено, попробуте освободить ссылки на загруженные изображения в TImage? что-то типа того

Не. Это в другом дело. Я дал пример кода, который покажет в случае неудачи ошибку и ее текст.

[Человек_Борща]

Гружу изображение вот так:

var
  imgURl,imgName,TempDir:string;
begin
  ImgURL:=AdminForm.HTTPLogoEdit.Text;
  imgName:=AdminForm.HTTPLogoFileNameEdit.Text;
  TempDir:=GetTempDir;
  Translator_MessageToLog('Грузим лого изображение...','Downloading logo-image...',MainForm.Log);
 if HTTPGetFile(ImgURL+ImgName,GetImgName,False)  then
 begin
 Translator_MessageToLog('Загрузка лого успешно завершена!','Downloading logo-image succsesfly complited!',MainForm.Log);
 try
 MainForm.HosterLogo.Picture.LoadFromFile(GetImgName);
 MainForm.HosterLogo.Repaint;
 except
 Translator_MessageToLog('[Ошибка] Ошибка чтения логотипа программы!','[Error] Error reading program logo!',MainForm.log);
 Exit;
 end;
 end else
 Translator_MessageToLog('[Ошибка] Не удалось скачать лого-изображение!','[Error] Unable to download the logo-image!',MainForm.log);
 Exit;
end;

там же и загружает Timage .

Stilet - проверка показала что мне отказано в доступе при удалении изображения..

Sanprof - это присать в OnDestroy формы?

Пепел_Феникса - возможно я думаю может нужно построить схему типа:
Скачивание изображения.
Загрузка в TImage
{использование}
Очистка TImage
удаление..

Насчет очистки TImage я ничего не нашёл=(

[Sanprof]

Сообщение от Человек_Борща

это присать в OnDestroy формы?

попробуйте там или в OnClose, сначала освобождаете ссылку потом удаляете. Хотя посути LoadFromFile не должен держать файл.