ftp response timeout

Tue, 04 Jan 2011 14:31:57 -0700

Posted a 'new message on the VB.NET forum.

Hi all,
I have a Windows Service that uses ftp to query a folder on a remote server and download any files it finds there, deleting them afterward. It has been running without issue for well over a year until three weeks ago.

Now there is an intermittent error. Periodically when it sends a port command, it hangs waiting for a response from the remote server. According to the admin at the remote server, the command simply never arrives.

This is legacy code from VB.Net 2003 recompiled in VS 2005. Any help or ideas will be greatly appreciated.

-James

    Public Overloads Function DownloadFile(ByVal RemoteFile As String, ByVal LocalFile As String, ByVal StreamMode As StreamModes, ByVal FileMode As DataConnection.FileModes, ByVal AppendFrom As Long) As Boolean
        SendCommand("TYPE " + Convert.ToChar(StreamMode))
        If Not CreateDataSocket(LocalFile, FileMode, DataConnection.StreamDirections.Download, AppendFrom) Then
            RaiseEvent CommandCompleted()
            Return False
        End If
        If Not (passiveTransfers) Then
            Dim MyEndPoint As IPEndPoint = dataSocket.GetLocalEndPoint()
            SendCommand("PORT " + MyEndPoint.Address.ToString.Replace(".", ",") + "," + CType(Math.Floor(MyEndPoint.Port / 256), Integer).ToString + "," + (MyEndPoint.Port Mod 256).ToString)
        End If
        If FileMode = DataConnection.FileModes.Append AndAlso AppendFrom > 0 Then
            SendCommand("REST " + AppendFrom.ToString)
        End If
        SendCommand("RETR " + RemoteFile)
        If lastResponseType <> 4 AndAlso lastResponseType <> 5 Then
            Try
                dataSocket.ReceiveFromSocket()
            Catch EX As Exception
                dataSocket.Close()
                WaitForResponse()
                RaiseEvent CommandCompleted()
                Return False
            End Try
            WaitForResponse()
        End If
        dataSocket.Close()
        RaiseEvent CommandCompleted()
        Return True
    End Function

Private Sub SendCommand(Command as String)
	Try
		clientSocket.Send(ASCII.GetBytes(Command + Convert.ToChar(13) + Convert.ToChar(10)))'ControlChars.CrLf))
		If Command.Length >= 4 AndAlso Command.SubString(0, 4).ToUpper.Equals("PASS") Then
	RaiseEvent CommandSent("PASS ********")
	Else
				RaiseEvent CommandSent(Command)
			End If
			WaitForResponse()
        Catch EX As Exception
            RaiseEvent ConnectionFailed()
            lastResponseNumber = 0
            lastResponseType = 0
            lastResponse = ""
            Throw EX
        End Try
	End Sub

	Private Sub WaitForResponse()
		If Not(isNowConnected) Then Exit Sub
		Dim tempBuffer(1023) as Byte
		Dim retBytes as Integer
		Dim retString as String = ""
		Do
			Try
				retBytes = clientSocket.Receive(tempBuffer)
            Catch EX As Exception
                WriteToMyEventLog(EX.Message & vbCrLf & EX.StackTrace, , EventLogEntryType.Error)
                'Throw EX
                Exit Do
            End Try
            retString = retString + ASCII.GetString(tempBuffer, 0, retBytes)
        Loop Until IsValidResponse(retString)
		lastResponse = retString
		If retString.Length >= 3 Then
			lastResponseNumber = Short.Parse(retString.Substring(0, 3))
		Else
			lastResponseNumber = 0
		End If
		lastResponseType = CType(Math.Floor(lastResponseNumber / 100), Short)
		RaiseEvent ReceivedReply(lastResponse, lastResponseNumber, lastResponseType)
	End Sub

Re: NVarChar data type

Thu, 25 Mar 2010 13:51:45 -0700

Posted a 'reply on the Advanced VB.Net forum.

Have you tried explicitly specifying the max in your parameter declaration?

@Body nvarchar(4000)

I had an issue with this datatype being declared as "MAX" because of a legacy issue.

Re: Can't get Immedite WIndow in VB.2005

Thu, 25 Mar 2010 13:43:46 -0700

Posted a 'reply on the Advanced VB.Net forum.

Well, it came back. I now have the Immediate window, but I don't know why. There was a reboot in there somewhere, but now it's fixed, so... Nevermind.

-james

Can't get Immedite WIndow in VB.2005

Thu, 18 Mar 2010 08:56:32 -0700

Posted a 'new message on the Advanced VB.Net forum.

I just inherited a project and workstation used to support a large asp.net application. I started it up in debug mode and put a break on a code line. When it breaks, I can't seem to produce the Immediate window. If you select Debug->windows the Immediate window is not listed. Locals, autos, etc are listed, but not my old reliable.

This is vs 2005.

Any ideas?

Thanks,

James

James's Feed - Programmer's Heaven

ftp response timeout

Re: NVarChar data type

Re: Can't get Immedite WIndow in VB.2005

Can't get Immedite WIndow in VB.2005