1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
| Public Class Download_File
'3 events :
'- Pour le début du télechargement (debut_dl)
' pour la progression du téléchargement (progression_dl)
' pour la fin du téléchargement (fin_dl)
Public Event Debut_Dl(ByVal Taille_Fichier As Long, ByVal resumepos As Long, ByVal Temps_Depart As Long)
Public Event Progression_Dl(ByVal actual_pos As Long)
Public Event Fin_Dl(ByVal actual_pos As Long)
Dim b As Boolean 'indique si l'utiliateur veut annulé son dl
Dim bresume As Boolean
Dim readstr As IO.Stream
Dim lenfile As Long
Dim bytesarr(102400) As Byte
Dim timestart As Long
Dim tmppos As Long
Dim posresume As Long
Dim pathname As String
Dim urlz As String
Public Sub Donwload_File_3(ByVal Source As String, ByVal Path As String, ByVal IsResume As Boolean)
b = True
bresume = IsResume
timestart = 0
pathname = Path
urlz = Source
Dim threadz As New System.Threading.Thread(AddressOf thread_launch)
threadz.Start()
End Sub
Private Sub thread_launch() 'thread pour lancer le téléchargement
Get_file(urlz, pathname) 'appel de la procédure de dl
End Sub
Public Sub Cancel_Dl() 'pour annuler le téléchargement
b = False
End Sub
Private Sub Get_file(ByVal fileurl As String, ByVal filepath As String, Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing)
If proxy <> Nothing And proxyport <> Nothing Then
Dim hproxy As New WebProxy(proxy, proxyport)
GlobalProxySelection.Select = hproxy
End If
Dim hwebrequest As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(fileurl), HttpWebRequest)
If bresume = True Then
posresume = CInt(FileLen(filepath))
tmppos = posresume
hwebrequest.AddRange(CInt(tmppos))
End If
Dim hwebresponse As System.Net.HttpWebResponse = CType(hwebrequest.GetResponse, HttpWebResponse)
readstr = hwebresponse.GetResponseStream
lenfile = hwebresponse.ContentLength + tmppos
timestart = Environment.TickCount 'temps de depart du téléchargement
Dim tmplen As Long 'indique la position du flux
tmplen = 2
b = True
RaiseEvent Debut_Dl(lenfile, CInt(posresume), CInt(timestart)) 'debut du téléchargement
Do While tmplen > 0
If b = False Then Exit Do 'en cas d'annulation, on quitte la boucle
tmplen = readstr.Read(bytesarr, 0, 102400) 'lis les données
tmppos += tmplen 'position du stream
Dim filesave As New IO.FileStream(filepath, IO.FileMode.Append, IO.FileAccess.Write)
filesave.Write(bytesarr, 0, CInt(tmplen)) 'ecrit les données dans le fichier au bon entroit
filesave.Close() 'ferme le fichier
RaiseEvent Progression_Dl(tmppos) 'déclanche l'event progression
System.Threading.Thread.Sleep(300) 'ca sert à rien mais c'est pour ralentir le code je suppose !
Loop
RaiseEvent Fin_Dl(tmppos) 'le telechargement est terminé !
readstr.Close() 'on ferme tout
readstr = Nothing
End Sub
End Class |
[vb.net] Télécharger les fichiers d'une liste les uns après les autres
Répondre avec citation
Envoyé par sperot51
+ 
+ 
= 
!
Partager