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?!

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;



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...

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;

Gruß,

Barnti

[s14]

Oder so:

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

[Nalincah]

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