Lecteur de fichier tomtom binary en vb 6.0

Soyez le premier à donner votre avis sur cette source.

Vue 24 234 fois - Téléchargée 5 659 fois

Description

Ce programme sert simplement à lire les fichiers .ov2, ses fichiers sont utilisés par Checkpoint(prog de detection des radars sur pocketPC). Donc c'est dans ses fichiers que tu trouves les positionnement par exemple des radars. C'est la version VB 6.0 du programme de Willi en VB Net. Un fichier .ov2 est fourni en exemple pour tester.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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.
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
sinon bonnes fêtes à tous et A+ ( erreur de frappe)
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.