1030071002
asked on
InternetConnectA returning 0
trying to build a ftp function put and get in powerbuilder 10.5
function uLong InternetOpenA (string lpszAgent, ulong dwAccessType, string lpszProxyName, string lpszProxyBypass, ulong dwFlags) library "wininet.dll"
function ulong InternetConnectA (ulong hInternet, string lpszServerName, ulong nServerPort, string lpszUsername, string lpszPassword, ulong dwService, ulong dwFlags,ulong dwContext) library "wininet.dll"
function boolean InternetCloseHandle (ulong hInternet) library "wininet.dll"
function boolean FtpSetCurrentDirectoryA (ulong hConnect, string lpszDirectory) library "wininet.dll"
function boolean FtpGetFileA (ulong hConnect, string lpszRemoteFile, string lpszNewFile, boolean fFailIfExists, ulong dwFlagsAndAttributes, ulong dwFlags, ulong dwContext) library "wininet.dll"
function boolean FtpPutFileA (ulong hConnect, string lpszLocalFile, string lpszRemoteFile, ulong dwFlags, ulong dwContext) library "wininet.dll"
ftp_send('ftp.gmgtranswest.com',21,'trnswst','tw0421','H:\Inetpub\ftproot\Test\consignee.xml','C:\TEMP\consignee.xml')
SetNull(NuL)
//ll_hret = InternetOpenA ('GMG_FTP', 0, '', '10.0.0.58',0)
ll_hret = InternetOpenA ('GMG_FTP', 1, Nul,NuL,1)
if ll_hret = 0 or isnull (ll_hret) then
messagebox ('!', 'WinInet.Dll!', stopsign!)
return "fail"
end if
ll_hftp = InternetConnectA(ll_hret, gmg_ftpserver, gmg_ftploginport, gmg_ftploginuser, gmg_ftploginpass, 1, 0, 2)
if ll_hftp=0 then
messagebox ('Error','Fail To Connect',stopsign!)
InternetCloseHandle (ll_hret)
return "fail"
end if
if not FtpPutFileA (ll_hftp, gmg_source_filename, gmg_target_filename, 1,0) then
messagebox ('Error...', 'Fail to Send file ')
Else
InternetCloseHandle (ll_hret)
InternetCloseHandle (ll_hftp)
return "File Send"
End if
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
You have funcky 6.0? It is a third party software and not normally included with Power Builder.
ASKER
I know I download it try to use and got no where using pb 10.5
Hmm it works for me. What is happening?
I do not work for Funcky or get paid in any way to recommend this product. I am merely stating it as a resource as I use it personally in my solutions.
Once you install it and register the product it is simple to use.
Global variables
OLEOBJECT FTP
Application Object
FTP = CreateObject("FUNCkyFTP")
FTP.CreateFTP( [Server ] [, Username ] [, Password ] [, Port ] [, Proxy ] )
IF FTP.STATUS = 0 THEN
//CONNECTION GOOD
FTP.ChangeDir("\wherever") //change directory if needed feature
FTP.Get("Source File","Destination Location",0)
END IF