Now, we have the following problem, is that Sometimes we are slow line o en el peor de los casos algun gracioso desconecto nuestro servidor FTP y todos los archivos que se tratan de enviar no llegan a su destino ya que si no nos apresuramos nos pueden linchar los usuarios de nuestro sistema, bueno aca esta claro que hay un problema de conectividad, para cualesquiera que sea el caso, es necesario verificar (validar, comprobar, etc etc) justamente si esta disponible nuestro server en ese momento que que enviamos o descargamos los archivos y de esa forma apaciguar los animos de quienes lo requieren con un mensaje como "La linea que Telefonica nos provee esta pesima, asi que tranquilizate e intenta mas tarde enviar tu archivo".
Pues bien ahora mostrare un fragmento de como resolver (en todo caso, advertir) este problemilla in Visual Basic 2008 code
Code:
Private Function VerificarConecFTP () As Boolean
ClienteFtp Dim As New Sockets. TcpClient
Try
ClienteFtp.Connect ( "2oo.48.xx.xxx" , 21) 'eye, only IP the FTP server
ConectarFTP = True 'if True returns means that there is connection
Catch Ex As Exception
MsgBox (ex.Message ) 'write the message but save you trouble
ConectarFTP = False' if it returns False means you have to go running to see what happens on the server
End Try
End Function
0 comments:
Post a Comment