Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/05/2008, 01:40
mamogo
 
Fecha de Ingreso: febrero-2008
Mensajes: 88
Antigüedad: 16 años, 3 meses
Puntos: 1
problema al subir con ftp

hola a todos,
tengo un gestor de ftp y cuando llevo un rato subiendo archivos me da el error hconnection=0
es como si hubiera un timer ya que siempre se bloquea al subir el archivo nº 11
y ya no se que mirar esta es la funcion que uso
alguien sabe las causa del error que genera el InternetConnect
gracias

Cita:
Public Function OpenConnection(sServer As String, sUser As String, sPassword As String) As Boolean
If hConnection <> 0 Then
InternetCloseHandle hConnection
End If

If CBool(InternetAutodial(INTERNET_AUTODIAL_FORCE_ONL INE, 0)) Then
hOpen = InternetOpen("eDIY FTP Client", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hOpen = 0 Then
ErrorOut Err.LastDllError, "InternetOpen"
End If
'InternetSetStatusCallback hOpen, AddressOf FTPCallBack

hConnection = InternetConnect(hOpen, sServer, INTERNET_INVALID_PORT_NUMBER, sUser, sPassword, INTERNET_SERVICE_FTP, dwSeman, 0)
If hConnection = 0 Then
ErrorOut Err.LastDllError, "InternetConnect"
OpenConnection = False
Exit Function
Else
'InternetSetStatusCallback hConnection, AddressOf FTPCallBack
OpenConnection = True
End If
Else
OpenConnection = False
End If
End Function

Última edición por mamogo; 25/05/2008 a las 02:23