Bild speichern -> Exception

[Airblader]

Hi,
ich versuche gerade mal selbst ne Kompo zu erstellen, allerdings hab ich ein Problem.

Wenn ich eine BitMap speichern will, bekomm ich folgendes:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EFCreateError aufgetreten. Meldung: 'Datei C:\Programme\Borland\Delphi6\Projects\18-03-2005\21-51-03.bmp kann nicht erstellt werden'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Zuweisen tu ich das ganze Ding so:

Delphi-Quellcode:

pPath := ExtractFilePath(ParamStr(0)) + StringReplace(DateToStr(Date),'.','-', [rfReplaceAll]) + '\' + StringReplace(TimeToStr(Time),':','-', [rfReplaceAll]) + '.bmp';

if fileexists(pPath) then
begin
     i := 1;
     while fileexists(pPath) do
     begin
          pPath := ExtractFilePath(ParamStr(0)) + StringReplace(DateToStr(Date),'.','-', [rfReplaceAll]) + '\' + StringReplace(TimeToStr(Time),':','-', [rfReplaceAll]) + '_' + IntToStr(i) + '.bmp';
          Inc(i);
     end;
end;

Naja, mach ich jedenfalls nen "Hardcoded"-Dateinamen a la "I:\datei.bmp"; funktioniert es tadellos.

Kann mir jemand sagen was ich schon wieder übersehen hab? *g*

MfG,
air

[alcaeus]

Hallo Airblader,

existiert denn der Unterordner mit dem Datum? Wenn der Ordner nicht existiert, dann knallts natuerlich.

Greetz
alcaeus

[Airblader]

Zitat:

Zitat von alcaeus

Hallo Airblader,

existiert denn der Unterordner mit dem Datum? Wenn der Ordner nicht existiert, dann knallts natuerlich.

Greetz
alcaeus

Oh..natürlich...hätt ich mir aber auch denken können, ich war davon ausgegangen, damit er die Ordner automatisch erstellt *g*

Manchmal sieht amn echt den Wald vor lauter Bäumen nicht

air