class= " lineNumbers " de
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 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
|
class= de
class= >FTP.vb " notpretty " de l'id= " codeSnippet789986 " de 0)
'objLocalFileStream.Write (bData, 0, bytesRead)
'bytesRead = mDataStream.Read (bData, 0, BUFFSIZE)
'Application.DoEvents ()
'Boucle
Crochet ex comme exception
DBGeneralError (« FTP.ReceiveFile », Err.GetException ())
objLocalFileStream.Close ()
objLocalFileStream = rien
mDataStream.Close ()
mDataStream = rien
mTCPData.Close ()
mTCPData = rien
Thread.Sleep (400)
sOut = ReadReply ()
'Si nous avons obtenu ici, nous avons échoué.
Faux de retour
Essai de fin
objLocalFileStream.Close ()
objLocalFileStream = rien
mDataStream.Close ()
mDataStream = rien
mTCPData.Close ()
mTCPData = rien
Thread.Sleep (400)
sOut = ReadReply ()
'Si nous avons obtenu ici, nous devrions être bons.
De retour rectifier
Finir la fonction
Substrater ReadyDataSocketAndSendCommand (le strCommand de ByVal comme strMethodName de corde, de ByVal comme mTCPData de corde, de ByRef comme mDataStream de TcpClient, de ByRef comme NetworkStream)
Obscurcir le sOut comme corde
Obscurcir les strIPAddress comme corde
Si (pas bConnectionOpen) puis
Jet nouveau FtpClientException (0, strMethodName et vbCrLf et « raccordement non ouverts »)
Finir si
'
'Placer le mode passif
'
'Le mode passif ouvre le raccordement sur l'ordinateur à distance et retourne ()
'un numéro d'accès à employer. Plus tard, ceci cause le message 125. Aucuns soucis ! ()
'Qui est ce qui est censé se produire.
'
SendFTPCommand (« PASV »)
sOut = ReadReply ()
Sinon ReplyContains (« 227 », sOut, strErrorCode, strErrorMessage) puis
Jeter nouveau FtpClientException (CInt (strErrorCode), « PASV » et vbCrLf et strErrorMessage)
Finir si
ParsePASVResult (sOut, strIPAddress, port)
Application.DoEvents ()
'
'Ouvrent une douille
'
Essai
mTCPData = nouveau TcpClient (strIPAddress, port)
Crochet ex comme exception
Jet nouveau FtpClientException (0, « douille ouverte » et vbCrLf et strIPAddress et » « et Port.ToString et vbCrLf et ex. Message)
Essai de fin
mTCPData.ReceiveBufferSize = BUFFSIZE
mTCPData.SendBufferSize = BUFFSIZE
Essai
mDataStream = mTCPData.GetStream ()
Crochet ex comme exception
Jet nouveau FtpClientException (0, « GetStream » et vbCrLf et strIPAddress et » « et Port.ToString et vbCrLf et ex. Message)
Essai de fin
'Envoyer la commande de ftp au ftp server
SendFTPCommand (strCommand)
sOut = ReadReply ()
'Nous recevrons une confirmation du téléchargement ou un message d'erreur ()
Sinon ReplyContains (« 150 », sOut, strErrorCode, strErrorMessage) AndAlso pas ReplyContains (« 125 », sOut, strErrorCode, strErrorMessage) puis
Jeter nouveau FtpClientException (CInt (strErrorCode), strCommand et vbCrLf et strErrorMessage)
Finir si
Finir le sous-marin
|
