Lire un fichier binaire sur le CDRom

Salut,

ben c'était utile de donner ton code puisqu'il ma permis de voir que tu utilisais la mauvaise méthode.

Essaye ceci :

procedure TForm1.Button2Click(Sender: TObject);
Var Source , Dest : TFileStream;
begin
  Source := TFileStream.Create('h:\Video_ts\video_ts.ifo', fmOpenRead);
  Dest   := TFileStream.Create('c:\Essais\video_ts.ifo', fmCreate);
  Dest.CopyFrom( Source, Source.Size);
  Dest.Free;
  Source.Free;
end;

 n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

@+
Cirec

en fait c'est la méthode d'accès au fichier qui n'était pas la bonne :


procedure TForm1.Button1Click(Sender: TObject);
Var
S,T:Fileof char;
pt: integer;
Source:string;
Cible:string;
ch:char;
Longueur:integer;
begin
  Source:='h:\Video_ts\video_ts.ifo'; // DVDROM
// Acces refusé sur le DvdRom (File acces denied)
//Source:='D:\Video_ts.ifo';  //Copié sur disque dur
// Fonctionne sur disque dur...
// Il faut que je le lise Octet par Octet sur le DVD.
  Cible:= Path.APPDIR + '\video_ts.ifo';
  AssignFile(S,Source);
{Les valeurs FileMode valides sont les suivantes :

0 Lecture seule
1 Écriture seule
2 Lecture/Écriture }
  FileMode := 0;
  Reset(S);
  AssignFile(T,Cible);
  FileMode := 2;
  Rewrite(T);
  Longueur:=Filesize(S);
  for pt:=1 to Longueur do
  begin
    Read(S,ch);
    Write(T,ch);
    end;
  closeFile(S);
  CloseFile(T);
end;

 n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

@+
Cirec