Klon floppy

[MadMax]

Hallo,

Das „Verbinden“ mit dem Diskettenlaufwerk funtzt mit diesem Programm ganz gut, nur jetzt setzt mein Delphi wissen bisschen aus wie kann ich nun die Daten bit für bit auf eine andere Floppy Kopieren. Währe für paar Tipps sehr dankbar

Delphi-Quellcode:

type TDiskGeometry = packed record
     Cylinders: Int64;
     MediaType: Integer;
     TracksPerCylinder: DWORD;
     SectorsPerTrack: DWORD;
     BytesPerSector: Integer; // wichtig für die Reservierung des Buffer-Speichers
end;
     TRawDrive = record
     DiskGeometry: TDiskGeometry;
     Handle: THandle;
end;

var Raw: TRawDrive;

const
  IOCTL_DISK_GET_DRIVE_GEOMETRY = $00070000;
  FSCTL_LOCK_VOLUME = $00090018;
  FSCTL_UNLOCK_VOLUME = $0009001C;

function RawOpenDrive(DriveLetter: Char): TRawDrive;
 var num: Cardinal;
begin
  FillChar(Result, SizeOf(TRawDrive), 0);
  Result.Handle := CreateFile(PChar('\\.\' + DriveLetter + ':'),
                       GENERIC_READ or GENERIC_WRITE,
                       FILE_SHARE_READ or FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       0,
                       0);

if Result.Handle = INVALID_HANDLE_VALUE then  RaiseLastWin32Error;

// Laufwerk für andere sperren
if not DeviceIoControl(Result.Handle, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, num, nil) then
    RaiseLastWin32Error;

{ Disk-Geometry ermitteln. Vor allem ist das Feld BytesPerSector wichtig, da nur vielfache Bytes gelesen werden können. Ist also BytesPerSector z.B: 512 und man will nur 1 Byte lesen, muss man 512 Bytes lesen. }
if not DeviceIoControl(result.Handle, IOCTL_DISK_GET_DRIVE_GEOMETRY, nil, 0, @Result.DiskGeometry,
                         SizeOf(TDiskGeometry), num, nil) then
    RaiseLastWin32Error;
end;

procedure RawCloseDrive(var RawDrive: TRawDrive);
var num: Cardinal;
begin
  DeviceIoControl(RawDrive.Handle, FSCTL_UNLOCK_VOLUME, nil, 0, nil, 0, num, nil);
  CloseHandle(RawDrive.Handle);
  RawDrive.Handle := 0;
end;

procedure RawReadSectors(RawDrive: TRawDrive; var Buf; Count: Integer);
var num: Cardinal;
begin
  if not ReadFile(RawDrive.Handle, Buf, Count * RawDrive.DiskGeometry.BytesPerSector, num, nil) then
    RaiseLastWin32Error;
end;

procedure RawWriteSectors(RawDrive: TRawDrive; var Buf; Count: Integer);
var num: Cardinal;
begin
  if not WriteFile(RawDrive.Handle, Buf, Count * RawDrive.DiskGeometry.BytesPerSector, num, nil) then
    RaiseLastWin32Error;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var buf: Pchar;
begin
   RawOpenDrive('a');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 RawCloseDrive(Raw);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RawCloseDrive(Raw);
end;

end.