tape backup

[akalb]

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;

[Alberto Salvati]

THIS IS AN *ITALIAN* NG.
IF YOU ARE SEARCHING SOME HELP HERE, YOU *MUST* WRITE IN ITALIAN.

A.