Acceder a un Ftp por cable modem

[carlosortiz]

Antes que nada quiero saludar a todos los integrantes del foro.

Mi problema es sobre descargas por FTP, hasta hace un tiempo la mayoria de mis clientes se conectaban por dial up para bajarse las listas de precios, algunos otros con ADSL y todo bien, pero ahora tengo unos nuevos que han contratado cable modem de Arnet/Telecom con un modem Motorola 5101 es el modelo para ser mas preciso y no se puede establecer la conexion. Estoy tratando de verificar con algo los puertos abiertos ya que los proveedores de internet dicen que ellos no cierran nada ni ponen ningun firewall ni nada pero la cosa es que no puedo ver el FTP desde fivewin y si voy por el explorer y coloco mi ip 209.99.22... anda de primera, desde el DOS ejecutando FTP tambien puedo entrar.

Sin mas les agradezco desde ya.

[Lautaro]

¿ Esta usando windows xp ?

Si es asi, entonces revisa que tu programa no este bloqueado por el firewall de windows xp sp2


atte,
Lautaro

[carlosortiz]

El problema se presenta en cualquier windows, y lo que he notado es que en esta problematica siempre las conexiones son via USB, cuando es banda ancha por placa de red el problema no existe. Estoy pensando en que tiene que ver mas con el hardware que con el software.

Gracias.

[Antonio Linares]

Carlos,

Muéstranos cómo estás usando el código de FTP ? gracias.

[Baxajaun]

Buenas tardes Carlos,

utiliza el programa fport de Foundstone, lo puedes descargar desde aquí:

http://www.foundstone.com/index.htm?sub ... etools.htm

Saludos,

Félix

[carlosortiz]

// Antonio saco todo por que es un prg bastante complejo,
// dejo solo las llamadas inherentes al tema

define dial...
// ---------------------------------------------------------------------
// ---------------------------------------------------------------------
redefine sbutton ID 101 OF oPrivate:oPags:aDialogs[2]
FONToVentPrinc:oFont file m->cpatbmp+"_conecta.bmp";
prompt "Ingresar al servidor" action busftp() text 4
activate dial...
return .t.

// --------
func busftp()
// --------
local oFTP
oPrivate:oInternet:=TInternet():New()
if !internetSt()
internetDi()
if !internetSt()
oPrivate:oInternet:End()
return .f.
endif
endif

// Antonio, aca hace la llamada con LEVFTP
msgrun("Ingresando al servidor...","",{|oDlg|levftp(oPrivate:oInternet,oDlg,oFTP)},"_insitio")

oPrivate:oInternet:End()
return nil

//------------------------
func levftp(oInternet,oDlg,oFTP)
//------------------------
local aFiles, nItem, recorre, aFiltro:=array(9)
local ncannuevos
oFTP:=TFTP():New( "209.99.228.215", oInternet, "dbfarma", "farmacia")
if empty( oFTP:hFTP )
oDlg:end()
// Antonio, sale por este error y por ende no puedo levantar
// los datos del servidor
msgstop("No se pudo establecer la conexión.")
return .f.
endif

sysrefresh()

oDlg:settext("Buscando actualizaciones...")
sysrefresh()


// Levanto todo el directorio ftp del dbfarma
aFilesFtp = oFTP:Directory("*.*")

[Antonio Linares]

Carlos,

Estas usando las clases estandard de Windows, debería funcionar.

Has probado el ejemplo samples\FTPDir.prg ?

[carlosortiz]

Estoy usando las classes estandar, de hecho agregue un mensaje en TInternet y TFtp, las compile y las agregue en el LNK para ver si surtia algun cambio y nada sigue igual.

Tambien probe los ejemplos pelados sin nada de proceso solo apertura y nada.
Probe tambien esta funcion que esta en los Samples\SylInt.prg

// Working with Internet Classes
/*
I tried to do my best to give you all necessary information to gain the perfect control over all internet function that can be manage with Fivewin for sure we can add some more (http function) but we don't have any control to display HTML text so that's why I didn't test it.

Must of internet function that open session dial automaticaly the internet if you set the parameter for, but a better practice to AVOID GPF is to:

1- Check with InternetSt() if a connection is already establish
2- If not Establish connect with InternetDi() or InternetAu()
3- Do your work
4- Hangup with InternetHa() or InterautHa()

Hope it will help Fivewin user

*/

#include "FiveWin.ch"
#include "menu.ch"

//----------------------------------------------------------------------------//

function Main()
etc, etc, ...
return nil
//----------------------------------------------------------------------------//

function BuildMenu()
etc, etc, ...
MENUITEM "Get archivo" ACTION FTPGET()
return oMenu
Function Flushdenet()

Function FTPGET() // mise a jour des constantes de salaire
Local hftp
Local n1:=0,message:=space(500),n2:=500
if (hftp:=InternetConnect(onet,"209.99.228.215",21,"dbfarma","farmacia",1,2,0)) == 0
msginfo("Sorry can't connect to FTP site:"+str(getlasterror()))
if Intrespinf(@n1,message,@n2)
msginfo("message:="+message)
endif
else
// Change the filename by the one you want to get from the FTP site
if ! Ftpgetfile(hftp,"aviso.MEM","c:\tmp\aviso.mem",1,128,2,0)
msginfo("Getlat:="+str(getlasterror()))
if Intrespinf(@n1,message,@n2)
msginfo("message:="+message)
endif
endif
msginfo("Done!")
Internetclosehandle(hftp)
endif

return .t.



Probe Qftp aunque con problemas con el .ch que no era el correcto, compile como pude y nada.

Acabo de venir del cliente y estuve probando un exe pelado y aparentemente a la conexion la detecta bien InternetSt() retorna conectado, el problema esta en la definicion del objeto
oFTP:=TFTP():New( "209.99.228.215", oInternet, "dbfarma", "farmacia")
esto devuelve vacio.

Tambien estuve chequeando los puertos para ver si habia algo (troyano/espia/virus) que lo tuviere abierto, lo hice on line desde http://www.upseros.com/portscan.php y nada estaba cerrado, en un XP me dió INVISIBLE pero bueno ahi anda.

Les copie mi WinInet.dll de mi pc a la de los clientes y nada, le puse el cable modem por medio de una placa de red y nada, lo que me esta quedando es formatear el equipo pero no tengo muchas ganas de meterme en un lio mas grande sobre todo con la infinidad de giladas que tiene este tio en la pc.

En fin Antonio he probado casi todo lo que esta a mi alcance antes de molestar en el foro, aunque se que no es molestia y estoy muy agradecido por la ayuda que todos brindan a esta comunidad. Muchas gracias a ustedes y seguire probando cosas.

PD: En algunos clientes que tienen esta porqueria de aparato no les anda el Messenger por ejemplo. ( Motorola SBoard 5101 USB ), lo que si en todos los casos el FTP.exe por DOS anda bien.