Mettre un fichier dans un tableau de Bytes


Commenter

Contenu du snippet 

Type 
  TBArray = Array Of Byte; 
Var  
  aBArray : TBArray; 
Procedure  File2ByteArray(Const aFile: String;Var  ByteArray: TBArray); 
Var MS:  TFileStream; 
Begin 
  MS :=  TFileStream.Create(aFile, fmOpenRead); 
  Try  
    SetLength(ByteArray, MS.size);  
    MS.ReadBuffer(ByteArray[0],  Length(ByteArray)); 
  Finally  
    MS.free; 
  End;  
End; 

{Utilisation} 
Procedure  Tfrm_Main.Button1Click(Sender: TObject); 
Begin 
  File2ByteArray('UMain.pas', aBArray); 
  {et  pour tester on affiche le résultat dans un TMemo}  
  Memo1.Lines.Text := PChar(aBArray); 
End;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Du même auteur (Nix)