auf Bandlaufwerk zugreifen

[Nastarowje]

Hallo Gemeinde,

Ich möchte gerne Daten auf ein Bandlaufwerk schreiben und diese auch wieder lesen. Das ganze soll mit Delphi7 erfolgen.

Leider habe ich keine Ahnung, wie ich das Tape ansprechen kann, da es als Datei geführt wird und somit nicht in der Laufwerksliste auftaucht. Das einzige was ich bisher gefunden habe ist, das ich createfile nutzen soll und diese schreibweise \\.\tape0 genutzt wird. Es gibt aber irgendwie nix brauchbares, wie man es anwenden muss.

Kann mir jemand Ansatzpunkte (Codeschnipsel oder Tutorials) geben, wie ich einen Schreib- bzw. Lesezugriff realisieren kann?



Vielen Dank für Euere Antworten im vorraus.



Schöne Grüße

Michael

[Der.Kaktus]

Hallo,
\\.Tape0..deutet auf Linux? :( ansonsten ist ein Bandlaufwerk doch eher SCSI :gruebel: ..Welchen Typ hast Du?

[Klaus01]

Hallo,

unter Linux greift man da normalerweise mit dem tape archiver (tar) zu.
Ein kleines HowTo

Grüße
Klaus

[igel457]

"\\.\" 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;

[himitsu]

\\.\Tape gibt es eigentlich auch unter Windows

wobei du es natürlich statt \\.\Tape%d auch mal mit \\.\Scsi%d versuchen könntest.


findet denn dieses Programm dein Bandlaufwerk?
http://www.delphipraxis.net/internal...ct.php?t=87416


wo liegt denn nun genau dein Problem?
kannst du das Laufwerk nicht öffnen oder weißt du nur die Befehle nicht?

über die oben genannten Namen kannst du via CreateFile oder eigentlich auch ganz einfach per FileStream oder über Funktionen wie AssignFile zugreifen.

[Nastarowje]

Hui

man seid ihr schnell :hello:

Vielen Dank für die schnellen Antworten. Derzeit nutze ich ein HP DAT72 USB drive.

Ich werde jetzt einmal testen, inwieweit ich darauf zugreifen kann. Infos sind ja reichlich zusammen gekommen.



Danke nochmal

Michael

[Reinhard Kern]

Zitat:

Zitat von Nastarowje

Hui

man seid ihr schnell :hello:

Vielen Dank für die schnellen Antworten. Derzeit nutze ich ein HP DAT72 USB drive.

Ich werde jetzt einmal testen, inwieweit ich darauf zugreifen kann. Infos sind ja reichlich zusammen gekommen.



Danke nochmal

Michael

Hallo,

google mal nach mt.exe für Windows - das benutze ich zum Rückspulen, Löschen etc. steht unter GPL.

Gruss Reinhard

[Der.Kaktus]

Zitat:

Zitat von himitsu

\\.\Tape gibt es eigentlich auch unter Windows

wobei du es natürlich statt \\.\Tape%d auch mal mit \\.\Scsi%d versuchen könntest.


findet denn dieses Programm dein Bandlaufwerk?
http://www.delphipraxis.net/internal...ct.php?t=87416


wo liegt denn nun genau dein Problem?
kannst du das Laufwerk nicht öffnen oder weißt du nur die Befehle nicht?

über die oben genannten Namen kannst du via CreateFile oder eigentlich auch ganz einfach per FileStream oder über Funktionen wie AssignFile zugreifen.

Oha..wusste ich nicht mal..dachte, waer Unix/linux Kennung..man lernt nie aus ;-)