Manipulation d'entier 64 bits en vb6Résolu

Question

Bonjour a tous


J&#146;ai un 
petit probleme


J&#146;ai deux donn&#233;es (une 
en hexa et une en decimal) que je voudrais comparer mais je n&#146;y arrive 
pas


Explication :


J&#146;utilise microsoft fax 
serveur (FAXCOMEXLib.FaxServer) qui me renvoi un job id sous la forme 144614278267376223 lors de l&#146;envoi 
d&#146;un fax



J&#146;utilise ensuite cette procedure

Public Sub objSender_OnOutgoingJobChanged(ByVal pFaxServer As FAXCOMEXLib.FaxServer, ByVal bstrJobId As String, ByVal pJobStatus As FAXCOMEXLib.FaxJobStatus)

  qui surveille les &#233;v&#233;nement du serveur fax et se declanche lorsque  l&#146;&#233;tat d&#146;un fax 
change 

Le parametre bstrJobId  est sous la 
forme &#171; 201C5EB7D93925F &#187; en hexa donc.


Si vous ouvrez la 
calculette windows et que vous convertissez 144614278267376223 en hexa vous 
obtenez bien  201C5EB7D93925F 


Le probl&#232;me c&#146;est que 
VB6 n&#146;est pas capable de faire ce genre d&#146;operation 144614278267376223 etant un 
entier cod&#233; sur 64 bits(il me semble)&#133;.


Auriez vous une id&#233;e 
pour comparer ces deux valeurs (sauf passer sous .Net bien sur 
^^)?

J'ai cr&#233;&#233; une fonction de conversion Hex->Dec mais au mieux elle me retourne :  1.44614278267376E+17 

Public Function convHexToDec(sNum As String) As Long
Dim i  As Integer, itemp As Integer

Dim iPuissance As Integer
Dim val As Integer
iPuissance = 0
i = Len(sNum)
For itemp = i To 1 Step -1
Select Case Mid(sNum, itemp, 1)
Case "A"
    val = 10
Case "B"
    val = 11
Case "C"
    val = 12
Case "D"
    val = 13
Case "E"
    val = 14
Case "F"
    val = 15
Case Else
    val = Mid(sNum, itemp, 1)
End Select
    convHexToDec = convHexToDec + (val * (16 ^ iPuissance))
iPuissance = iPuissance + 1
Next
End Function


Merci


++

Gobillot · Accepted Answer

d&#233;sol&#233; je vois que le d&#233;cimal pour faire &#231;a.

&#233;vite d'appeler ta variable val









Private Sub Command1_Click()

    Dim str As String

    

    str = "201C5EB7D93925F"

    MsgBox convHexToDec(str)



End Sub



Public Function convHexToDec(sNum As String) As Variant

Dim i  As Integer, itemp As Integer



Dim iPuissance As Variant

Dim valeur As Integer

iPuissance = CDec(1)

i = Len(sNum)

For itemp = i To 1 Step -1

Select Case Mid(sNum, itemp, 1)

Case "A"

    valeur = 10

Case "B"

    valeur = 11

Case "C"

    valeur = 12

Case "D"

    valeur = 13

Case "E"

    valeur = 14

Case "F"

    valeur = 15

Case Else

    valeur = Mid(sNum, itemp, 1)

End Select

    convHexToDec = convHexToDec + (valeur * iPuissance)

iPuissance = iPuissance * 16

Next

End Function


Daniel

cs_rt15 · Answer

Apparement, l'hexa de bstrJobId, tu le réceptionne via une chaîne

Le job ID, comment le réceptionne tu ?

Sur deux entiers 32 bits ?

cs_mateo1975 · Answer

RT15:
Je recois un string
Daniel:
Je vais zieuter dans cette direction merci.
Je teste ca demain au boulot
J'avais meme pas fais gaffe pour la variable qui s'appelle val :s cest pas top en effet

Gobillot · Answer

rassures toi &#231;a passe largement:



    str = "201C5EB7D93925FFFFFFFFF"

r&#233;ponse --> 621113595693024425807970303

Daniel

cs_mateo1975 · Answer

C' est genial!!!
Merci beaucoup

Manipulation d'entier 64 bits en vb6

5 réponses

Discussions similaires