Ich hab gerade ein sehr sehr merkwürdiges Problem.
In meinem Programm wird ein Datei umbenannt nach Datum+Zeit. Nachdem ich jetzt dem fehler nachgespührt habe der vorhanden ist bin ich bei Now angekommen.
Das ganze hat auch schon ganz zu Anfang funktioniert...gehe ich in eine Version die ein paar Tage älter ist funktionert es dort mit dem gleichen Code und was ich geändert habe dürfte an sich keinen einflüss darauf haben was mir Now() liefert.
Now liefert mir immer die selbe Zeit zurück, selbst wenn ich das Programm beende und neu Starte, es neu Compiliere,.... Nach einigen Minuten wird dann eine neue Zeit ausgelesen und diese bleibt für X Minuten immer die selbe.
Hat jemand eine Idee woran das liegen konnte?
Delphi-Quellcode:
procedure TForm1.SpeedButton3Click(Sender: TObject);
var
DName: String;
Jahr,Monat,Tag, Stunde, Minute, Sekunde, MSekunde: Word;
Jetzt: TDateTime;
begin
Jetzt:=Now();
if OpenPictureDialog1.Execute() then begin
DecodeDate(Jetzt,JAhr,Monat,Tag);
DecodeTime(Jetzt,Stunde,Minute,Sekunde,MSekunde);
DName:='temp\'+IntToStr(Jahr)+IntToStr(Monat)+IntToStr(Tag)+IntToStr(Stunde)+
IntToStr(Minute)+IntToStr(Sekunde)+IntToStr(MSekunde)+'.jpg';
DateiNeuPfad:=ExtractFilePath(Application.ExeName)+DName;
Copyfile(PCHAR(OpenPictureDialog1.FileName), PCHAR(DateiNeuPfad), false);
end;
end;
[edit=mkinzler]Zeilenumbruch in Quelltext eingefügt Mfg, mkinzler[/edit]