Details abfragen mit Indy

[Nele]

Hallo,

ich möchte mittels der Indykomponenten das Datum von einer Datei auf einem Server abfragen und diese gegebenenfalls runteladen. Das Runterladen funktioniert soweit, aber die Datumsabfrage bekomme ich nicht hin.

Delphi-Quellcode:

idFtp1.List(myList,'Text.txt',true)

liefert mir ja die Details zur Datei Text.txt, gibt es eine Möglichkeit nur das Datum der Datei zu bekommen? Oder muß ich die Details "auseinanderpflücken"? :gruebel:

Vielen Dank für Eure Hilfe :)

Gruß
Nele

[ReDoX]

Hier ist aber nicht von mir:

Delphi-Quellcode:

function GetFileDate(const FileName: string; out Creation, LastAccess,
  LastWrite: TDateTime): Boolean;
var
  hFile: THandle;
  ftCreationUTC, ftLastAccessUTC, ftLastWriteUTC: TFileTime;
  ftCreationLocal, ftLastAccessLocal, ftLastWriteLocal: TFileTime;
  stCreationLocal, stLastAccessLocal, stLastWriteLocal: TSystemTime;
begin
  result:=false;
  hFile := CreateFile(PChar(FileName), GENERIC_READ, 0, nil,
  OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then begin
    try
      //Ermittlung des Dateidatums in UTC (Weltzeit)
      if GetFileTime(hFile, @ftCreationUTC, @ftLastAccessUTC, @ftLastWriteUTC) then begin
        //Umrechnung in Ortszeit
        if FileTimeToLocalFileTime(ftCreationUTC, ftCreationLocal)
        and FileTimeToLocalFileTime(ftLastAccessUTC, ftLastAccessLocal)
        and FileTimeToLocalFileTime(ftLastWriteUTC, ftLastWriteLocal) then begin
          //Umwandlung in Systemdatumformat
          if FileTimeToSystemTime(ftCreationLocal, stCreationLocal)
          and FileTimeToSystemTime(ftLastAccessLocal, stLastAccessLocal)
          and FileTimeToSystemTime(ftLastWriteLocal, stLastWriteLocal) then begin
            //Zuweisung der Rückgabewerte
            Creation := SystemTimeToDateTime(stCreationLocal);
            LastAccess := SystemTimeToDateTime(stLastAccessLocal);
            LastWrite := SystemTimeToDateTime(stLastWriteLocal);
            result:=true;
          end;
        end;
      end;
    finally
      CloseHandle(hFile);
    end;
  end;
end;







procedure TForm1.Button1Click(Sender: TObject);
var erstellung, zugriff, schreibzugriff: TDateTime;
begin
  GetFileDate('c:\temp\test.bmp', erzeugung, zugriff, schreibzugriff);
  ShowMessage('Erstellung: '+DateTimeToStr(erstellung)+#13#10+'Letzter Zugriff: '+
  DateTimeToStr(zugriff)+#13#10+'Letzter Schreibzugriff: '+DateTimeToStr(schreibzugriff));
end;

Mfg MrScholz

[Luckie]

Nicht von dir und am Thema vorbei. Mit deinem Code bekommst du nur das datum auf einem lokalen Windows Rechner aber nicht einer datei auf einem FTP Server im Netz. Nicht umsonst steht die Frage in der "Internet / IP / Lan" Sparte. ;)

[Nele]

Ich hatte eigendlich gedacht, dass es bei den Indy-Komponenten etwas ähnliches wie bei der TNMFTP-Komponente gibt....

Delphi-Quellcode:

     datum:= TNMftp1.FTPDirectoryList.ModifDate[i];

das war so schön einfach :roll:

Gruß
Nele

[ReDoX]

Zitat:

Mit deinem Code bekommst du nur das datum auf einem lokalen Windows Rechner aber nicht einer datei auf einem FTP Server im Netz

Hi,
man könte das ja umprogrammieren und wenn nicht sry und :oops: oder :wall:.
Mfg MrScholz

[lkz633]

Hi,

wie wärs mit

Delphi-Quellcode:

IdFTP1.DirectoryListing.Items[x].ModifiedDate

Gruss lkz633

[Nele]

So etwas suche ich ja...

Delphi-Quellcode:

    IdFTP1.DirectoryListing.Items[0].ModifiedDate;

...aber das kommt dabei raus :shock:

Zitat:

[Fehler] udownload.pas(851): Undefinierter Bezeichner: 'DirectoryListing'

Kann die Eigenschaft 'DirectoryListing' für die Indy-Komponente bei mir nicht finden, gibt es die generell nicht, oder nur bei mir nicht ??? :pale:


Gruß
Nele

[Luckie]

Setz doch einfach mal den Punkt und warte ab, was dir die Codevervollständigung zur Auswahl anbietet. :roll:

[Nele]

Wenn mir 'DirectoryListing' angeboten würde, hätte ich wahrscheinlich diese Frage nicht gestellt 8)
[...ganz sicher bin ich mir dessen aber nicht :lol: ]

Wenn ich mir mein Delphi anschaue gibt es 'DirectoryListing' für die Indy-Komponente nicht, aber wer weiß schon, was mein Rechner/Delphi wieder gegen mich hat, dass er/es mir diese Eigenschaft verschweigt :roll:

Gruß
Nele,
die jetzt verzweifelt versucht der Indy-Komponente mehr Eigenschaften zu entlocken

[Luckie]

Zitat:

Zitat von Nele

Wenn mir 'DirectoryListing' angeboten würde, hätte ich wahrscheinlich diese Frage nicht gestellt 8)

Und genau deswegen sollst du warten, was dir eben angeboten wird, was dem entsprechen könnte. Ganz clevere Jungs würden einfach in der Indy Hilfe oder in den Indy Demos kucken. ;)

[Nele]

Clevere Mädchen auch :wink:

Hab da nix gefunden, daher meine Frage...


Gruß
Nele

[lkz633]

Container for a structured file and directory listing.

property DirectoryListing: TIdFTPListItems;

Description

DirectoryListing is a read-only TIdFTPList property that represents the container and parser for TIdFTPListItem instances created from the result values for the List or Status methods. DirectoryListing is always cleared prior to adding the values returned by List or Status.

DirectoryListing provides a structured means of accessing data about files and directories returned from the FTP LIST, NLST, or STAT commands. DirectoryListing can also be used to populate GUI controls that display the results of the FTP operation, like TTreeView.

DirectoryListing can be used with the OnParseCustomListFormat event handler to allow parsing of FTP List formats not normally supported by TIdFTPList.

DirectoryListing is initialized prior to use in List, or using the OnCreateFTPList event handler. DirectoryListing is freed in the Destroy method.

[scp]

Verwendest du evtl. die mitgelieferten Indy-Komponenten? Bei Indy 9 ist die Eigenschaft auf jeden Fall vorhanden.

[Nele]

Ok, dann sollte ich wohl mal meine Indy-Komponenten kontrollieren, wer weiß, wie alt die schon sind ;-)

Danke

Gruß
Nele

[edit1] @scp - Ehrlich gesagt - keine Ahnung - hab sie bis heute noch nie benutzt :oops:

[edit2] - so, nachgesehen Version 8.0.25 - neu ist das wohl nicht, oder ;-)