Is there a way in Harbour + Fivewin to upload a file via FTP using the CreatObject() Function?
Currently we are doing something kind of like dynamically building a batch file, executing it, and reading the response from a piped file.
So we have to loop and wait for the file system to release the response file to check for errors.
I was hoping for a better way.
Thanks,
Byron ...
Where do I find tIpClient() I see it on this board, but I do not find it in the source directory of FiveWin, is this Harbour, xHarbour?
Does Fivewin have an FTP client that can upload a file via FTP that is RFC compliant?
Thanks,
Byron ...
PRIVATE iDLL := LoadLibrary( "wininet.dll" )
*************************************************
FUNCTION sendfile
LOCAL mCLinkFt := "ftp.yoursite.com"
LOCAL mCLinkUn := "username"
LOCAL mCLinkPw := "password"
// Establish connection and transfer data
hInternet := InternetOpen( "ABC",1,0,0,0 )
hconnect := InterNetConnect( hInternet, mCLinkFt, 0, mCLinkUn, mCLinkPw, 1, INTERNET_FLAG_PASSIVE, 0 )
IF hconnect == 0
IF FTPPutFile( hConnect, cUpFile, cNameFile, 0, 0 )
MsgInfo( "Uploaded" )
ELSE
MsgInfo( "Failed" )
ENDIF
ENDIF
// Close connections and release library
INETCLOSEHANDLE( hConnect )
INETCLOSEHANDLE( hInternet )
RETURN NIL
**************************************************
DLL32 FUNCTION InternetOpen( cAgent AS LPSTR, nAccessType AS DWORD, cProxyName AS LPSTR, cProxyBypass AS LPSTR, nFlags ;
AS DWORD ) AS LONG PASCAL FROM "InternetOpenA" LIB iDLL
DLL32 FUNCTION INETCLOSEHANDLE( hInternet AS LONG ) AS BOOL;
PASCAL FROM "InternetCloseHandle" LIB iDLL
DLL32 FUNCTION FTPGETFILE( hConnect AS LONG, cRemoteFile AS LPSTR, cNewFile AS LPSTR, nFailIfExists AS LONG, ;
nFlagsAndAttribs AS DWORD, nFlags AS DWORD, @nContext AS PTR ) AS BOOL PASCAL FROM "FtpGetFileA" LIB iDLL
DLL32 FUNCTION FtpPutFile( hFTP AS LONG, cFileName AS LPSTR, cDestFile AS LPSTR,;
n1 AS LONG, n2 AS LONG ) AS BOOL PASCAL ;
FROM "FtpPutFileA" LIB iDLL
DLL32 FUNCTION InternetConnect( hSession AS LONG, cHost AS LPSTR, nPort AS LONG,;
cUserName AS LPSTR, cPassword AS LPSTR, n4 AS LONG, n5 AS LONG,;
n6 AS LONG ) AS LONG PASCAL ;
FROM "InternetConnectA" LIB iDLLThank you Tim, I have downloaded iDll.dll and I am going to give it a shot.
iDll is just the handle for the wininet.dll provided in Windows. It should be visible in any system where WIndows in installed.
byron.hopp wrote:I am attempting to use the code posted by Tim for FTP. However I need an additional function which seems to be available in WinINet.dll. The function I need is 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, FtpSetCurrentDirectorya, something else?
Thank you,
Byron ...
FtpSetCurrentDirectoryAThanks EMG, the "A" is the trick. Got the whole thang working now.
Byron ...