Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Position einer Datei auf einem Datenträger (https://www.delphipraxis.net/64254-position-einer-datei-auf-einem-datentraeger.html)

Luckie 3. Mär 2006 19:30

Re: Position einer Datei auf einem Datenträger
 
Und am Ende nooben sie dir deine if-Bedingung doch in zwei Minuten wieder aus. ;)

Mr_G 3. Mär 2006 20:02

Re: Position einer Datei auf einem Datenträger
 
In dem Fall (Client Server etc. pp.) eher nicht aber hast schon recht... wesentlich sicherer wird da nichts. Trozdem hat mich, wie schon erwähnt, die Neugirde und ein wenig der Ehrgeiz gepackt :wink: :roll: ...

mael 3. Mär 2006 20:33

Re: Position einer Datei auf einem Datenträger
 
Ein paar Infos zum direkten Lesen von Festplatten:
http://www.delphipraxis.net/internal...=310776#310776

Die Sektorposition steht in der FAT drin, es gibt aber verschiedene "Formate": FAT-16, FAT-32, NTFS,...
Bei der Hilfe zu DeviceIOControl gibt es eine Liste der unterstützen Funktionen, gibt auch was zu Dateien, habe aber nichts gesehen womit man die Sektorposition direkt rausfinden könnte.

Das heißt Du mußt das FAT-Format rausfinden und analysieren, ist recht ecklig, besonders bei NTFS, außerdem auch nicht sehr portabel.

Mr_G 3. Mär 2006 20:47

Re: Position einer Datei auf einem Datenträger
 
Zitat:

Zitat von mael
...
Das heißt Du mußt das FAT-Format rausfinden und analysieren, ist recht ecklig, besonders bei NTFS, außerdem auch nicht sehr portabel.

Danke erstmal! Aber aufgrund der genannten Nachteile und meines Unvermögens sowas "mal eben" zu schreiben würde ich mich mit dem oben von mir geposteten Code zufriedengeben, der die virtual cluster number (VCN) und die logical cluster number (LCN) ermitteln könnte wenn er denn funktionieren würde. :cry:

himitsu 10. Jul 2006 13:00

Re: Position einer Datei auf einem Datenträger
 
hatte och gerade FSCTL_GET_RETRIEVAL_POINTERS gefunden und ich glaub ich weiß auch wo dein Fehler lag ... werd' es aber erst später testen (könnte es ja selber gubt gebrauchen, aber andre Dinge sind erstma wichtiger).
Das gehört mit zu den in NT4.0 eingeführten einheitlichen Defragmentierungsroutinen für FAT und NTFS und sollte demnach für nahezu alle Dateisysteme (welche sich mit WinNT direkt nutzen lassen) gleich sein?

Das war sozusagen für's Reden mit dem Dateisystemtreiber.
Und wie man es direkt macht weiß ich auch noch nicht so ganz (in FAT12/16/32 ist das ja schon fast klar, aber bei NTFS -.-'') ... aber ich hoffe mal, daß sich dat bald etwas ändert :mrgreen:

Also man braucht sich nur vom RootVerzeichnis, über die verschiedenen Unterverzeichnisse, bis zur entsprechenden Datei durchhangeln und dort den StartCluster auslesen (wird bei NTFS ähnlich sein).

In FAT16 sehen die einzelnen Einträge in den Verzeichnissen so aus und ein ganzes Verzeichnis kannst du dir als einen Record daraus vorstellen.
Code:
FATFolderEntry = packed Record
  Name: Array[0..10] of Char;
  Attribute: Byte;
  CreateTimeLo: Word;
  CreateTimeHi: Byte;
  CreateDate: Word;
  LastAccessDate: Word;
  LastModifiedTime, LastModifiedDate: Word;
  [b]StartingClusterNumber: Word;[/b]
  FileSize: LongInt;
End;
Und die Position wäre dann
Code:
StartingClusterNumber * SectorsPerCluster * BytesPerSector
+ BootSectorSize(256 Bytes)
+ SizeOfExtendetBootSector
+ (NumberOfFATs * SectorsPerFAT * BytesPerSector)
+ (RootEntries * SizeOf(FATFolderEntry) + BytesPerSector - 1) div BytesPerSector;
Aber im Endefekt würde och die StartingClusterNumber ausreichen ... außerdem wäre es kleiner und besser zu speichern (WORD statt INT64).


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:24 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz