FiveTech Software tech support forums

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

Julio, "Anystring" sirve. Es cualquier nombre que quieras usar. Prueba a usar MsgInfo() para ver que valores toman hInternet y hConnection: hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) MsgInfo( hInternet ) hConnect = INTERNETCONNECT( hInternet, ...

... 3 // // flags for FTP // #define INTERNET_FLAG_TRANSFER_ASCII 1 #define INTERNET_FLAG_TRANSFER_BINARY 2 FUNCTION MAIN() LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \\ donde dice Anystring hay que colocar algo hConnect ...

Best regards, Otto //? FTPGETFILE( hConnect, "Your remote file", "Your local file", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) //? FTPPUTFILE( hConnect, "Your local file", "Your remote file", 0, 0 ) IF len(aFiles) ...

... String, ByVal lpszNew As String) As Boolean Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal ...

... //-----------------------------------------------------------------------------------------// static function Connect() LOCAL hInternet, hConnect // I have tried "anystring" as well as the IP hInternet = INTERNETOPEN( "99.9.9.999", INTERNET_OPEN_TYPE_DIRECT, 0, 0, ...

... I am using - I dont get any errors but the file is never transferred. Any ideas greatfully accepted. static function Connect() LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) if hInternet == 0 MsgInfo('No Internet') endif hConnect ...

... Mobile phone running windows 6 - I am trying to setup FTP from the phone back to a windows server - using the sample code by Enrico but I cant get hConnect to return a value hConnect = INTERNETCONNECT( hInternet, "myIP",INTERNET_DEFAULT_FTP_PORT, "myUser", "myPass", ...

... ) oTmr:End() return nil //----------------------------------------------------------------------------// FUNC upload() LOCAL hInternet, hConnect local aInfo := {} LOCAL I := 0 aInfo := Directory( CurDir() + "\*.TXT" ) if Len( aInfo ) > 0 hGprs:=GprsConnect() hInternet = ...

Natter, how do you test that you have full access as you write in your first post? if FTPPUTFILE( hConnect, CurDir() +"\"+ aInfo[I,1], "/testinfo/STB1/"+aInfo[I,1], 0, 0 )=.t. I have some FTP servers where the name for example is test.info and the directory ...

Natter, have you tried with:

FTPPutFile( hConnect, cUpFile, cUpFile, 0, 0 )

best regards,
Otto

** FUNÇÕES DE FTP ********************************************************************************* FUNCTION ftpver(regis) LOCAL hInternet, hConnect, r, okk, hGprs, ligaok, kk, counter Local msg_login:="" Local msg_passs:="" // // File attributes // #define FILE_ATTRIBUTE_READONLY 1 #define ...

... // // flags for FTP // #define INTERNET_FLAG_TRANSFER_ASCII 1 #define INTERNET_FLAG_TRANSFER_BINARY 2 STATIC hLib FUNCTION MAIN() LOCAL hInternet, hConnect hLib = LOADLIB32( "wininet.dll" ) hInternet = INETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) hConnect = INETCONNECT( hInternet, ...

... to needful FTP direcoty : hLib := LOADLIB32( "WinInet.dll" ) hInternet := InetOpen( cFsrv, 1, 0, 0, 0 ) hConnect := InetConnect( hInternet, cFsrv, 0, cFusr, cFpsw, 1, 0, 0 ) How to get an array of files in FTP directory ? It's needful to get ...

... 3 // // flags for FTP // #define INTERNET_FLAG_TRANSFER_ASCII 1 #define INTERNET_FLAG_TRANSFER_BINARY 2 FUNCTION MAIN() LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) msginfo(hInternet) hConnect = INTERNETCONNECT( hInternet, "servidor ...