Alla hälsningar, förmiddagen för
I har, vilka looks något liknande ett problem mellan mitt fungera som buffert, storleksanpassar och networkstream. Jag kan egentligen inte tell.
Currently, I-förmiddagen buggar fixande och applikationen som har startat att agera ett lite loopy. De huvudsakliga applikationerna fungerar är att förbinda till en en ftp-server, och att upload/den olika nedladdningen sparar av olikt storleksanpassar. Sparar är EDI-datafiler för en beställare. Den är funktionsduglig (något), och den tänkande I-förmiddagen, som det kan vara methodologyen inom FTPEN, klassificerar I-förmiddagen using.
More med hänseenden till hämtande sparar specifikt från en ftp-server ifrågasätter in. Något att säga I detta, därför att det sendfile och getfilelisten fungerar arbete utan en hitch.
The, utfärdar mig har är att sparar nedladdar endast till det max storleksanpassar av fungera som buffert och som synes ingen mer ytterligare. Förmiddag som I inte får några ut ur minnesundantag. Enda verkligt få för förmiddag för fel I är detta: 12:02 för
07/08/2010: 20.6272, 550 specificerade knyter kontakt känt är ej längre något att säga för available.
I som sparar nedladdar till fungera som buffert storleksanpassar därför att endast jag kan gå in, och att ändra min fungera som buffert storleksanpassar och ska hämtar endast det belopp av data, för knyta kontaktanslutningen stängs av den skulle hjälpen för en ftp-server.
Any är väldeliga appreciated.
-saige-
> för
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:
" codeBody "
class= " notpretty " >FTP.vb för 0)
'objLocalFileStream.Write (bData, 0, bytesRead)
'bytesRead = mDataStream.Read (bData, 0, BUFFSIZE)
'Application.DoEvents ()
'Kretsa
Fånga före detta som undantag
DBGeneralError (”FTP.ReceiveFile”, Err.GetException ())
objLocalFileStream.Close ()
objLocalFileStream = ingenting
mDataStream.Close ()
mDataStream = ingenting
mTCPData.Close ()
mTCPData = ingenting
Thread.Sleep (400)
sOut = ReadReply ()
'Om vi har fått här, har vi missat.
Återgångt falskt
Avsluta försök
objLocalFileStream.Close ()
objLocalFileStream = ingenting
mDataStream.Close ()
mDataStream = ingenting
mTCPData.Close ()
mTCPData = ingenting
Thread.Sleep (400)
sOut = ReadReply ()
'Om vi har fått här, vi bör vara bra.
Återgångt True
Avsluta fungerar
UnderReadyDataSocketAndSendCommand (ByVal strCommand som stränger, ByVal strMethodName som stränger, ByRef mTCPDataen som TcpClient, ByRef mDataStream som NetworkStream)
Dunkel sOut som stränger
Dunkla strIPAddress som stränger
Om (att inte bConnectionOpen) därefter
Kast nya FtpClientException (0, inte öppna strMethodName & vbCrLf & ”anslutning”)
Avsluta om
',
'Fastställdt passivumfunktionsläge
',
'Passivumfunktionsläget öppnar anslutningen på den avlägsna datoren och går tillbaka ()
'en port numrerar för att använda. Mer sistnämnd detta orsakar meddelande 125. Inga bekymmer! ()
'Som är vad är förment att hända.
',
SendFTPCommand (”PASV”)
sOut = ReadReply ()
Om inte ReplyContains (”227”, sOut, strErrorCode, strErrorMessage) därefter
Kasta nya FtpClientException (CInt (strErrorCode), ”PASV” & vbCrLf & strErrorMessagen)
Avsluta om
ParsePASVResult (sOut, strIPAddress, port)
Application.DoEvents ()
',
'Öppna en hålighet
',
Försök
mTCPData = nya TcpClient (strIPAddress, port)
Fånga före detta som undantag
Kasta nya FtpClientException (0, ”den öppna håligheten” & vbCrLf & strIPAddress &” ”& Port.ToString & vbCrLf & före detta. Meddelande)
Avsluta försök
mTCPData.ReceiveBufferSize = BUFFSIZE
mTCPData.SendBufferSize = BUFFSIZE
Försök
mDataStream = mTCPData.GetStream ()
Fånga före detta som undantag
Kasta nya FtpClientException (0, ”GetStream” & vbCrLf & strIPAddress &” ”& Port.ToString & vbCrLf & före detta. Meddelande)
Avsluta försök
'Överför FTPEN befaller till en ftp-server
SendFTPCommand (strCommand)
sOut = ReadReply ()
'Vi ska får endera en bekräftelse av nedladdningen eller ett felmeddelande ()
Om inte ReplyContains (”150”, sOut, strErrorCode, strErrorMessagen) AndAlso inte ReplyContains (”125”, sOut, strErrorCode, strErrorMessage) därefter
Kasta nya FtpClientException (CInt (strErrorCode), strCommand & vbCrLf & strErrorMessagen)
Avsluta om
Avsluta suben
" klar "
|
