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 ()
'Lazo
Retén ex como excepción
DBGeneralError (“FTP.ReceiveFile”, Err.GetException ())
objLocalFileStream.Close ()
objLocalFileStream = nada
mDataStream.Close ()
mDataStream = nada
mTCPData.Close ()
mTCPData = nada
Thread.Sleep (400)
sOut = ReadReply ()
'Si hemos conseguido aquí, hemos fallado.
Falso de vuelta
Intento del final
objLocalFileStream.Close ()
objLocalFileStream = nada
mDataStream.Close ()
mDataStream = nada
mTCPData.Close ()
mTCPData = nada
Thread.Sleep (400)
sOut = ReadReply ()
'Si hemos conseguido aquí, debemos ser buenos.
De vuelta verdad
Terminar la función
Sub ReadyDataSocketAndSendCommand (el strCommand de ByVal como strMethodName de la secuencia, de ByVal como mTCPData de la secuencia, de ByRef como mDataStream de TcpClient, de ByRef como NetworkStream)
Amortiguar el sOut como secuencia
Amortiguar los strIPAddress como secuencia
Si (no bConnectionOpen) entonces
Tiro nuevo FtpClientException (0, strMethodName y vbCrLf y “conexión no abiertos”)
Terminar si
'
'Fijar el modo pasivo
'
El 'modo pasivo abre la conexión en la computadora alejada y vuelve ()
'un número de acceso a utilizar. Más adelante, esto causa el mensaje 125. ¡Ningunas preocupaciones! ()
'Que es qué se supone para suceder.
'
SendFTPCommand (“PASV”)
sOut = ReadReply ()
Si no ReplyContains (“227”, sOut, strErrorCode, strErrorMessage) entonces
Lanzar nuevo FtpClientException (CInt (strErrorCode), “PASV” y vbCrLf y el strErrorMessage)
Terminar si
ParsePASVResult (sOut, strIPAddress, puerto)
Application.DoEvents ()
'
'Abren un zócalo
'
Intento
mTCPData = nuevo TcpClient (strIPAddress, puerto)
Retén ex como excepción
Tiro nuevo FtpClientException (0, “zócalo abierto” y vbCrLf y strIPAddress y” “y Port.ToString y vbCrLf y ex. Mensaje)
Intento del final
mTCPData.ReceiveBufferSize = BUFFSIZE
mTCPData.SendBufferSize = BUFFSIZE
Intento
mDataStream = mTCPData.GetStream ()
Retén ex como excepción
Tiro nuevo FtpClientException (0, “GetStream” y vbCrLf y strIPAddress y” “y Port.ToString y vbCrLf y ex. Mensaje)
Intento del final
'Enviar el comando del ftp al ftp server
SendFTPCommand (strCommand)
sOut = ReadReply ()
'Conseguiremos una confirmación de la transferencia directa o un mensaje de error ()
Si no ReplyContains (“150”, sOut, strErrorCode, strErrorMessage) AndAlso no ReplyContains (“125”, sOut, strErrorCode, strErrorMessage) entonces
Lanzar nuevo FtpClientException (CInt (strErrorCode), strCommand y vbCrLf y el strErrorMessage)
Terminar si
Terminar el submarino
|