Diskette Byteweise beschreiben

[moritz]

Sers Leute,

ich wollte fragen, ob es eine Möglichkeit gibt, eine Diskette Byteweise zu beschrieben, und zwar beim Bootsektor angefangen.
Ich muss im Prinzip eine Datei in Bytes 0-512 ( Sektor eins ) packen ( DIe Datei kann durchaus kleiner sein), und eine in 512-XXX Bytes.
Kennt wer eine Möglichkeit?

Gruß

[himitsu]

hier gibt es irgendwo 'nen Thread, wo Disketten kopiert werden ... dort wird z.B. 'ne Diskette ausgelesen und ein Image erstellt und natürlich auch andersrum.

Das könntest du dir ja abändern.

[moritz]

Hmm...ich habs jetzt mal so probiert:

Delphi-Quellcode:

var FS: TFIleStream;
    FFS: TFileStream;
    Buffer: String;
begin
  FS:=TFileStream.Create('\\.\A:', fmOpenWrite);
  FS.Seek(0, soFromBeginning);
  FFS:=TFileStream.Create('DATEI',fmOpenRead);
  FFS.Seek(0,soFromBeginning);
  SetLength(Buffer,FFS.Size);
  FFS.ReadBuffer(Buffer,FFS.Size);
  FFS.Free;
  FS.Write(Buffer,512);
  FS.Free;

Aber leider bekomme ich immer eine Zugriffsverletzung :-|

[tommie-lie]

Schön daß wir auch alle wissen, wie man mit Strings und Streams arbeitet :tongue:

Delphi-Quellcode:

var FS: TFIleStream;
    FFS: TFileStream;
    Buffer: String;
begin
  FS:=TFileStream.Create('\\.\A:', fmOpenWrite);
  FS.Seek(0, soFromBeginning);
  FFS:=TFileStream.Create('DATEI',fmOpenRead);
  FFS.Seek(0,soFromBeginning);
  SetLength(Buffer,FFS.Size);
  FFS.ReadBuffer(Buffer[1],FFS.Size);
  FFS.Free;
  FS.Write(Buffer[1],512);
  FS.Free;

[moritz]

*gg* Danke :stupid: