Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: auf Bandlaufwerk zugreifen
14. Jul 2009, 15: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
|
|
Zitat
|