Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#4

Re: auf Bandlaufwerk zugreifen

  Alt 14. Jul 2009, 14:53
"\\.\" hat nichts mit Linux zutun sondern wird unter Windows verwendet um direkt auf (Datenträger-)Hardware aber z.B. auch die serielle Schnittstelle zugreifen zu können.

Zum Thema: Suche mal nach Code um direkt auf Datenträger schreiben zu können und versuche dann Daten darauf zu schreiben.

EDIT:

So kannst du ein Laufwerk öffnen (wobei name = '\\.\tape0'):
Delphi-Quellcode:
[..]
  Handle := CreateFile(PChar(name), GENERIC_READ or GENERIC_WRITE,
                       FILE_SHARE_READ or FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       0,
                       0);
  if Handle = INVALID_HANDLE_VALUE then
  begin
     RaiseLastWin32Error;
  end;

  if not DeviceIoControl(Handle, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, num, nil) then
  begin
    RaiseLastWin32Error;
  end;

  if not DeviceIoControl(Handle, IOCTL_DISK_GET_DRIVE_GEOMETRY, nil, 0, @Info,
                         SizeOf(TDiskGeometry), num, nil) then
  begin
    RaiseLastWin32Error;
  end;
Und so darauf schreiben:
Delphi-Quellcode:
procedure TEFS.WriteSektors(var buf: array of byte; count:integer);
var num:cardinal;
begin
  if Loaded then
  begin
    if not Windows.WriteFile(Handle, Buf, count*Info.BytesPerSector, num, nil) then
    begin
      RaiseLastWin32Error;
    end;
  end;
end;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat