Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > de.comp.lang.delphi.misc > #19142

Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren.

Show all headers | View raw

Am 14.12.2021 um 17:39 schrieb Franz Glaser:
> Ich hoffe, dass ich hier bei den Profis niemand verärgere.
> 
> Bis jetzt kann ich mit meinem neugeschriebenen Programm einen gewählten
> Unterverzeichnisbaum in eine ListBox einlesen.
> 
> Dann kann ich filenamen mit einem Mausklick auf eine Zeile die
> filenamen des gewählten Unterverzeichnisses in die zweite Listbox
> einlesen.
> 
> Was ich brauche sind die "Attribute" der files in der Listbox2,
> besonders die Kalenderdaten, damit ich die files eventuell auf
> einen anderen PC übers Netz oder auf einen USB-stick übertragen
> kann.
> 
> Daran scheitere ich hoffnunfslos. Es gibt zwar mehrere Funktionen
> und Prozeduren dafür aber keine davon bekomme ich unter Win10
> und unter Vista (das sind die 2 PCs) zum Laufen. Die Funktionen
> lierfern entweder -1 oder der Compiler verirrt sich mit den
> uses und includes. Auch der "Trick mit uses DOS" scheitert an
> meiner Unfähigkeit.
> 
> Natürlich möchte ich die kopierten files auf das gleiche Datum
> usw. setzen wie das der Quelle aber unbedingt notwendig ist das
> nicht.
> 
> Vorwiegend handelt es sich um eQSL-files, die ich mit 2 Computern
> mit den Jahren gespeichert habe und die sich jetzt überlappen
> sollen- Die Geschäftsfiles sind nicht mehr relevant. Aber der
> alte Vista fängt an mit Spirenzchen.
> 
> Bitte um Hilfe. Franz Glaser.

Zum Auslesen der Zeiten: Das lief bei mir unter Windows mit Delphi 7:



uses FileCtrl, DateUtils; // auf Verdacht

var CreationTime, LastWriteTime, LastAccessTime: string;

function TForm1.FT2DT(FileTime: TFileTime): TDateTime;
var
    LocalFileTime: TFileTime;
    SystemTime: TSystemTime;
begin
    FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
    Result := SystemTimeToDateTime(SystemTime) ;
end;

//+++ Hier geht's los: wähle File in FileListbox (FLB) +++

procedure TForm1.FLBClick(Sender: TObject);
var
   FA: WIN32_FILE_ATTRIBUTE_DATA;
begin
   if GetFileAttributesEx(pChar(FLB.FileName),GetFileExInfoStandard,@FA) 
then begin
     CreationTime := DateTimeToStr(FT2DT(FA.ftCreationTime));
     LastWriteTime := DateTimeToStr(FT2DT(FA.ftLastWriteTime));
     LastAccessTime := DateTimeToStr(FT2DT(FA.ftLastAccessTime));
     Caption := 'CT: '+CreationTime+'  LWT: '+LastWriteTime+'  LAT: 
'+LastAccessTime;;
   end;
// else: error
end;


HTH
Alfred

Back to de.comp.lang.delphi.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-14 17:39 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-14 18:31 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-14 18:33 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-15 12:17 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Heiko Rost <heiko.rost@gmx.de> - 2021-12-14 19:39 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Sieghard Schicktanz <Sieghard.Schicktanz@SchS.de> - 2021-12-14 19:43 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-15 14:47 +0100
      Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-18 17:33 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-18 18:29 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Heiko Rost <heiko.rost@gmx.de> - 2021-12-18 18:38 +0100
          Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-18 20:25 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Sieghard Schicktanz <Sieghard.Schicktanz@SchS.de> - 2021-12-18 19:43 +0100

csiph-web