Je pensais pouvoir utiliser un tableau dynamique de Byte pour charger en mémoire la totalité d'un fichier binaire au moyen du code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
f: file
ByteArray1 : Array of Byte
begin
if opendialog1.execute then
   begin
       assignFile(F,Opendialog1.FileName);
       FileMode := fmOpenRead;
       Reset(F,1);
       Taille:= FileSize(F);
       SetLength(ByteArray1,Taille);
       showmessage(IntTostr(Taille));
       Reset(F,1);
       BlockRead(F,ByteArray1,Taille);
   end;
end.
Le projet compile bien mais, à l'exécution, j'obtiens le message d'erreur suivant à la ligne Blockread (F, Bytearray1, taille)
Le projet a déclanché la classe d'exception EInOuterror avec le message "Error E/S 998"

Quelle est mon erreur SVP ?
[Modération]
Merci d'utiliser les balises code ou quote,Laurent Dardenne
[/Modération]