LECTEUR DE FICHIER TOMTOM BINARY EN VB 6.0

Signaler
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
-
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/39506-lecteur-de-fichier-tomtom-binary-en-vb-6-0

Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
C'est surtout Willi qu'il faut remercier car c'est lui qui a fait la version VB net. Je n'ai fait que retranscrire de VB Net vers VB 6.0 car cela avait été demandé par un membre si mes souvenirs sont bons.
A + et bonne prog
Messages postés
13
Date d'inscription
jeudi 27 novembre 2008
Statut
Membre
Dernière intervention
25 octobre 2018

Salut,
Bon programme VB fait par quelqu'un qui apparement connait aussi C++
Reactivité tres rapide.
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Merci BillotMi pour le bug que tu as découvert.
vous avez le droit de mettre une note si vous le désirez
A+ et bonne prog
Messages postés
13
Date d'inscription
jeudi 27 novembre 2008
Statut
Membre
Dernière intervention
25 octobre 2018

Tres bon programme,
Juste deux petits bugs a signaler (si fichier.ov2 comportant des Skippers et si description POI > 255 octets) dont voici une correction.

' -----------------------------------------------
' récup de la longueur de l'enregistremant POI
' -----------------------------------------------
'iLength = HexFile(compteur + 1) ' Bug si longueur > 255
' Correction
If typenreg% = 1 Then
' SKIPPER POI: Occupe toujours 21 Octets
' détermine la zone couverte par une partie du fichier
' Permet de sauter d'un seul coup un bloc de points
' si celui que l'on cherche n'est pas dans la zone
' Il suffit alors d'ajouter la taille du bloc
' au pointeur. C'est un accelerateur de traitement
' pour les recherches.
' Longueur constante pour ce type d'enregistrement
iLength = 5 * 4 + 1
Else
' Longueur variable pour les autres types d'enreg
CopyMemory iLength, HexFile(compteur + 1), 4
End If

Juste une petite remarque, Pourquoi avoir utilisé deux gros blocs memoire (Chaine$ et hexFile) pour charger l'integralité du fichier et ne pas avoir utilisé GET pour charger directement les variables (sans passer par que l'API CopyMem) et SEEK pour se positionner dans le fichier ?

Tres cordialement
Encore bravo pour le travail accompli.
Afficher les 16 commentaires