Soy Edinson de colombia, tengo un problema al utilizar wininet.dll en visual basic 2008 para subir un archivo a un servidor ftp autenticandose por proxy, dicha libreria en su funcion ftpputfile, no me hace absolutamnte nada, este e smi ejemplo para ver si me pueden ayudar, llevo dias en esto y no he podido solucionarlo, ya que es indispensable subirlo por medio de proxy, este es el codigo
Public Function FtpPutFile(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean End Function
Private Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Function ConectarFtpProxy(ByVal p_IpFTP As String) As Integer
cuando llega a la funcion FtpPutFile, aparentemente lo hace, puedo verificar en filezilla que se conecta pero no hace la transferencia del archivo, ayuda urgente...!
Buenas,
ResponderEliminarSoy Edinson de colombia, tengo un problema al utilizar wininet.dll en visual basic 2008 para subir un archivo a un servidor ftp autenticandose por proxy, dicha libreria en su funcion ftpputfile, no me hace absolutamnte nada, este e smi ejemplo para ver si me pueden ayudar, llevo dias en esto y no he podido solucionarlo, ya que es indispensable subirlo por medio de proxy, este es el codigo
Public Function FtpPutFile(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
End Function
Private Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Function ConectarFtpProxy(ByVal p_IpFTP As String) As Integer
Try
ConnInternetProxy = InternetOpen("Proxy", 1, g_UserProxy, g_PassProxy, 0)
ConexionProxy = InternetConnect(ConnInternetProxy, p_IpFTP.Trim(), 21, g_User, g_Password, 1, 0, 0)
FtpPutFile(ConexionProxy, "c:\dirmap.zip", "dirmap.zip", FTP_TRANSFER_TYPE_ASCII, 0)
ConectarFtpProxy = 1
Catch ex As Exception
ConectarFtpProxy = 0
End Try
End Function
cuando llega a la funcion FtpPutFile, aparentemente lo hace, puedo verificar en filezilla que se conecta pero no hace la transferencia del archivo, ayuda urgente...!
edinson zuñiga Lourido
Cali, Colombia
Hola muchas gracias me sirvió mucho pero me gustaría saber si puedo saber si esta conectada
ResponderEliminarHola muchas gracias me sirvió mucho pero me gustaría saber si puedo saber si esta conectada
ResponderEliminar