Position einer Datei auf einem Datenträger

[Mr_G]

Hallo,
da ich nach längerer Suche leider nichts gefunden habe stelle ich nun einfach mal die Frage:
Wie kann ich die Postition/Adresse einer Datei auf einem Datenträger ermitteln?
Mich würde dabei insbesondere die Adresse des Dateianfangs und des Dateiendes interessieren.

Danke im Vorraus!

[Schaedel]

mh... rekursiv durch die Ordner... denke nich das du es anders schaffen wirst...

Delphi-Quellcode:

FindFirst(MessageDirectory+'\*.*',faAnyFile,sr);
  Found := FindNext(sr);
  while ( Found = 0) do begin
    Found := FindNext(sr);
  end;
  FindClose(sr);

das mal als ansatz...

[edit]
ach sorry ... ne das hilft dir gerade nicht...
habs erst jetz richtig verstanden was du willst
sorry nochmals
[/edit]

[Luckie]

Hm? Er will den Sector, wo die datei auf der Festpaltte physisch anfängt und aufhört. Was hat das mit dem Suchen der Dateien im Dateisystem zu tun?

[himitsu]

Also entweder du redest mit dem Dateisystemtreiber, oder du besorgst dir 'nen Direktzugriff auf den Datenträger, suchst das Verzeichnis und ließt da die Adresse aus.

[Sebastian R.]

Rawrite ist z.B. ein Proggie, welches direkt von Platten lesen kann. Leider ist es in C bzw. C++. Gibt es das nicht auch in Delphi?

[Mr_G]

Danke erstmal für die Antworten!
Ich habe derweil nocheinmal intensiv in der msdn und mit google gesucht aber leider nichts gefunden.

Zitat von Sebastian R.:

Rawrite ist z.B. ein Proggie, welches direkt von Platten lesen kann. Leider ist es in C bzw. C++. Gibt es das nicht auch in Delphi?

Rawrite wäre interessant wenn man sich den Code ansehen könnte. Soweit ich das beurteilen kann gibt es den aber nirgendwo.

Zitat von himitsu:

Also entweder du redest mit dem Dateisystemtreiber, oder du besorgst dir 'nen Direktzugriff auf den Datenträger, suchst das Verzeichnis und ließt da die Adresse aus.

Prinzipiell ist das klar. Nur wie stell ich das mit Delphi an?

[Luckie]

http://www.michael-puff.de/dirindex....phi/Programme/ -> DiskImgeNT. Ist zwar für Disketten kann man aber auch mit Festplatten machen. man braucht nur Administrator Rechte.

Aber was hast du eigentlich vor?

[Mr_G]

Entschuldigung erst einmal, dass ich mich erst so spät wieder melde.
Ich habe jetzt mal in dem Programm von Luckie gestöbert und bin dabei auf die Funktion DeviceIOControl gestoßen. In der MSDN fand ich dann dies hier: *klick*
Ich denke, dass dies genau das Richtige ist. Daher hab ich in Anlehnung an Luckies Code ein wenig rumprobiert:

Delphi-Quellcode:

...
type
  STARTING_VCN_INPUT_BUFFER = record
    StartingVCN: LARGE_INTEGER;
  end;
  PSTARTING_VCN_INPUT_BUFFER = ^STARTING_VCN_INPUT_BUFFER;

type
  EXTENT = record
    NextVcn: LARGE_INTEGER;
    Lcn: LARGE_INTEGER;
  end;

type EXTENTS = array of EXTENT;

type
  RETRIEVAL_POINTERS_BUFFER = record
    ExtentCount: DWORD;
    StartingVcn: LARGE_INTEGER;
    Extents: EXTENTS;
  end;
  PRETRIEVAL_POINTERS_BUFFER = ^RETRIEVAL_POINTERS_BUFFER;
...

und

Delphi-Quellcode:

procedure GetLocation(FileName: String);
var hFile: THandle;
    InBuffer: STARTING_VCN_INPUT_BUFFER;
    OutBuffer: PRETRIEVAL_POINTERS_BUFFER;
    BytesReturned: DWORD;
    StartingVCN: String;
begin
  hFile := CreateFile(PAnsiChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    with InBuffer.StartingVCN do
    begin
      LowPart := 0;
      HighPart := 0;
      QuadPart := 0;
    end;

    OutBuffer := PRETRIEVAL_POINTERS_BUFFER(LocalAlloc(LMEM_ZEROINIT, ???));

    if not DeviceIOControl(hFile, FSCTL_GET_RETRIEVAL_POINTERS, @InBuffer,
      sizeof(InBuffer), OutBuffer, sizeof(OutBuffer), BytesReturned, nil) then
    begin
      MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'DeviceIOControl-Error',0);
      exit;
    end;

    StartingVCN := IntToStr(OutBuffer.StartingVcn.LowPart) +
      IntToStr(OutBuffer.StartingVcn.HighPart) +
      IntToStr(OutBuffer.StartingVcn.QuadPart);

    LocalFree(Integer(OutBuffer));
    CloseHandle(hFile);

    WriteLn('Starting VCN of '+ FileName +': ' + StartingVCN);
  end;
end;

Mein Problem: Ich bekomme immer die Meldung, dass der übergebene Datenbereich für die Rückgabe zu klein sei.
Meine Frage: Ist der Code überhaupt brauchbar? Und wenn ja: Wie kann ich berechnen wie groß der Buffer sein muss?

[Luckie]

Ich habe jetzt keine Zeit mir den Code anzugucken, aber ich frage noch mal, was hast du eigentlich vor?

[Mr_G]

Nunja... ich würde gerne die Position einer bestimmten Datei haben um diese als Wert der etwas komplizierter zu verändern ist mit in ein Authentifikationsablauf aufzunehmen. Einfach MAC-Adressen zu kombinieren ist ja langweilig . Und als mir dann nicht direkt eine Lösung zugefallen ist haben mich Neugirde und Ehrgeiz gepackt.

P.S.: Das sich der Wert beim Verändern, Kopieren oder Defragmentieren ändern könnte ist durchaus berücksichtigt.