PureBasic

Code : Tout sélectionner

    Public Type MyType
        value                               As Integer
    End Type

    Dim bytFile()       As MyType
    
    iFile = FreeFile
    Open PCSourceFile For Binary Access Read As iFile
    ReDim bytFile(LOF(iFile))
    Get iFile, , bytFile
    Close iFile

Code : Tout sélectionner

Structure MyType
  value.i
EndStructure

Dim bytFile.MyType(0)
iFile = OpenFile(#PB_Any,"PCSourceFile")
ReDim bytFile(Lof(iFile))
ReadData(iFile,@bytFile(),Lof(iFile))
CloseFile(iFile)

Code : Tout sélectionner

 Dim BytFile.B(0)
 
 iFile = ReadFile(-1, "NomDeFichier.Extension")
 
 LOF = Lof(iFile)
 
 ReDim BytFile.B(LOF)
 
 ReadData(iFile, @BytFile(), LOF)
 
 CloseFile(iFile)