Anhang an Dateiname nur wie?

[delpher]

Hallo,


Ich habe folgendes Problem ich will mit:

FStream := TFileStream.Create('c:\test.jpg', fmOpenWrite or fmShareDenyNone);

eine Datei erstellen die ich von einem Server empfange, diese Datei wird alle 2 Minuten neu gesendet wie mache ich es das die erste datei z.b unter test.jpg gespeichert wird und jede weitere eine Zusätzliche zahl bekommt also test1.jpg test2.jpg test3.jpg usw. Habe schon überall gesucht und nix raus bekommen ich hoffe es ist nicht sooo schwer weil ich das wirklich dringend brauche!

Bin für jeden Tip dankbar

[glkgereon]

kannst du nicht immer, wenns gemacht wird nen zähler erhöhen

Delphi-Quellcode:

var
x:integer; //in wahrheit natürlich global
begin
FStream := TFileStream.Create('c:\test'+inttostr(x)+'.jpg', fmOpenWrite or fmShareDenyNone); 
inc(x); oder x:=x+1;
end;

[glkgereon]

hoffe es hilft :-D

[delpher]

Danke schonmal

Also Teilweise kann ich damit was anfangen das Problem ist jetzt nur wenn ich das Programm beende und wieder starte ist der x wert wieder auf 0 ich müsste dann also noch den letzten Dateinamen mit der letzten Zahl wieder einlesen haste dafür auch was?

[fkerber]

Hi!

Dann speicher den Wert von x doch beim Beenden in ner Ini-Datei z.B.

Ciao fkerber

[delpher]

Ne will keine zusätzlichen Dateien habe das jetzt so gelöst

Code:

repeat
  if fileexists('c:\test'+inttostr(i)+'.jpg') then
    i:=i+1;
  until not fileexists('c:\test'+inttostr(i)+'.jpg');
  FStream := TFileStream.Create('c:\test'+inttostr(i)+'.jpg', fmCreate or fmShareDenyNone);

Klappt einwandfrei!

Danke an alle :thuimb: