VBA - Type de données Long et UNRAR.DLL

Question

J'ai un petit probl&#232;me avec un de mes programmes.  J'ai construit
un programme sous VBA (Excel) qui me permet de lister des
fichiers.  Le programme poss&#232;de une fonction sp&#233;ciale quand un des
fichiers rencontr&#233; est une archive RAR.  Il doit me donner la
grosseur non-compress&#233; de l'archive au complet.



Jusque l&#224; &#231;a va bien, &#231;a fonctionne, sauf que r&#233;cemment, je me suis
aper&#231;u d'un probl&#232;me...  En effet, le type LONG ne supporte pas
les chiffres plus grand que 2,147,483,647.  Et j'ai quelques
archives dont le contenu d&#233;compress&#233; d&#233;passe ce chiffre en nombre de
bytes.  R&#233;sultat : &#231;a me donne des nombres incroyables (dans le
genre -1549382734).



Apr&#232;s avoir essay&#233; toutes sortes de manipulations (j'ai meme essay&#233; de
d&#233;clarer certaines variables en type CURRENCY et &#231;a marche pas) je fais
appel &#224; votre aide.



Voici quelques une des d&#233;clarations de mon code pour comprendre :



Private Type RARHeaderData

    ArcName As String * 260

    filename As String * 260

    flags As Long

    PackSize As Long   <----- c'est ici que &#231;a va pas que crois

    UnpSize As Long    <----- ainsi que ici !

    HostOS As Long

    filecrc As Long

    FileTime As Long

    UnpVer As Long

    method As Long

    FileAttr As Long

    CmtBuf As String

    CmtBufSize As Long

    CmtSize As Long

    CmtState As Long

End Type



Public Declare Function RARReadHdr Lib "unrar.dll" Alias
"RARReadHeader" (ByVal HandleToArcRecord As Long, ByRef ArcHeaderRead
As RARHeaderData) As Long



Dim uHeader As RARHeaderData



Alors si la taille d'un fichier est inf&#233;rieur au maximum du type LONG, &#231;a va bien...

Si elle d&#233;passe le maximum, pas besoin de dessin, &#231;a donne n'importe quoi.



Vous avez une id&#233;e ?  Est-ce que le probl&#232;me viendrais de UNRAR.DLL ?

J'ai lu tous les examples et le type pour Packsize et Unpsize est toujous le meme (LONG)

Zlub · Answer

Salut,

Tu peux essayer avec le type Single si ce n'est d&#233;j&#224; fait, ou avec Double mais j'y crois pas ....

Sinon essais de trouver une autre DLL

++

Zlub

demonleon · Answer

j'ai essay&#233; Single et non ... &#231;a me donne des r&#233;sultats incroyables ...



et changer de dll ... Unrar.dll, y'en a qu'une ... y'en a pas des tonnes ...



enfin ... je vais voir pour le passage des parametres... ptet qu'il y a kkchose &#224; faire...

demonleon · Answer

mais ce qui est drole dans tout &#231;a c'est que &#231;a fonctionne bien... tant
que la taille totale des fichiers compress&#233;s ne d&#233;passe pas les 2GB ...

Zlub · Answer

Salut,


vi j'ai vu que y'en a pas des tonnes comme tu dis ....

++

Zlub

demonleon · Answer

Toujours rien ...



j'en suis en ce moment &#224; me demander si je pourrais pas me d&#233;panner
grace aux pointeurs ... copymemory, varptr ... mais vu que c'est pas
document&#233; ces choses-la, c'est pas &#233;vident ... vous avez une id&#233;e ?

demonleon · Answer

Bon j'ai avanc&#233; un peu ... j'ai r&#233;ussi &#224; repousser la limite jusqu'&#224; 4GB grace &#224; une conversion sign&#233;-non sign&#233;



Dim DblSize as Double



If uHeader.UnpSize < 0 Then

    DblSize = uHeader.UnpSize + 4294967296#

Else

    DblSize = uHeader.UnpSize

End If



Et j'affiche DblSize au lieu de uHeader.UnpSize.



Aussi simple que &#231;a :).  Mon probl&#232;me est toujours la, mais au moins la limite est repouss&#233; &#224; 4294967295 (232)  octets (au lieu de 2147483647 (231) octets).



Je me demande s'il serait possible d'utiliser copymemory pour transf&#233;r&#233;
le contenu de UnpSize.  En effet, le param&#232;tre est pass&#233; par
r&#233;f&#233;rence dans une variable de type long.  J'ai essay&#233; avec ma
petite modification pour les tailles plus grandes que 232 et
non &#231;a fonctionne pas ... donc je me disais qu'en copiant carr&#233;ment la
r&#233;f&#233;rence dans une autre variable, elle aussi en r&#233;f&#233;rence, mais de
type Double, &#231;a marcherait, mais VBA plante (probablement caus&#233; par un
overflow).



Tout commentaires/aide bienvenue