关于读写磁带机的问题(100分)

LanHer · 2002-12-04

我要写一个备份程序，但是不知道如何读写磁带机，请高手帮忙！

Milpas · 2002-12-04

没接触过，帮你UP一下

taninsh · 2002-12-04

1。先找到磁带机的接口程序才行，不同磁带机的api是不一样的，去磁带机厂商那里去看看 2。还有一个办法，利用有些系统支持磁带机的程序，间接的读写，如数据库系统一般都支持 这都只是想法，具体你自己去看看吧

tseug · 2002-12-04

这里有段代码, 不知道有没有帮助... unit TapeCheck; {==============================================================================} {   Interface Section                                                          } {==============================================================================} interface uses SysUtils, Classes, Dialogs, stdctrls, Gauges, messages, Windows, Forms, ComCtrls ; TYPE  TTapeRecord = record    WriteProtect        : String;    BlockSize           : String;    PartitionCount      : String;    CLP                 : String;    CHP                 : String;    CQP                 : String;    RLP                 : String;    RHP                 : String;    RQP                 : String;  end; TDriveRecord = record    ECC                   : String;    Compression           : String;    DataPadding           : String;    ReportSetMarks        : String;    DefaultBlockSize      : String;    MaximumBlockSize      : String;    MinimumBlockSize      : String;    MaximumPartitionCount : String;    FeaturesLow           : String;    FeaturesHigh          : String;    EOTWarningZoneSize    : String;  end;  TTapeCheck = CLASS(TObject) private PUBLIC  TapeRecord : TTapeRecord;  DriveRecord : TdriveRecord;  Constructor create;  function uCheckStatus : string;  Function TapeStatus : string;  Function GetDriveStatus: string;  function uRewind : String;  function uErase : String;  function OpenDrive : THandle;  Procedure CloseDrive(TapeHandle : THandle; ms : dword);  Function ErrorCodes( eword : dword) : string;  procedure SpoolMessages; end;  { Class TtapeCheck } {------------------------------------------------------------------------------} {  TAPE_GET_DRIVE_PARAMETERS has not been defined in the VCL as of Delphi 4    } {                            5.37. If future releases declare it in Windows.pas} {                            this record could conflict and cause unknown      } {                            errors which should go away if you remove this    } {                            record.                                           } {------------------------------------------------------------------------------} TAPE_GET_DRIVE_PARAMETERS = record    ECC                   : boolean;    Compression           : boolean;    DataPadding           : boolean;    ReportSetMarks        : Boolean;    DefaultBlockSize      : DWORD;    MaximumBlockSize      : DWORD;    MinimumBlockSize      : DWORD;    MaximumPartitionCount : DWORD;    FeaturesLow           : DWORD;    FeaturesHigh          : DWORD;    EOTWarningZoneSize    : DWORD;  end; {------------------------------------------------------------------------------} {  TAPE_GET_MEDIA_PARAMETERS has not been defined in the VCL as of Delphi 4    } {                            5.37. If future releases declare it in Windows.pas} {                            this record could conflict and cause unknown      } {                            errors which should go away if you remove this    } {                            record.                                           } {------------------------------------------------------------------------------}  TAPE_GET_MEDIA_PARAMETERS = record    Capacity          : LARGE_INTEGER;    Remaining         : LARGE_INTEGER;    BlockSize         : DWORD;    PartitionCount    : DWORD;    WriteProtected    : BOOLEAN;  end; {==============================================================================} {   Implementation                                                             } {==============================================================================} implementation {------------------------------------------------------------------------------} { Constructor create - Create an instance of TtapeCheck                        } {------------------------------------------------------------------------------} Constructor TtapeCheck.create; Begin end; {------------------------------------------------------------------------------} { function uCheckStatus - Tries to open a Tape device and returns an error as  } {                         string if any problem exists                         } {------------------------------------------------------------------------------} function TtapeCheck.uCheckStatus : string; var  TapeHandle : THandle;  eword      : dword;  ErrorMsg   : string; begin  result := '';  { open the Tape drive }  TapeHandle := OpenDrive;  if Tapehandle = 0 then  begin    result := 'Unable to find tape drive on system or tape drive in use';    Exit;  end;  eword := GetTapeStatus(TapeHandle);  SpoolMessages;  ErrorMsg := ErrorCodes(eword);  if Length(ErrorMsg) > 0 then    Result := ErrorMsg;  CloseDrive(TapeHandle,10000); end; {------------------------------------------------------------------------------} {  TapeStatus - Function retrieves information that describe tape in the drive } {------------------------------------------------------------------------------} FUNCTION TtapeCheck.TapeStatus :  string; var  eword      : dword;  dwsize     : cardinal;  TapeHandle : THandle;  TapeInfo   : TAPE_GET_MEDIA_PARAMETERS;  ErrorMsg   : string; begin TapeHandle := OpenDrive;  if Tapehandle = 0 then  begin    result := 'Unable to find tape drive on system or tape drive in use';    Exit;  end;  eword := GetTapeParameters(TapeHandle,GET_TAPE_MEDIA_INFORMATION,                             dwsize,@TapeInfo);  SpoolMessages;  if TapeInfo.WriteProtected then    TapeRecord.WriteProtect := 'Write Protected = TRUE  '  else    TapeRecord.WriteProtect := 'Write Protected = FALSE  ';  TapeRecord.BlockSize := 'Block Size  '                                        + IntToStr(TapeInfo.BlockSize);  TapeRecord.PartitionCount := 'Partition Count  '                                        + IntToStr(TapeInfo.PartitionCount);  TapeRecord.CLP := 'Capacity Low Part '                                        + IntToStr(TapeInfo.Capacity.Lowpart);  TapeRecord.CHP := 'Capacity High Part '                                        + IntToStr(TapeInfo.Capacity.Highpart);  TapeRecord.CQP := 'Capacity Quad Part '                                        + IntToStr(TapeInfo.Capacity.Quadpart);  TapeRecord.RLP := 'Remaining Low Part '                                        + IntToStr(TapeInfo.Remaining.Lowpart);  TapeRecord.RHP := 'Remaining High Part '                                        + IntToStr(TapeInfo.Remaining.Highpart);  TapeRecord.RQP := 'Remaining Quad Part '                                        + IntToStr(TapeInfo.Remaining.Quadpart);  ErrorCodes(eword);  if Length(ErrorMsg) > 0 then    Result := ErrorMsg;  CloseDrive(TapeHandle,1); end; {------------------------------------------------------------------------------} {  GetDriveStatus - Function retrieves information that describe tape drive    } {------------------------------------------------------------------------------} function TtapeCheck.GetDriveStatus : string; var  eword       : dword;  dwsize      : cardinal;  TapeHandle  : THandle;  TapeInfo    : TAPE_GET_DRIVE_PARAMETERS;  ErrorMsg    : string; begin  TapeHandle := OpenDrive;  if Tapehandle = 0 then    Exit;  eword := GetTapeParameters(TapeHandle,GET_TAPE_DRIVE_INFORMATION,                             dwsize,@TapeInfo);  SpoolMessages;  if TapeInfo.ECC then     DriveRecord.ECC := 'Error Control = TRUE  '  else     DriveRecord.ECC := 'Error Control = FALSE  ';  if TapeInfo.Compression then     DriveRecord.Compression := 'Compression = TRUE  '  else     DriveRecord.Compression :='Compression = FALSE  ';   if TapeInfo.DataPadding then     DriveRecord.DataPadding := 'Data Padding = TRUE  '  else     DriveRecord.DataPadding := 'Data Padding = FALSE  ';  if TapeInfo.ReportSetMarks then    DriveRecord.ReportSetMarks := 'Report Set Marks = TRUE  '  else    DriveRecord.ReportSetMarks := 'Report Set Marks = FALSE  ';  DriveRecord.DefaultBlockSize := 'Default Block Size  ' +                                           IntToStr(TapeInfo.DefaultBlockSize);  DriveRecord.MaximumBlockSize := 'Maximum Block Size  '                                        + IntToStr(TapeInfo.MaxiMumBlockSize);  DriveRecord.MinimumBlockSize := 'Minimum Block Size  '                                        + IntToStr(TapeInfo.MinimumBlockSize);  DriveRecord.MaximumPartitionCount := 'Maximum Partition Count  ' +                                      IntToStr(TapeInfo.MaxiMumPartitionCount);  DriveRecord.FeaturesLow :='Features Low  ' +                                     IntToStr(TapeInfo.FeaturesLow);  DriveRecord.FeaturesHigh := 'Features High  ' +                                     IntToStr(TapeInfo.FeaturesHigh);  DriveRecord.EOTWarningZoneSize := 'EOT Warning Zone Size  ' +                                     IntToStr(TapeInfo.EOTWarningZoneSize);    ErrorCodes(eword);    if Length(ErrorMsg) > 0 then      Result := ErrorMsg;  CloseDrive(TapeHandle,1); end; {------------------------------------------------------------------------------} {  uRewind - Rewinds the current tape in the machine. Returns any error as a   } {            String.                                                           } {------------------------------------------------------------------------------} function TtapeCheck.uRewind : string; var  TapeHandle  : THandle;  eword       : dword;  TAPE_REWIND : LongInt;  ErrorMsg    : string; begin  result := '';  { open the existing file for reading }  TapeHandle := OpenDrive;  if Tapehandle = 0 then  begin    result := 'Unable to find tape drive on system or tape drive in use';    Exit;  end;  TAPE_REWIND := 0;  eword := SetTapePosition(TapeHandle,TAPE_REWIND,0,0,0,TRUE);  SpoolMessages;  CloseDrive(TapeHandle,10000);  ErrorMsg := ErrorCodes(eword);  if Length(ErrorMsg) > 0 then    Result := ErrorMsg; end; {------------------------------------------------------------------------------} {  uErase - Will erase tape in the drive. Returns any error as a string        } {------------------------------------------------------------------------------} Function TtapeCheck.uErase : string; var  TapeHandle : THandle;  eword      : dword;  ErrorMsg   : String; begin  result := '';  { open the tape drive }  TapeHandle := OpenDrive;  if Tapehandle = 0 then  begin    result := 'Unable to find tape drive on system or tape drive in use';    Exit;  end;  eword := EraseTape(TapeHandle,0,TRUE);  SpoolMessages;  ErrorMsg := ErrorCodes(eword);  if Length(ErrorMsg) > 0 then    Result := ErrorMsg;  CloseDrive(TapeHandle,10000); end; {------------------------------------------------------------------------------} { OpenDrive - Opens the default tape drive on the system. Returns the handle   } {             of the tape device.                                              } {------------------------------------------------------------------------------} function TtapeCheck.OpenDrive : THandle; var  TapeHandle : THandle;  Security : TSecurityAttributes; begin  Security.nLength := SizeOf(TSecurityAttributes);  Security.bInheritHandle := FALSE;  Security.lpSecurityDescriptor := nil;  TapeHandle := CreateFile('/.TAPE0', GENERIC_READ OR GENERIC_WRITE,                               FILE_SHARE_READ OR FILE_SHARE_WRITE,                                @SECURITY,                              OPEN_EXISTING, 0, 0);  { indicate an error if the tape drive does not exist }  if TapeHandle=INVALID_HANDLE_VALUE then    result := 0  else    result := tapeHandle; end; {------------------------------------------------------------------------------} { CloseDrive - procedure to close a tape handle                                } {------------------------------------------------------------------------------} Procedure TtapeCheck.CloseDrive(TapeHandle : THandle; ms : dword); begin  sleep(ms);  { allow time for tape drive to reset before close }  closehandle(TapeHandle); end; {------------------------------------------------------------------------------} { Function ErrorCodes - Converts error code value to a description and returns } {                       it as a string.                                        } {------------------------------------------------------------------------------} Function TtapeCheck.ErrorCodes( eword : dword) : string; begin  if eword = ERROR_MEDIA_CHANGED then eword := 0;  if eword = ERROR_BUS_RESET then eword := 0;  if eword = 0 then    result := '';  if eword = 1 then    result := 'This Tape drive does not support this function';  if eword = ERROR_FILE_NOT_FOUND then    {  2 }    result := 'The system cannot find the file specified. ';  if eword = ERROR_PATH_NOT_FOUND then     { 3 }    result := 'The system cannot find the path specified. ';  if eword = ERROR_TOO_MANY_OPEN_FILES then { 4 }    result := 'The system cannot open the file. ';  if eword = ERROR_ACCESS_DENIED then      {  5 }    result := 'Access is denied. ';  if eword = ERROR_INVALID_HANDLE then     {  6 }    result := 'The handle is invalid. ';  if eword = ERROR_ARENA_TRASHED then      {  7 }    result := 'The storage control blocks were destroyed. ';  if eword = ERROR_NOT_ENOUGH_MEMORY then  { 8  }    result := 'Not enough storage is available to process this command. ';  if eword = ERROR_INVALID_BLOCK then      { 9  }    result := 'The storage control block address is invalid. ';  if eword = ERROR_BAD_ENVIRONMENT then { 10 }    result := 'The environment is incorrect. ';  if eword = ERROR_BAD_FORMAT then      { 11 }    result := 'An attempt was made to load a program with an incorrect format.';  if eword = ERROR_INVALID_ACCESS then  { 12 }    result := 'The access code is invalid. ';  if eword = ERROR_INVALID_DATA then    { 13 }    result := 'The data is invalid. ';  if eword = ERROR_OUTOFMEMORY then     { 14 }    result := 'Not enough storage is available to complete the operation. ';  if eword = ERROR_INVALID_DRIVE then   { 15 }    result := 'The system cannot find the drive specified. ';  if eword = ERROR_CURRENT_DIRECTORY then  { 16 }    result := 'The directory cannot be removed. ';  if eword = ERROR_NOT_SAME_DEVICE then    { 17 }    result := 'The system cannot move the file to a different disk drive. ';  if eword = ERROR_NO_MORE_FILES then     { 18 }    result := 'There are no more files. ';  if eword = ERROR_WRITE_PROTECT then      { 19 }    result := 'Error, The write protect is set ';  if eword = ERROR_BAD_UNIT then          { 20 }    result := 'Error, The system cannot find the device ';  if eword = ERROR_NOT_READY then            { 21 }    result := 'The device is not ready ';  if eword = ERROR_BAD_COMMAND then  { 22 }     result := 'The device does not recognize the command. ';  if eword = ERROR_CRC then  { 23 }     result := 'Data error (cyclic redundancy check). ';  if eword = ERROR_BAD_LENGTH then{ 24 }     result := 'Incorrect command length from program ';  if eword = ERROR_SEEK then  { 25 }     result := 'The drive cannot locate a specfic area or track on the disk ';  if eword = ERROR_NOT_DOS_DISK then { 26 }     result := 'The specified disk or diskette cannot be accessed. ';  if eword = ERROR_SECTOR_NOT_FOUND then { 27 }     result := 'The drive cannot find the sector requested. ';  if eword = ERROR_OUT_OF_PAPER then  { 28 }     result := 'The Printer is out of paper. ';  if eword = ERROR_WRITE_FAULT then { 29 }     result := 'The system cannot read from the specified device. ';  if eword = ERROR_READ_FAULT then { 30 }     result := 'The system cannot read from the specified device. ';  if eword = ERROR_GEN_FAILURE then { 31 }     result := 'A device attached to the system is not functioning. ';  if eword = ERROR_SHARING_VIOLATION then { 32 }     result := 'The file is being using by another process. ';  if eword = ERROR_LOCK_VIOLATION then { 33 }     result := 'Another process has locked the file. ';  if eword = ERROR_WRONG_DISK then  { 34 }     result := 'The wrong diskette is in the drive. ';  if eword = ERROR_SHARING_BUFFER_EXCEEDED then{ 36 }     result := 'Too many files opened for sharing. ';  if eword = ERROR_HANDLE_EOF then         { 38 }     result := 'Reached end of file ';  if eword = ERROR_HANDLE_DISK_FULL then { 39 }     result := 'The disk is full ';  if eword = ERROR_NOT_SUPPORTED then { 50 }    result := 'The network request is not supported. ';  if eword = ERROR_MORE_DATA then            { 234 }    result := 'More data is available ';  if eword = ERROR_END_OF_MEDIA then    { 1100 }    result := 'Error, End of media ';  if eword = ERROR_FILEMARK_DETECTED then  { 1101 }    result := 'Error, Filemark detected ';  if eword = ERROR_BEGINNING_OF_MEDIA then   { 1102 }    result := 'Error, Cannot access data before medium marker ';  if eword = ERROR_SETMARK_DETECTED then   { 1103 }    result := 'Error, A setmark was reached ';  if eword = ERROR_NO_DATA_DETECTED then   { 1104 }    result := 'Error, Eof of data marker reached ';  if eword = ERROR_PARTITION_FAILURE then   { 1105 }    result := 'Error, The tape could not be partitioned ';  if eword = ERROR_INVALID_BLOCK_LENGTH then   { 1106 }    result := 'Error, The Block size is incorrect ';  if eword = ERROR_DEVICE_NOT_PARTITIONED then   { 1107 }    result := 'Error, Partition information not found ';  if eword = ERROR_UNABLE_TO_LOCK_MEDIA then   { 1108 }    result := 'Error, An attempt to lock the ejection mechanism failed ';  if eword = ERROR_UNABLE_TO_UNLOAD_MEDIA then   { 1109 }    result := 'Error, An attempt to unload the media failed  ';  if eword = ERROR_MEDIA_CHANGED then   { 1110 }    result := 'Error, The tape in the drive has been replaced.  ' +   ' This tape drive may be type QIC which is not supported. ';  if eword = ERROR_BUS_RESET then   { 1111 }    result := 'Error, A reset condition was detected on the bus ';  if eword = ERROR_NO_MEDIA_IN_DRIVE then   { 1112 }    result := 'There is no media in the drive '; end; {------------------------------------------------------------------------------} { SpoolMessages -  checks a thread message queue for a message and places      } {                 the message (if any) in the specified structure.             } {                 Allows screen updates after a task switch and back           } {------------------------------------------------------------------------------} procedure TtapeCheck.SpoolMessages; var  Msg : TMsg; begin  while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do  begin    TranslateMessage(Msg);    DispatchMessage(Msg);  end end;     { its the end of the world as we know it. } end.

_zeus · 2003-02-10

看 SDK。

关于读写磁带机的问题(100分)

LanHer

Unregistered / Unconfirmed

Milpas

Unregistered / Unconfirmed

taninsh

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

_zeus

Unregistered / Unconfirmed

Similar threads