Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 04:39:53

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

RE : "SI" AVEC PLUS PETIT/PLUS GRAND par weginale

RE : COMMENT éCRIRE LA DATE EN LETTRE par jack

+ de logiciels à télécharger

1 330 601 membres
66 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 251 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSION BIG-ENDIAN EN LITLE-ENDIAN

Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 18/07/2002 Date de mise à jour : 18/07/2002 16:01:59 Vu : 1 855

Auteur : YahnIck

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

lorsque l'on veut utiliser des données binaires créées à partir d'une station UNix, il est difficile de les lires avec un PC. Car les données binaires sont inversées. Sous station les données binaires sont de type Big-endian et sous PC de type Litle endian.(inversement des deux chaines d'octets). Donc voici un exemples de code permettant de lire du Big endian avec VB6. Je mesuis inspiré d'un code qui le faisait avec des long ici je le fait avec de integer cours(16 octets)

Source

Type intType
L As Integer
End Type
Type DWordType 'division de l'integer en 2*8octets pour faire l'inversion
High As Byte
Low As Byte
End Type
Sub Swap(LE As Integer, swapwords As Integer)' procedure permettant d'inverser les 2*8Octets
Dim TempLong As intType
Dim TempDWord As DWordType
Dim TempInt As Byte
TempLong.L = LE
LSet TempDWord = TempLong
TempInt = TempDWord.High
TempDWord.High = TempDWord.Low
TempDWord.Low = TempInt
LSet TempLong = TempDWord
swapwords = TempLong.L
End Sub

Type intType
    L As Integer
End Type

Type DWordType 'division de l'integer en 2*8octets pour faire l'inversion
    High As Byte
    Low As Byte
End Type

Sub Swap(LE As Integer, swapwords As Integer)' procedure permettant d'inverser les 2*8Octets
    Dim TempLong As intType
    Dim TempDWord As DWordType
    Dim TempInt As Byte
    TempLong.L = LE
    LSet TempDWord = TempLong
    TempInt = TempDWord.High
    TempDWord.High = TempDWord.Low
    TempDWord.Low = TempInt
    LSet TempLong = TempDWord
    swapwords = TempLong.L
End Sub

Conclusion

pour les integer long
il suffit de déclarer L, LE et Swapwords en long
et high,lowet tempint en integer

Sources de la même categorie

BLOQUER/DEBLOQUER UN FICHIER NTFS par EBArtSoft

GESTION DISQUES SERVEUR par cdbi

CRÉER DIAPORAMA PPT par Le Pivert

VALIDEUR DE FICHIER XML XSD par denpx

GÉNÉRATEUR DE FICHIER par denpx

Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de OphidiaN le 18/07/2002 23:46:48

fallait savoir... :)

Commentaire de YahnIck le 19/07/2002 11:28:54

ah oui au fait
c'est pas 16 octets mais 2 octets de 8 bits chacun

Commentaire de mightykay le 19/02/2004 05:35:27

euuuu désolé mé jcomprend pas trop ton truc tu pourrais me donner un exemple ???
d'utilisation?
je sait que en gros ca donne un truc du genre

000000FF
et FF000000
mais pour lutilisation de ton truc je pige pas