FiveTech Software tech support forums

... requiero ese nivel de seguridad. Asi funcionaba correctamente: FtpSendFile(cFTP, cSource, cTarget, nVar41, nVar42, 14147 ) FUNCTION FtpSendFile( cFTPSite, cSource, cTarget, cUser, cPass, nBufSize ) LOCAL oInternet, oFTP DEFAULT cUser:="", cPass:="", nBufSize:=2000 IF EMPTY(cFtpSite) ...

... } ) MsgRun( "Verbinde mit Internet...", "Bitte warten",; { || oInternet := TInternet():New(),; oFTP := TFTP():New( cFTPSite, oInternet, "-------", "--------" ) } ) // name and password needed !!! http://www.pflegeplus.com/IMAGES/Fpttest1.jpg ...

... con el siguiente código que vi por aquí: //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP oInternet := TInternet():New() if Empty( ...

... file require now 20 second instead of the 2-3 with the previous xHarbour version. Any ideas ? Thanks in advance. ----- FUNCTION FtpEraseFile(cFtpSite,cFtpUser,cFtpPassword,cFtpFileToDelete) local cUrl,oFtp,aDirs local lTrace lTrace:=.f. cFtpUser:=charrepl("@",@cFtpUser,"+") ...

Así hago yo para subir archivos a un ftp //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", ...

... } ) //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", ...

... into problems. There are files out there, for sure as I see and manipulate via Explorer. 1. oInternet := TInternet():New() 2. oFTP := TFTP():New( cFTPSite, oInternet, userid, passwd ) 3. aFiles = oFTP:Directory( "*.*" ) aFiles[1][1] " " aFiles[1][2] 0 aFiles[1][3] 01/01/01 ...

... || oInternet := TInternet():New(),; If( Empty( oInternet:hSession ),MsgAlert( "Internet no disponible!" ),),; oFTP := TFTP():New( cFTPSite, oInternet,aUsuario,aPassword )}) My problem ow is to insert the possibility to set also a proxy before this function (msgrun() ) because some ...

... "ftp.Laquinta.com.pe",{"/httpdocs/data2009/chura1.zip"},{"c:\saraq1.zip"}) return nil function FTPSendFiles( cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize ...

I also tried adding the user/pass as below:

oFTP := TFTP():New( cFTPSite, oInternet, "user", "pass" )

:lol: HOLA A TODOS.... EN POCKET PC PUEDO UTILIZAR ESTE CLASE. Function Ftpconecta(conecta,cFtpsite,clog,cPass) local swcontinua:=.t. MsgRun("Conectando a: "+cftpsite) :cry: oInternet := TInternet():New() :cry: oFTP := TFTP():New(cFtpSite,oInternet,clog,cPass) if Empty( ...

... DE UN METER EN :oops: FW ES ASI PERO EN PC POCKET COMO LO UTILIZO.. DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia REDEFINE SAY oSay1 ID 110 OF oCopia REDEFINE SAY oSay2 ID 120 OF oCopia :cry: REDEFINE METER ...

... DE UN METER EN :oops: FW ES ASI PERO EN PC POCKET COMO LO UTILIZO.. DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia REDEFINE SAY oSay1 ID 110 OF oCopia REDEFINE SAY oSay2 ID 120 OF oCopia :cry: REDEFINE METER ...