FiveTech Software tech support forums

... server, userid and password to do a test here. Enrico I sent in your email a prg with the data to connect in the ftp. Returns .F. when you run the FTPPutFile command. Thank you for your help.

Hi Tim, Can't you use ftpgetfile and ftpputfile as shown in my example? Just out of interest: what do you want to send. For example, I create reports and deliver them via email. So far, I have always sent the data with ftp to a server and from ...

... AS LONG, nFlagsAndAttribs AS DWORD, nFlags AS DWORD, @nContext AS PTR ) AS BOOL; PASCAL FROM "FtpGetFileA" LIB hLib DLL32 FUNCTION FTPPUTFILE( hConnect AS LONG, cLocalFile AS LPSTR, cNewRemoteFile AS LPSTR, nFlags AS DWORD, @nContext AS PTR ) AS BOOL; PASCAL FROM "FtpPutFileA" ...

... FWH that must do FTP processes. It works perfectly. I am using the .dll WININET and calling the functions: INTERNETOPEN INETCLOSEHANDLE FTPGETFILE FTPPUTFILE INTERNETCONNECT However, when I build using Harbour / MSVC / FWH, it appears to not recognize the WININET.dll because it gives me unidentified ...

... nItem<=len( aFileADW ) ) cADWFile :=oADWin:cDrive+oADWin:cFolder+'\'+aFileADW[ nItem, 1 ] cFTPFile :=cFTPFldr+'/'+aFileADW[ nItem, 1 ] lFTPOk :=FTPPUTFILE( hConnect, cADWFile, cFTPFile, 0, 0 ) nCount :=UpdateMeter( oMeter, nCount, nRefresh ) lFTPError :=( .not. lFTPOk ) bMsg :={ || MsgAlert( ...

Enrico. Thanks for your response, as always your help is very usefull. Problem is parameters are correct, in fact only in very few of some tests the file was saved ok, but steel having same problem again in subsecuent tests with same parameters. Always, iclusive when file was saved ok, time is very ...

Please do your experiments using FTP console command. When it will work use the correct parameters you've found.

EMG

... via GPRS basado en el ejemplo de Enrico Maria Giordano, y que trabajaba si problemas, ahora presenta el siguietne problema: Al utilizar la funcion FTPPUTFILE, envia el archivo al servidor, se cuelga como 30 segundos, y no regresa ningun error, a verificar el servidor, el archivo enviado tiene una ...

... User IDs, Filenames, etc.. But now, Same program, without changes, only changing parameters like IP, userid, filenames, etc. began to fail: FAIL: FTPPUTFILE Begin Transfer File, but after 30 seconds, the file is saved in FTP server, but filelen is 0 bytes. Possible problems: - SERVER. Original ...

... cUser, cPass, nService, 0, 0 ) IF hconnect == 0 ALERT ("ERROR EN CONEXION.",,"Descarga","X",,.t.) ELSE TRY lOk := FTPPUTFILE( hConnect, cOrigen, cDestino, 0, 0 ) alert (lOk) CATCH ALERT ("Error FTP.",,"Descarga","X",,.t.) END ENDIF ...

... cFtpAddress, 21, cUser, cPass, 1, 0, 0 )    IF hconnect == 0       alert ("ERROR EN CONEXION.")    ELSE       TRY          lOk := FTPPUTFILE( hConnect, cOrigen, cDestino, 0, 0 )          alert (lOk)       CATCH          alert ("Error FTP.")       END    ENDIF INTERNETCLOSEHANDLE( ...

... AS DWORD, nFlags AS DWORD, @nContext AS PTR ) AS BOOL; PASCAL FROM "FtpGetFileA" LIB "wininet.dll" DLL32 FUNCTION FTPPUTFILE( hConnect AS LONG, cLocalFile AS LPSTR, cNewRemoteFile AS LPSTR, nFlags AS DWORD, @nContext AS PTR ) AS BOOL; PASCAL FROM "FtpPutFileA" ...

Hi Antonio Here is the stripped down list, for clarity purpose the irrelevant entries are removed. ---------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------...

Esta es la sintaxis usada:
// FTPPUTFILE( hConnect, "local file name", "remote file name", 0, 0 )

/* Ejemplo */

Code: Select all  Expand view

FTPPUTFILE( hConnect, "c:\temp_dir\ftp1.zip",  "/anon_ftp/TEST/FTP01.ZIP",  0,  0 )
 

Saludos

George

... "FTP://LAPERCHA.DYNDNS.ORG", INTERNET_INVALID_PORT_NUMBER, "usuario", "clave", INTERNET_SERVICE_FTP, 0, 0 ) ? FTPPUTFILE( hConnect, "envia.txt", "envia.txt", 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL ...