class= " lineNumbers " do
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= do
class= >FTP.vb " notpretty " do id= " codeSnippet789986 " do 0)
'objLocalFileStream.Write (bData, 0, bytesRead)
'bytesRead = mDataStream.Read (bData, 0, BUFFSIZE)
'Application.DoEvents ()
'Laço
Prendedor ex como a exceção
DBGeneralError (“FTP.ReceiveFile”, Err.GetException ())
objLocalFileStream.Close ()
objLocalFileStream = nada
mDataStream.Close ()
mDataStream = nada
mTCPData.Close ()
mTCPData = nada
Thread.Sleep (400)
sOut = ReadReply ()
'Se nós começ aqui, nós falhamos.
Falso do retorno
Tentativa do fim
objLocalFileStream.Close ()
objLocalFileStream = nada
mDataStream.Close ()
mDataStream = nada
mTCPData.Close ()
mTCPData = nada
Thread.Sleep (400)
sOut = ReadReply ()
'Se nós começ aqui, nós devemos ser bons.
Do retorno retificar
Terminar a função
Sub ReadyDataSocketAndSendCommand (o strCommand de ByVal como o strMethodName da corda, do ByVal como o mTCPData da corda, do ByRef como o mDataStream de TcpClient, de ByRef como NetworkStream)
Escurecer o sOut como a corda
Escurecer strIPAddress como a corda
Se (para não bConnectionOpen) então
Lance FtpClientException novo (0, strMethodName & vbCrLf & “conexão nao abertos”)
Terminar se
'
'Ajustar a modalidade passiva
'
'A modalidade passiva abre a conexão no computador remoto e retorna ()
'um número portuário a usar-se. Mais tarde, isto causa a mensagem 125. Nenhumas preocupações! ()
'Que é o que é supor para acontecer.
'
SendFTPCommand (“PASV”)
sOut = ReadReply ()
Se não ReplyContains (“227”, sOut, strErrorCode, strErrorMessage) então
Jogar FtpClientException novo (CInt (strErrorCode), “PASV” & vbCrLf & o strErrorMessage)
Terminar se
ParsePASVResult (sOut, strIPAddress, porto)
Application.DoEvents ()
'
'Abrem um soquete
'
Tentativa
mTCPData = TcpClient novo (strIPAddress, porto)
Prendedor ex como a exceção
Lance FtpClientException novo (0, “soquete aberto” & vbCrLf & strIPAddress &” “& Port.ToString & vbCrLf & ex. Mensagem)
Tentativa do fim
mTCPData.ReceiveBufferSize = BUFFSIZE
mTCPData.SendBufferSize = BUFFSIZE
Tentativa
mDataStream = mTCPData.GetStream ()
Prendedor ex como a exceção
Lance FtpClientException novo (0, “GetStream” & vbCrLf & strIPAddress &” “& Port.ToString & vbCrLf & ex. Mensagem)
Tentativa do fim
'Emitir o comando do ftp ao ftp server
SendFTPCommand (strCommand)
sOut = ReadReply ()
'Nós começ uma confirmação de transferência ou uma mensagem de erro ()
Se não ReplyContains (“150”, sOut, strErrorCode, strErrorMessage) AndAlso não ReplyContains (“125”, sOut, strErrorCode, strErrorMessage) então
Jogar FtpClientException novo (CInt (strErrorCode), strCommand & vbCrLf & o strErrorMessage)
Terminar se
Terminar o submarino
|