[erledigt ] Floppy Sector-weise auslesen

[thomasschaf]

Hallo,

hier wird beschrieben, wie man ReadFile zum Lesen von einer Diskette im Raw-Format benutzt.

Als dritter Paramter von ReadFile wird ja erwartet, wie viele Bytes gelesen werden sollen
(bei Disketten ja nur ein Vielfaches der zahl Bytes/Sector, weil dann immer ganze Sektoren ausgelesen werden).

Mein Problem ist nun:
Habe mehrere (3) ältere Disketten, die alle exakt den gleichen Inhalt haben. (Sie wurden raw-kopiert.)
Ich möchte die Daten von ihnen sichern. Allerdings sind alle an irgendeiner Stelle nicht lesbar.
Ich vermute, dass es aufgrund des Alters dazu gekommen ist, dass ein oder mehrere Sektoren nicht mehr lesbar sind.

Nun will ich alle 2880 Sektoren einzeln auslesen. ( je Von allen Disketten)
Und die unbeschädigten zusammenfügen.

Leider kann ich bei ReadFile kein Anfang zum Lesen eingeben, nur eine Anzahl von Bytes. Sonst würde ich halt von 0 bis 511, dann von 512 bis 1023, dann von 1024 ... usw die Sektoren auslesen.

Hat da jemand eine Idee?

Vielen Dank

[Uwe Raabe]

Du kannst versuchen mit einem simplen FileStream auf die Diskette zuzugreifen. Dann steht dir mit Seek eine Möglichkeit zum Positionieren zur Verfügung.

fileStream := TFileStream.Create('\\.\A:', fmOpenRead);

[thomasschaf]

Das Problem ist dann ja, dass ich nicht weiß, ob dieser Bereich korrupt ist.

Bei ReadFile kann ich aber den Rückgabewert anschauen.

Könnte man vielleicht mit "SetFilePointer" sowas machen?

Delphi-Quellcode:

    GetMem(buffer, 512); // genug Speicher FÜR EINEN SEKTOR reservieren
    SetFilePointer(fhandle, sec * 512, nil, FILE_BEGIN); 
    if not ReadFile(fhandle, buffer^, 512, bytesread, nil)
      then // [konnte Sektor "sec" nicht auslesen... ]

Leider ist das noch recht neu für mich,
habe hier (zwar C++) Zeile 60 etwas gefunden.

Delphi-Quellcode:

 // Setting the pointer to point to the start of the sector we want to read ..
SetFilePointer (hDevice, (startinglogicalsector*512), NULL, FILE_BEGIN);

[Uwe Raabe]

Zitat von thomasschaf:

Das Problem ist dann ja, dass ich nicht weiß, ob dieser Bereich korrupt ist.

Wieso nicht? Der Stream liest genauso von der Diskette. Wenn das nicht möglich ist, bekommst du einen Fehler. Dann kannst du den Bereich überspringen.

[thomasschaf]

Wie kann ich denn mit dem Stream an einer speziellen Stelle auf der Diskette von ihr lesen?
Wenn ich die ganze Diskette lese, kann ich nicht im Nachhinein herausfinden, ob der Bereich verfügbar ist.

[Namenloser]

Außerdem, selbst wenn der Fehler still ignoriert wird, kannst du ja dadurch, dass alle drei Disketten den gleichen Inhalt haben, recht leicht rausfinden, welche Bytes korrekt sind, wenn immer nur höchstens eine Diskette an einer bestimmten Stelle einen Fehler hat.

[thomasschaf]

Das ist eine gute Idee. Werde ich gleich ausprobierenm

[Sir Rufo]

Zitat von NamenLozer:

Außerdem, selbst wenn der Fehler still ignoriert wird, kannst du ja dadurch, dass alle drei Disketten den gleichen Inhalt haben, recht leicht rausfinden, welche Bytes korrekt sind, wenn immer nur höchstens eine Diskette an einer bestimmten Stelle einen Fehler hat.

[thomasschaf]

Die Idee ist wirklich sehr gut. Dann kann ich auch gleich die Diskette mit Winimage auslesen.
Für den automatischen Vergleich könnte ich dann ja ein Programm schreiben.

Vielen Dank für den Tipp!

[Luckie]

Guck mal hier: http://michael-puff.de/Programmierung/Delphi/Programme/ -> DiskImageNT.zip