Discussion :

[MatthieuT]

Bonjour a tous,

Je cherche a lire dans une appli VB.Net des fichiers typés créés a partir d'une appli developpée en Delphi.
Ces fichiers sont composés de n records décrit comme ci dessus (extrait de code Delphi) :

Code :

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

1
2
3
4
5
6
7
8
9
10
TTargetData40 = record
    CycleMax: word; // Nombre de cycles out of range
    Kind: byte;
    Name: string[40];
    DateTime: double;
    HAngle: double; // angle Hz si kind = 0, direction si kind = 1
    VAngle: double; // angle V  si kind = 0, inclination si kind = 1
    D: double; // Distance
    Status: integer; // Statut
end;

Pour lire ces fichiers sous VB.Net, je me suis créé une Class équivalente au type Delphi décrit ci-dessus. J'ai ensuite écrit une procédure avec la fonction FileGetObject pour tenter de récuperer le contenu de ces fichiers :

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
Public Class BinData40
    Public CycleMax As Integer
    Public Kind As Integer
    <VBFixedString(40)> Public Name As String
    Public Datetime As Double
    Public Hangle As Double
    Public Vangle As Double
    Public D As Double
    Public Status As Integer
End Class
 
Public Sub ReadBinFile()
    Dim BinRec() As BinData40
    Dim nfic
    Dim strfilename As String = "C:\Monchemin ...\filetypeDelphi.bin"
    nfic = FreeFile()
    FileOpen(nfic, strFilename, OpenMode.Binary)
    FileGetObject(nfic, BinRec)
    FileClose(nfic)
End Sub

J'ai tenté plusieurs autres méthodes avec des BinaryReader, mais rien a faire, il m'est impossible de récuperer les records !

J'en appelle a votre aide.
Merci d'avance de vos réponses.

(Je précise que je n'ai aucunes connaissances en Delphi, et que je ne suis pas un developpeur pro en VB.Net _ niveau moyen)

[Edit:] Voici a quoi ressemble le contenu des fichiers BIN déchiffrés avec une appli Delphi.

0 1 SERIALNUMBER 14/10/2013 00:10:55 0 0 100582 0
...
0 0 C02RP50105s 14/10/2013 00:10:55 181.59953 102.79402 18.51655 0
0 0 C02RP50106s 14/10/2013 00:10:55 208.45692 106.26708 16.817 0
0 0 C02RP50107s 14/10/2013 00:10:55 0 0 0 1
0 0 C02RP50108s 14/10/2013 00:10:55 220.98863 111.37649 6.66775 0
0 0 C02RP50109s 14/10/2013 00:10:55 220.81178 89.56875 6.5956 0