Bandlaufwerk / Streamer ansprechen unter Delphi.

[shifter]

Flocke nicht aufregen,

Delphi-Quellcode:

Var str : TMemoryStream;
    ou  : dword;
    lcm : pointer;
begin
    TapeHandle  :=  OPENDRIVE;

    str :=  TMemoryStream.Create;
    str.LoadFromFile('C:\mt.exe');

    lcm :=  nil;
    ou  :=  0;

    showmessage(inttostr(str.Size)); // Länge des mt.exe = 23040

    BackupWrite( TapeHandle,str.Memory,str.Size,ou, false,false, lcm );

    showmessage(inttostr(ou));       // Geschriebene länge = 204

    BackupWrite( TapeHandle,str.Memory,str.Size,ou, true,false, lcm );


    str.Free;

    CLOSEDRIVE;

Passiert nichts. Irgend wo mache ich noch fehler.

Andere Frage,

Was ist TapeMark ? Ist das änlich mit cluster auf hdd ?

Gruss
seba