Löschen von Jpeg Dateien

[needatip]

Hallo
ich möchte Jpeg Bilder aus einem Verzeichnis löschen die ich vorher in einem Image betrachten kann.
Leider stürzt das Programm dann ab, die Exe Datei verschwindet und ich bekomme eine Project.exe.000 Datei ?!
Was mache ich falsch? Auch wenn ich das Image vorher mit
Image1.Picture.Assign(Nil); lösche, gleiches Symptom

Delphi-Quellcode:

uses jpeg...
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  i: integer;
begin
  for i := 1 to 10 do
  begin
    FileName := 'c:\temp\delPic\' + IntToStr(i) + '.jpg';
    Image1.Picture.LoadFromFile(Filename);

...

    Image1.Picture.Assign(Nil);
    if FileExists(FileName) then
      DeleteFile(FileName);
  end;
end;

[Luckie]

Lass die Schleife mal rückwärts laufen.

[Rolf Frei]

Was sagt dein Virenscanner? Da scheint mir irgendwas deine Exe als Gefahr einzustufen und diese zu deaktivieren (umbenennen). Dein Code ist auf jeden Fall nicht dafür verantwortlich. Schau dir mal die Logs deines Virenscanners an.

[dataspider]

Zitat von Rolf Frei:

Was sagt dein Virenscanner? Da scheint mir irgendwas deine Exe als Gefahr einzustufen und diese zu deaktivieren (umbenennen). Dein Code ist auf jeden Fall nicht dafür verantwortlich. Schau dir mal die Logs deines Virenscanners an.

Genau das macht bei mir OfficeScan, wenn ich im Code eine Datei lösche...
...und wirft mir bösartiges Verhalten vor!

Frank

[Rolf Frei]

Dann schmeiss das Teil weg und nutze den Windows Defender. Der macht seinen Job besser als die meisten teuren AV-Programme.

[dataspider]

Würde ich gern, hab ich aber nicht zu entscheiden...

[himitsu]

Zitat von Luckie:

Lass die Schleife mal rückwärts laufen.

Da hier nicht aus einer Liste gelösch wird, wobei sich diese Liste ändert, ist die Richtung somit egal.

Auch Image1.Picture zu löschen ist egal, da die Datei nur kurz während des LoadFromFile geöffnet ist und es danach keine Verbindung mehr zur Datei gibt.



Das FileExists ist im Prinzip auch egal (für den gezeigten Zeil des Codes), da die Datei definitiv vorhanden sein muß, weil wenn nicht, dann raucht das LoadFromFile vorher schon mit einer Exception aus der Methode raus.

Keine Ahnung was ... ist, aber bis auf LoadFromFile kann es hier keine Exception geben.
DeleteFile liefert einen Fehlercode, wobei hier weder dessen Result noch GetLastError ausgewertet wird.

Und nichts an dem gezeigten Code kann das Programm beenden, da die VCL um den Aufruf dieser Methode ein Try-Except hat und dann via Application.ShowException den Fehler nur anzeigt.