FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Validar una Carpeta en Un Servidor de Internet
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Validar una Carpeta en Un Servidor de Internet
Posted: Sun Apr 02, 2017 05:45 AM

Estimados amigos del foro.

Quisiera que alguien me ayudara en lo siguiente:
Debo subir unas imagenes a una determinada carpeta en un servidor de internet, pero para ello quiero que en el modulo de configuracion de parametros al igual que le indico el host, el usuario y la contrase帽a tambien quisiera indicarle el nombre de la carpeta donde se guardaran las imagenes y al momento de que el usuario haga click en "probar conexion" el programa de FW verifique si los parametros de conexion estan correctos y se establece la misma, pero que a la vez verifique si existe la carpeta. Ya tengo todo listo en lo que respecta a hacer la conexion con el servidor via internet, subir y/o bajar la im谩genes. Pero no he dado con la manera de que si la carpeta no ha sido creada previamente en el server, el programa avise "La carpeta de imagenes no ha sido creada" y no permita grabar los datos de conexion hasta que la carpeta que hospedara las imagenes sea creada por el administrador en el servidor.

Gracias anticipadas por la ayuda que tengan a bien hacerme llegar.

Saludos.

"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Validar una Carpeta en Un Servidor de Internet
Posted: Sun Apr 02, 2017 10:52 AM
Yo lo que hago es intentar enviar un fichero de prueba :

Code (fw): Select all Collapse
oInternet := TInternet():New()
oFTP      := TFTP():New( Alltrim(cFTPServidor), oInternet, cFTPUsuario,cFtpClave,nFTPPuerto,Iif(nFtpModo==1,.T.,.F.))  // nFtpModo (activo,pasivo) 
cFichero:= cFtpRuta+"/pruebaftp.txt"

If ! Empty( oFTP:hFTP )
  FtpSendFiles ({"Pruebaftp.txt"},{cFichero},oFtp)
  aFiles = oFTP:Directory( cFichero )
  If aScan(aFiles,{|aVal| At("pruebaftp.txt",aVal[1])<>0})<>0
    oFtp: DeleteFile( cFichero ) // Borro fichero de prueba
    MsgInfo("Conexi贸n Correcta.","Resultado")
  Endif
Endif

oInternet:End()
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Validar una Carpeta en Un Servidor de Internet
Posted: Sun Apr 02, 2017 09:55 PM

Excelente Angel !

Much铆simas Gracias..
Adapt茅 el c贸digo que me diste y funcion贸 perfecto. Una idea ingeniosa.

Agradecido

:D

"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions