Conversion code VB6 vers PB

[GallyHC]

Bonjour tous,

J’ai encore une fois besoin de votre aide. Pour finir un projet je dois refaire une partie mais la je bloque. Je vous donne la partie en question.

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

Cordialement,
GallyHC

[Anonyme]

Je ne connais pas VB , mais ca doit être un truc du genre :

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)

[Ollivier]

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)
 

[Ollivier]

ça y est... Je me fais même griller par le démonte-pneu, ici. Ah, la rage...

[GallyHC]

Bonjour,

Que ce soit l'un l'autre je vous remercie... Je ne savais pas que redim fonctionne avec pb.

Amitié
GallyHC