FiveTech Software tech support forums

... ) MsgAlert( "Internet session not available!" ) ELSE oFTP := TFTP():New( cFTPSite, oInternet, cUser, cPass ) IF Empty( oFTP:hFTP ) MsgStop( "Cannot connect to "+cFtpSite ) oInternet:End() return .f. ENDIF ENDIF SendFiles( cSource, cTarget, nBufSize, oFTP ) oInternet:End() ...

... "Conectando al Servidor...", "Please, wait",{ ||oFTP := TFTP():New( cServer, oInternet,cUser,cpassword )}) If !Empty( oFTP:hFTP ) aFiles := oFtp:Directory( rRuta+"/*.*" ) AEval( aFiles, { | aFile | comprueba( aFile,@mFile ) } ) If Len( mFile )>1 lReturn := .T. ...

... memory. I ammended oFtp:directory() function to retrieve the filename up to the null character only. method Directory( cMask ) CLASS TFtp    local hFTPDir, aFiles := {}    local oWin32FindData, cBuffer    DEFAULT cMask := "*.*"    STRUCT oWin32FindData       MEMBER nFileAttributes  AS ...

... := TInternet():New() local oFtp := TFtp():New( "speedtest.tele2.net", oInternet,"anonymous" ) local aFiles if !Empty( oFtp:hFTP ) aFiles := oFtp:Directory( "*.*" ) MsgInfo( Len(aFiles),"aFiles" ) AEval( aFiles, { | aFile | MsgInfo( aFile[ 4 ], aFile[ ...

... oFTP :=TFTP():New('www.miftp.com.mx', oInternet, cUser:='Joel', cPassword:='123456', lFTPPAsivo:=.f., nPuerto:=21) if empty(oFTP:hFTP) oInternet:End() retu .f. endi cFileOrigen:='c:\respaldo\Archivo.txt' hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile ...

... FtpSetCurrentDirectory(). My question is how do you know how to write the "DLL32" declarations. DLL32 Function FtpSetCurrentlyDirectory( hFtp AS LONG, cDirName AS LPSTR ) AS BOOL PASCAL FROM " FtpSetCurrentDirecotry " LIB iDLL How do you determine what goes in the FROM parameter, ...

... FtpSetCurrentDirectory(). My question is how do you know how to write the "DLL32" declarations. DLL32 Function FtpSetCurrentlyDirectory( hFtp AS LONG, cDirName AS LPSTR ) AS BOOL PASCAL FROM " FtpSetCurrentDirecotry " LIB iDLL How do you determine what goes in the FROM parameter, ...

... MsgAlert( "Sin Conexión a Internet!" ) else oFTP := TFTP():New( cFTPSite, oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp)) if Empty( oFTP:hFTP ) MsgStop( "Imposible Conectarse al Sito FTP" ) else SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) endif endif oInternet:End() ...

... oInternet := TInternet():New() oFTP := TFTP():New( "ftp.orgfree.com", oInternet, "user", "passw" ) IF Empty( oFtp:hFtp) MsgAlert("Não foi possível conectar ao FTP","Atenção") Return .f. Endif aFiles = oFTP:Directory( "*.*" ) In some ...

... TInternet():New() local oFTP := TFTP():New( "192.168.2.95", oInternet, "usr", "psw" ) local aFiles if ! Empty( oFTP:hFTP ) USE Customer Browse() USE etc... but I get this error: Error description: (DOS Error 2) DBFNTX/1001 Open error: Customer.dbf can you help me? ...

... "Sin Conexión a Internet!" ),),; oFTP := TFTP():New( cFTPSite, oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp) ) } ) if Empty( oFTP:hFTP ) MsgStop( "Imposible Conectarse al Sito FTP!" ) return nil endif SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) oInternet:End() ...

...      := TFTP():New(  "207.46.133.140", oInternet ) // Microsoft FTP  Suddenly today, this code returns "oFtp:Hftp is null" I didn't change any part of code for a very long time, it works perfect. No need to change enything. Today I run the program and ...

... "Sin Conexión a Internet!" ),),; oFTP := TFTP():New( cFTPSite, oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp) ) } ) if Empty( oFTP:hFTP ) MsgStop( "Imposible Conectarse al Sito FTP!" ) return nil endif SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) oInternet:End() ...

Comprueba si te funciona esto:

DLL32 FUNCTION FtpDeleteFile( hFTP AS LONG, cFileName AS LPSTR ) AS BOOL PASCAL ;
FROM "FtpDeleteFileA" LIB hWinINet

... site? The way i'm connecting to the ftp site is: oInternet := TInternet():New() oFTP := TFTP():New( cFtp, oInternet, cUserName, cPassWord ) oFTP:hFTP is empty Any ideas? Thanks in advance Pete