[VB] Panique à bords : Ca marche dans VB, mais pas une fois compilé !

Panique à bords : Ca marche dans VB, mais pas une fois compilé ! [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 05-05-2004 à 09:43:51    

Pendant que je postais mon problème, je pense avoir trouvé la source de l'erreur :bounce:  
 
MAIS ! Je ne sais pas comment le corriger :cry:
 
Un peu de code vaut mieu qu'un long discourt, donc trois fonctions et un type utilisateur :
 

Code :
  1. Private Type dwl
  2.     fileType As String
  3.     fileContent As String
  4. End Type
  6. Private Function downLoadFile(url As String, lfileType As String) As dwl
  7.     Dim objRegExp As RegExp
  8.     Dim objMatch As Match
  9.     Dim colMatches As MatchCollection
  10.     Dim tmpStr As String
  11.     Dim tmpFile As dwl
  13.     ' [...]
  14.    
  15.     If objRegExp.Test(url) Then
  16.        
  17.         ' Création d'un fichier temporaire qui sert au download
  18.         iTmpFile = FreeFile
  19.         Open App.Path & "\" & Replace(cacheFile, "#", iTmpFile) For Binary Access Write As #iTmpFile
  21.         ' [...]
  22.        
  23.         ' Objet WinSock
  24.         With wscHttp
  25.             .Close
  26.             .LocalPort = 0
  27.             .Connect m_strRemoteHost, m_strRemotePort
  28.             Do While .State < 8
  29.                 DoEvents
  30.             Loop
  31.             If .State = 9 Then
  32.                 MsgBox ("Error: Disconnected from server." )
  33.                 On Error Resume Next
  34.                 Close #iTmpFile
  35.                 Kill Replace(cacheFile, "#", iTmpFile)
  36.                 On Error GoTo 0
  37.             Else
  38.                 Close #iTmpFile
  39.                 Open App.Path & "\" & Replace(cacheFile, "#", iTmpFile) For Binary Access Read As #iTmpFile
  41.                 ' Recherche de deux sauts de ligne dans le fichier, afin de sauter l'en-tête HTTP
  42.                 Dim c1 As Byte
  43.                 Dim c2 As Byte
  44.                 Dim c3 As Byte
  45.                 Dim c4 As Byte
  46.                 Dim countChar As Integer
  47.                
  48.                 Do While Not (c1 = 13 And c2 = 10 And c3 = 13 And c4 = 10)
  49.                     c1 = c2
  50.                     c2 = c3
  51.                     c3 = c4
  52.                     Get #iTmpFile, , c4
  53.                     countChar = countChar + 1
  54.                 Loop
  55.                
  56.                 ' Chargement du fichier temporaire dans une chaîne de caractère
  57.                 tmpStr = String(FileLen(App.Path & "\" & Replace(cacheFile, "#", iTmpFile)) - (countChar), " " )
  58.                 Get #iTmpFile, , tmpStr
  59.                 On Error Resume Next
  60.                 Close #iTmpFile
  61.                 Kill Replace(cacheFile, "#", iTmpFile)
  62.                 On Error GoTo 0
  63.             End If
  64.         End With
  65.     Else
  66.         ' [...]
  67.     End If
  68.    
  69.     ' Initialisation de la valeur de retour
  70.     tmpFile.fileType = lfileType
  71.     tmpFile.fileContent = tmpStr
  72.     downLoadFile = tmpFile
  73.    
  74.     Exit Function
  75. ERR_HANDLER_DWL:
  76.     downLoadFile = tmpFile
  77. End Function
  79. Sub saveFile(content As String, fileName As String, filePath As String)
  80.     Dim intFile As Integer
  81.     If LCase(Left(fileName, 7)) <> "mailto:" Then
  82.         intFile = FreeFile
  83.         Open filePath & fileName For Binary Access Write As #intFile
  84.         Put #intFile, , content
  85.         Close #intFile
  86.     End If
  87. End Sub
  89. ' Téléchargement d'un fichier situé derrière un lien de type <a href="(url)">...</a>"
  90. Function getLinks(ByRef document As String)
  91.     Dim objRegExp As RegExp
  92.     Dim objMatch As Match
  93.     Dim colMatches As MatchCollection
  94.     Dim myDoc As String
  95.     Dim myDoc2 As String
  96.     Dim linkFileName As String
  97.     Dim j As Integer
  98.     Dim dwlLnk As dwl
  99.    
  100.     ProgressBar2.Value = 3
  101.     Label6.Caption = "Documents"
  102.    
  103.     myDoc = document
  104.     myDoc2 = document
  105.     Set objRegExp = New RegExp
  106.     objRegExp.Pattern = "(<a[^>]*?href=['|""])([^'|^""]+?)(['|""].*?> )"
  107.     objRegExp.IgnoreCase = True
  108.     objRegExp.Global = True
  109.     If (objRegExp.Test(myDoc2)) Then
  110.         Set colMatches = objRegExp.Execute(myDoc2)
  111.         j = 0
  112.         ProgressBar3.Max = colMatches.Count
  113.         For Each objMatch In colMatches
  114.             linkFileName = Right(objRegExp.Replace(objMatch.Value, "$2" ), Len(objRegExp.Replace(objMatch.Value, "$2" )) - InStrRev(Replace(objRegExp.Replace(objMatch.Value, "$2" ), "\", "/" ), "/" ))
  115.             j = j + 1
  116.             ProgressBar3.Value = j
  117.             Label7.Caption = linkFileName
  118.             frmMain.Refresh
  120.             ' C'est là que ça merde !
  122.             myDoc = Replace(myDoc, objMatch.Value, objRegExp.Replace(objMatch.Value, "$1" & currentDoc & "\" & linkFileName & "$3" ), 1, 1)
  123.             dwlLnk = downLoadFile(objRegExp.Replace(objMatch.Value, "$2" ), "link" )
  124.             saveFile dwlLnk.fileContent, linkFileName, App.Path & docPath & "\" & currentDoc & "\"
  125.         Next
  126.     End If
  127.     getLinks = myDoc
  128. End Function


 
Ce qu'il se passe, c'est que lors du téléchargement des documents d'une page, les fichiers téléchargés font la taille maximale parmis les derniers fichiers téléchargés au sein du document.
En gros, la valeur de "dwlLnk" dans la boucle de la fonction "getLinks" n'est pas correctement écrasée. Et là, je ne vois pas du tout comment forcer VB à la réinitialiser :sweat:
Elle est du type utilisateur mis au début du code.
Le problème peut venir aussi de "saveFile" qui enregistre alors la chaîne dans le fichier destination, mais j'en doute.
 
Le problème, c'est que je ne suis sûr de rien : depuis l'IDE VB, ça marche très bien, je n'ai aucun problème ! Par contre, ça se met à déconner dès que je compile (même sur la même machine)
 
A vrai dire, je pense même que c'est plutôt la fonction "downloadFile" qui déconne, car j'ai le problème aussi à un autre endroit, du programme (par contre, ce second endroit ne pète pas sur tous les PC, sur le mien ça marche, et sur le PC d'un collègue ça déconne :??:)

Reply

Marsh Posté le 05-05-2004 à 09:43:51   

Reply

Marsh Posté le 05-05-2004 à 09:48:15    

Je crois que j'ai trouvé :bounce:
 
(enfin, je suis sûre de rien, depuis 2 jours, ça fait 5 fois que je réécris complètement la partie de téléchargement... :sweat:)
 
J'ai ajouté dans le fonction "downloadFile", au tout début "tmpFile.fileContent = vbNullString"
 
Ca a l'air de forcer la bastiolle à redimensionner la chaîne et donc détruire ce qu'il avait en mémoire...
 
Seulement, avec un "Dim" sur la variable à la ligne précédent, j'aimerais comprendre pourquoi il gardait l'ancienne valeur en mémoire :pt1cable:

Reply

Marsh Posté le 05-05-2004 à 10:09:08    

lol
 
Bon, même avec la modification, ça pétait quand même à d'autres endroits (qui pourtant passent par la même fonction), du coup j'ai foutu des vbNullString un peu partout avant les appels à downloadFile histoire d'initialiser la variable avant son affectation, et ça à l'air de marcher...
 
La bidouille, y'a que ça de vrai avec VB :sweat:
 
 
-- Edit :  
Trop fort :cry: Je relance le programme (qui a marché le fois d'avant) et il re-déconne :cry:
 
Maman, je veux rentrer chez moi faire dodo :cry:


Message édité par Arjuna le 05-05-2004 à 10:10:24
Reply

Marsh Posté le 05-05-2004 à 10:47:13    

Bon, maintenant il plante (boum :D) une fois sur 3 ou 4... Quand on insiste (sans rien toucher) il finit par pas plus merder... Je cherche plus à comprendre... Ca semble venir de WinSock qui se décharge/charge mal en mémoire... C'est mieu qu'à début, fallait que je reboote le PC à chaque fois que je voulais lancer le programme :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed