🚀 go-pugleaf

akalb wrote:

> how can I write a file over a tape backup
> I use the procedure below to get the handle of the tape device, but I
> don't know how can I write a file over the tape media. Is there anyone
> can help me, please ???
> I have found the "write" procedure below but I don' know how can I use
> it.
> Best regards,
>                     Kalbert
> 
> 
> //------------------------------------------------------------------------------
> // open the tape drive e get the Handle
> //------------------------------------------------------------------------------
> function TForm1.OpenDrive:THandle;
> var
>   TapeHandle : THandle;
>   Security : TSecurityAttributes;
> begin
>   Security.nLength := SizeOf(TSecurityAttributes);
>   Security.bInheritHandle := FALSE;
>   Security.lpSecurityDescriptor := nil;
> 
>   TapeHandle := CreateFile(PChar('\\.\TAPE0'),
>                            GENERIC_READ OR GENERIC_WRITE,
>                            FILE_SHARE_READ OR FILE_SHARE_WRITE,
>                            @SECURITY,
>                            OPEN_EXISTING,
>                            0,
>                            0);
> 
>   if TapeHandle=INVALID_HANDLE_VALUE then
>     result := 0
>   else
>     result := TapeHandle;
> end;
> 
> 
> 
> 
> procedure TForm1.Write(iBuffer:Pointer; iBufLen:DWORD);
> var
>   TapeHandle  : THandle;
>   lBytesWritten : DWord;
> begin
>   TapeHandle := OpenDrive;
> 
>   if not WriteFile(TapeHandle,iBuffer^,iBufLen,lBytesWritten,nil) then
>     if lBytesWritten <> iBufLen then
>       ShowMessage('WriteFile only wrote '+IntToStr(lBytesWritten)+'
> bytes when'+IntToStr(iBufLen)+' bytes were requested')
>     else
>       raise Exception.Create('WriteFile returned an error, code
> was'+IntToStr(GetLastError()));
> end;
I think you have to open it as Create new file not existing..
  and it should be exclusive mode with write only.. in the
operation.
    Just a thought..

http://webpages.charter.net/jamie_5"