Datei mit einmaligem Namen wieder aufrufen

Stread · Beiträge: 188 Win 7 Delphi XE

Hi,
ich speichere ein Bild in einem Image so ab.

Delphi-Quelltext

1:
2:
3:
4:
5:

JpegBild := TJPEGImage.Create;
.
.
JpegBild.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Screen\' + GetUsername + ' '
+ FormatDateTime('dd.mm-hh.mm.ss', Now) + '.jpeg');

und wollte nun eigentlich das aktuelle Bild über FTP so uploaden

markieren

Delphi-Quelltext

1:
2:

 IdFTP1.Put(ExtractFilePath(ParamStr(0)) + '\Screen\'+...+'.jpeg',
         ExtractFileName(...+'.jpeg'));

Nur wie bekomme ich nun den genauen Dateinamen? Der enthält ja die damals aktuelle Minute und Sekunde. Aber die ist natürlich beim klick auf den FTP Button nicht mehr die gleiche.
Den Namen der Datei in eine Variable laden?

Xion · Verfasst: Sa 23.07.11 22:01

Stread hat folgendes geschrieben :

Nur wie bekomme ich nun den genauen Dateinamen? Der enthält ja die damals aktuelle Minute und Sekunde. Aber die ist natürlich beim klick auf den FTP Button nicht mehr die gleiche.
Den Namen der Datei in eine Variable laden?

Logisch überlegt kannst du dir entweder den Dateinamen merken, oder du musst ihn später wieder rausfinden (z.B. mit TSearchRec alle Dateien durchgucken). Aber ich denke, den Dateinamen bzw. die Uhrzeit merken wäre das einfachste. Beim Merken musst du dir halt irgendwo den Dateinamen speichern, wenn du das Programm neu startest.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Regan · Verfasst: Sa 23.07.11 22:13

Du musst erstmal natürlich prinzipiell den Dateinamen in eine Variable packen. Sonst kannst du ihn dir natürlich nicht mehr merken. Bei deiner Struktur bietet es sich sogar an, nur den Zeitpunkt zu speichern.

Stread hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

Zeipunkt: String;
{..}
JpegBild := TJPEGImage.Create;
{...}
Zeitpunkt = FormatDateTime('dd.mm-hh.mm.ss', Now);
JpegBild.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Screen\' + GetUsername + ' '
+ Zeitpunkt + '.jpeg');

und wollte nun eigentlich das aktuelle Bild über FTP so uploaden

markieren

Delphi-Quelltext

1:
2:

 IdFTP1.Put(ExtractFilePath(ParamStr(0)) + '\Screen\'+...+'.jpeg',
         ExtractFileName(Zeitpunkt+'.jpeg'));

Was du dann mit dem Zeitpunkt machst, musst du entscheiden. Wenn du die Datei sofort hochlädtst, dann brauchst du gar nichts zu ändern. Andernfalls solltest du die Zeitpunkte in eine Datei schreiben, auf die fest zugreifen kannst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme