class= " lineNumbers " del
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= del
class= >FTP.vb " notpretty " del id= " codeSnippet789986 " del 0)
'objLocalFileStream.Write (bData, 0, bytesRead)
'bytesRead = mDataStream.Read (bData, 0, BUFFSIZE)
'Application.DoEvents ()
'Ciclo
Fermo ex come eccezione
DBGeneralError (“FTP.ReceiveFile„, Err.GetException ())
objLocalFileStream.Close ()
objLocalFileStream = niente
mDataStream.Close ()
mDataStream = niente
mTCPData.Close ()
mTCPData = niente
Thread.Sleep (400)
sOut = ReadReply ()
'Se otteniamo qui, siamo venuto a mancare.
Falso di ritorno
Prova di conclusione
objLocalFileStream.Close ()
objLocalFileStream = niente
mDataStream.Close ()
mDataStream = niente
mTCPData.Close ()
mTCPData = niente
Thread.Sleep (400)
sOut = ReadReply ()
'Se otteniamo qui, dovremmo essere buoni.
Di ritorno allineare
Concludere la funzione
Sub ReadyDataSocketAndSendCommand (strCommand di ByVal come strMethodName di ByVal, della stringa come mTCPData di ByRef, della stringa come mDataStream di ByRef, di TcpClient come NetworkStream)
Oscurare il sOut come stringa
Oscurare gli strIPAddress come stringa
Se (non bConnectionOpen) allora
Tiro nuovo FtpClientException (0, strMethodName & vbCrLf & “collegamento non aperti„)
Concluder se
'
'Fissare il modo passivo
'
'Il modo passivo apre il collegamento sul calcolatore a distanza e rinvia ()
'un numero port da usare. Più successivamente, questo causa il messaggio 125. Nessun preoccupazioni! ()
'Che è che cosa è supposto per accadere.
'
SendFTPCommand (“PASV„)
sOut = ReadReply ()
Se non ReplyContains (“227„, sOut, strErrorCode, strErrorMessage) allora
Gettare nuovo FtpClientException (CInt (strErrorCode), “PASV„ & vbCrLf & strErrorMessage)
Concluder se
ParsePASVResult (sOut, strIPAddress, orificio)
Application.DoEvents ()
'
'Aprono uno zoccolo
'
Prova
mTCPData = nuovo TcpClient (strIPAddress, orificio)
Fermo ex come eccezione
Tiro nuovo FtpClientException (0, “zoccolo aperto„ & vbCrLf & strIPAddress &„ “& Port.ToString & vbCrLf & ex. Messaggio)
Prova di conclusione
mTCPData.ReceiveBufferSize = BUFFSIZE
mTCPData.SendBufferSize = BUFFSIZE
Prova
mDataStream = mTCPData.GetStream ()
Fermo ex come eccezione
Tiro nuovo FtpClientException (0, “GetStream„ & vbCrLf & strIPAddress &„ “& Port.ToString & vbCrLf & ex. Messaggio)
Prova di conclusione
'Trasmettere l'ordine del ftp al ftp server
SendFTPCommand (strCommand)
sOut = ReadReply ()
'Otterremo una conferma del trasferimento dal sistema centrale verso i satelliti o un messaggio di errore ()
Se non ReplyContains (“150„, sOut, strErrorCode, strErrorMessage) AndAlso non ReplyContains (“125„, sOut, strErrorCode, strErrorMessage) allora
Gettare nuovo FtpClientException (CInt (strErrorCode), strCommand & vbCrLf & strErrorMessage)
Concluder se
Concludere il sommergibile
|