[Vb.Net] Problème téléchargement + décompression

Problème téléchargement + décompression [Vb.Net] - C#/.NET managed - Programmation

Marsh Posté le 02-05-2016 à 18:07:41    

Bonjour !  :)  
 
Je développe un installeur et j'ai besoin de téléchargé des fichiers (.exe). cepandant en utilisant  
 
Code :
 

Code :
  1. My.Computer.Network.DownloadFile


 
Le ficher se télécharge bien, mais lorsque l'on essai de le lancer, il s'ouvre dans une console et se ferme (alors que c'est une winform !!! )  
J'ai pu remédier à ce probleme en compressant ces fichiers... en .gz
 
J'utilise donc la méthode de Gzip Stream pour les décompresser !  voici mon code :
 
La fonction de décompression :
 
Code :
 

Code :
  1. Public Function decompression(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean
  3.         Try
  5.             'Lecture du fichier compresse
  6.             Dim monFileStream As New FileStream(cheminSource, FileMode.Open)
  7.             ' Données du fichier placées dans un GZipStream
  8.             Dim monGzipStream As New GZipStream(monFileStream, CompressionMode.Decompress)
  10.             ' Tableau qui va contenir la taille du fichier
  11.             Dim tailleOctets(3) As Byte
  13.             ' Positionnement dans le Stream pour récupérer la taille
  14.             Dim position As Integer = CInt(monFileStream.Length - 4)
  15.             monFileStream.Position = position
  17.             ' Récupération de la taille du fichier
  18.             monFileStream.Read(tailleOctets, 0, 4)
  20.             ' Repositionnement en début du Stream
  21.             monFileStream.Position = 0
  23.             ' Conversion de la taille du fichier en entier
  24.             Dim tailleFichier As Integer = BitConverter.ToInt32(tailleOctets, 0)
  25.             ' Dimesionnement du buffer
  26.             Dim buffer(tailleFichier + 100) As Byte
  27.             ' Offset qui permettra de se repérer dans le Stream
  28.             Dim monOffset As Integer = 0
  31.             While (True)
  33.                 ' Les données sont décompressées et placées dans le buffer
  34.                 Dim decompressionOctets As Integer = monGzipStream.Read(buffer, monOffset, 100)
  36.                 ' Tant qu'il reste des données on continue
  37.                 If (decompressionOctets = 0) Then
  38.                     Exit While
  39.                 End If
  41.                 ' On icrémente l'offset pour ne pas repartir de 0 à chaque fois...
  42.                 monOffset += decompressionOctets
  44.             End While
  46.             ' Création du fichier décompressé
  47.             monFileStream = New FileStream(cheminDestination, FileMode.Create)
  48.             ' Ecriture des données décomrpessées dans le fichier
  49.             monFileStream.Write(buffer, 0, tailleFichier - 1)
  51.             ' Efface les données en mémoire tampon
  52.             monFileStream.Flush()
  54.             ' Fermeture des Streams
  55.             monFileStream.Close()
  56.             monGzipStream.Close()
  58.             Return True
  60.         Catch ex As Exception
  62.             Return False
  63.             MsgBox(ex.Message)
  65.         End Try
  67.     End Function


 
 
Cette fonction est appelée comme suit :
 
Code :  
 
 

Code :
  1. Call decompression(path & "\" & name & ".gz", path & "\" & name & ".exe" )


 
Code :
 

Code :
  1. path & "\" & name & ".gz"


 
 
étant le chemin du fichiers une fois celui ci téléchargé...
 
NB: j'ai essayer de mettre juste path dans le 2eme argument mais meme probleme...
 
Mon probleme :
 
Aucune décompression n'est effectuée !  
 
Et le plus étonnant est que je n'ai aucune erreur en sortie !  
 
 
Merci de votre aide !  :bounce:

Reply

Marsh Posté le 02-05-2016 à 18:07:41   

Reply

Sujets relatifs:

Leave a Replay

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