Discussion :

[grégoire2]

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]

[tourlourou]

essaye pê un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BlockRead(F,   @ByteArray1[0],   Taille);

[edam]

essay sa si mam mémoir est bon

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
17
18
19
20
21
 
type
     PTableau=^Tableau;
    Tableau=array[0..Max(DWord)-1] of byte;
var
     f: file of char; // ou of byte
     BA :PTableau;
     taille,i:integer;
begin
if opendialog1.execute then
   begin
       assignFile(F,Opendialog1.FileName);
       Reset(F);   //
       Taille:= FileSize(F);
       getmem(ba,taille);
       showmessage(IntTostr(Taille));
       Reset(F);
       BlockRead(F,BA,Taille,i);
       closefile(f);
   end;
end.

ici tableau est un pointeur sur une mémoir a peut prés continu
pour un tableau dynamique j'ai déja essayer mais quelque fois sa marche une autre fois sa marche pas, car la location de mémoir ici n'est pas continu( pas un seul bloc de mémoir)

[Graffito]

Bonjour,

Au lieu de :

BlockRead(F,ByteArray1,Taille);

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BlockRead(F,ByteArray1[0],Taille);

[inoussa]

Salut.
Pourquoi ne pas utiliser les streams :

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
17
18
19
20
Var
  _ms : TMemoryStream;
  _buffer : String;
  _i : Integer;
begin
  If OpenDialog1.Execute() And FileExists(OpenDialog1.FileName) Then Begin
    _ms := TMemoryStream.Create();
    Try
      _ms.LoadFromFile(OpenDialog1.FileName);
      _i := _ms.Size;
      If ( _i > 0 ) Then Begin
        SetLength(_buffer,_i);
        Move(_ms.Memory^,_buffer[1],_i);
        ShowMessage(_buffer);
      End;
    Finally
      _ms.Free();
    End;
  End;
End;

[grégoire2]

Je reviens à mon programme après un break de quelques jours. Merci pour les idées que j'ai combinées pour pouvoir obtenir directement un tableau de byte (je tiens à ce type).

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
17
18
19
20
21
22
23
24
25
 
type
Tbyte = array[0..0] of byte;
PTbyte =^TByte;
var
ms : TFileStream;
ByteArray1 : PTbyte;
size : Integer;
c: integer;
 
if opendialog1.execute then
   begin
         ms:=TFileStream.Create(opendialog1.Filename,fmOpenRead);
         try
           //ms.Seek(0, soFromBeginning);
           size:=ms.Size;
           getmem(ByteArray1,size);
           ms.readbuffer(ByteArray1^,size);
           c:=3;
           {$RangeChecks Off}
             showmessage(char(ByteArray1[c]));
           {$RangeChecks On}
         finally
           ms.Free();
         end;

Ce code est très proche du code C++ que je veux porter en Delphi.
Le Tableau ByteArray1 peut être manipulé comme un tableau normal à condition de dire au compilateur de ne pas faire vérifier à l'exécution le respect des limites du tableau qui ici sont réduites au minimum 0..0. À noter qu'une instruction "showmessage message(char (Bytearray1 [3]] );" est rejetée par le compilateur qui ne s'applique pas la permissivité qu'il autorise à l'exécution. Il faut donc passer par une variable pour indexer le tableau, mais ce n'est pas vraiment génant à l'utilisation. Par contre il faut être rigoureux pour ne pas dépasser la taille nominale du tableau dans les accès. On retrouve ici le côté dangereux du C++.

Je pense qu'on doit pouvoir aussi choisir les bornes du tableau avec une déclaration du type Tbyte = array[5..5] of byte; mais je ne l'ai pas vérifié.

[Graffito]

Bonjour,

Tu peux déclarer le type "Tbyte" comme "array[0..65000] of byte" pour éviter les directives $range (j'ai mis 65000 pour représenter la taille maximum traitée au hasard).
Ca n'a aucun impact sur l'occupation mémoire réélle puisque l'allocation dépend du Getmem.

[Laurent Dardenne]

Merci d'utiliser les balises codes svp.

[grégoire2]

En effet, il semble bien que les directives {$RangeChecks} au compilateur ne soient pas nécessaires si on utilise ByteArray1 directement comme un tableau. Je suis un peu surpris car je croyais que le langage Pascal était nominalement très rigoureux sur le contrôle des accès.
Cependant, je viens de vérifier que si on utilise ByteArray1 comme un pointeur (après tout il est déclaré pointeur et non tableau), l'instruction "showmessage message(char (bytearray1^[c]] );" impose l'utilisation des directives {$RangeChecks} pour pouvoir passer.

Je découvre Delphi... qui semble avoir la souplesse de C++

Merci