Datum im Name der Datei speichern...

[barnti]

Hallo,

ich möchte meine DB mit einem ButtonClick dumpen, dabei soll im erscheinenden SaveDialog der Name des DumpFiles mit "BackUp_Datum.sql" vorausgewählt sein.

Dazu folgende Idee:

Delphi-Quellcode:

procedure TDMDatabase.DumpDatabase;
begin
  MainForm.SaveDialogDump.FileName:='BackUp_'+DateTimeToStr(now)+'.sql';   //hier wills nich
  if MainForm.SaveDialogDump.Execute then
    begin
      MainForm.MySQLDumpLawo.SQLFile:=MainForm.SaveDialogDump.FileName
      //MainForm.MySQLDump.Execute;
    end;
  
end;

Leider Wird der Savedialog nicht ausgeführt. Erst wenn ich das Dumpfile zum Beispiel "BackUp.sql"
nenne, klappt es?! :gruebel:

DateTimeToStr sollte eigentlich einen String zurückliefern, der dann mit dem Rest konkateniert wird...

Wo ist das Problem?

DANKE + Gruß,

Barnti

[Nalincah]

was steht in Filename drin..Also nach der ersten Zeile
Guck mal mit Einzelschritt nach

[barnti]

Hallo;

:wall:

TDateTime liefert natürlich neben dem Datum die Zeit zurück. Darin enthalten ist das Zeichen ":"
und damit als FileName nicht gültig!

Auch in diesem Fall gilt:

Erst nachdenken dann den Mund aufmachen!!

Danke + Gruß,

Barnti

[Nalincah]

das problem hat ich auch...da ich aber ne datei mehrmals am tag erzeugt hab und die uhrzeit drin haben wollte hab ich die uhrzeit einfach zerflückt und die ":" mit "." ersetzt

[barnti]

JO,

das werde ich genau so machen... :wink:

Danke, tschau,

Barnti

[Nalincah]

Um dir ein bisschen Arbeit zu ersparen:

Mein Code:

Delphi-Quellcode:

var
std,min,sec,Zeit:string;
begin
  std := copy(TimeToStr(Time),1,2);
  min := copy(TimeToStr(Time),4,2);
  sec := copy(TimeToStr(Time),7,2);
  Zeit := std + '-' + min + '-' + sec;

Gibts da eigentlich noch ne eleganter version??

z.b. ExtractTime(Sec) oder so?

[barnti]

Ich habs so:

Delphi-Quellcode:

function TDMDatabase.FileNameGenerieren: String;
var Time: String;
 Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(now, hour, min, sec, MSec);
  result:= 'BackUp_'+DateToStr(now)+'_'+IntToStr(hour)+'.'+IntToStr(min)+'.'
            +IntToStr(Sec)+'_.sql';
end;

:tongue:

Gruß,

Barnti

[s14]

Oder so: :wink:

Delphi-Quellcode:

showmessage(formatDateTime('"backup_"ddmmyy"_"hhmmss".sql"', now));

Gruß
s14

[Nalincah]

Genau sowas meint ich..Werd ich mein Programm gleich erstmal umschreiben.. Danke