Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I need a help with ftp
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01512871
Message ID:
01512968
Views:
59
what a mess !! :(
Do you know any already made class ?
Thanks anyway Martina
Alessio

>http://support.microsoft.com/kb/166961
>
>
>>What if the proxy was a CERN ?
>>
>>>The big problem is... I have not proxy server for testing... :-(
>>>
>>>
>>>MartinaJ
>>>
>>>>Nothing to do :(
>>>>the right settings seems to be CProxyProtoco = 'http' and cProxyHost = zProxyIp
>>>>
>>>>Anyway I'm quite sure there's a bug in the code as I cannot get any Handle unless i set my new nInternetService property to INTERNET_SERVICE_HTTP
>>>>
>>>>Actually I can't call successfully the getFtpCurrentDir function (but it work unde my PC which is not under proxy :( )
>>>>
>>>>>Hmm,
>>>>>
>>>>>- lnConnect_Handle is zero
>>>>>- GetLastError() is zero
>>>>>
>>>>>- try set
>>>>> this.ftp.cProxyProtocol = "http"
>>>>> this.ftp.cProxyHost = "http://"+zProxyIp && 10.4.50.10
>>>>>
>>>>>
>>>>>The proxy is CERN type?
>>>>>
>>>>>MartinaJ
>>>>>
>>>>>>that's the problem :) it seems to be the errorcode = 0 and no errormessage :(
>>>>>>
>>>>>>>And ErrorCode and ErrorMsg are?
>>>>>>>
>>>>>>>MartinaJ
>>>>>>>
>>>>>>>>thanks for your help.
>>>>>>>>I put some messages inside the ftp class and discovered that the problem is in the call at the proc "OpenFTPConnection" where i cannot get a Handle from the internetConnect.
>>>>>>>>I tried to retrieve the error but I can't :
>>>>>>>>
>>>>>>>>   This.GetExtendedError()
>>>>>>>>      IF lnConnect_Handle = 0
>>>>>>>>	=MessageBox(Transform(this.GetExtendedErrorCode())+Chr(13)+Transform(this.GetExtendedErrorMsg()),0,"1")
>>>>>>>>         RETURN .F.
>>>>>>>>      ENDIF
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>>What error you get after calling method OpenInternet()?
>>>>>>>>>?this.Ftp.GetExtendedErrorCode(),this.Ftp.GetExtendedErrorMsg()
>>>>>>>>>
>>>>>>>>>MartinaJ
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>>here is lines of code :
>>>>>>>>>>
>>>>>>>>>>If !(Type("this.ftp") == 'O' and !IsNull(this.ftp))
>>>>>>>>>>	this.Ftp = createobject('ftp_service')
>>>>>>>>>>	this.ftp.cProxyPort = zProxyPort && 3128
>>>>>>>>>>	this.ftp.cProxyHost	= zProxyIp && 10.4.50.10
>>>>>>>>>>	If !Empty(zProxyip)
>>>>>>>>>>		this.ftp.cProxyProtocol = zProxyProtocol  && "http"
>>>>>>>>>>	Else
>>>>>>>>>>		this.ftp.cproxyProtocol = ''	
>>>>>>>>>>	EndIf 	
>>>>>>>>>>EndIf 
>>>>>>>>>>
>>>>>>>>>>this.statoConn = this.Ftp.OpenInternet(zUserFtp, zPwFtp, zFtpAddress, zFtpPort)
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>>How you set cProxy???? properties on FTP object?
>>>>>>>>>>>
>>>>>>>>>>>MartinaJ
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>>I tried but without success :(
>>>>>>>>>>>>
>>>>>>>>>>>>I installed a filezilla ftp client on that pc and it works with these settings :
>>>>>>>>>>>>
>>>>>>>>>>>>proxy FTP = none
>>>>>>>>>>>>
>>>>>>>>>>>>Generic Proxy : connection method = http/1.1
>>>>>>>>>>>> host proxy = 10.4.50.10
>>>>>>>>>>>> proxy port = 3128
>>>>>>>>>>>>
>>>>>>>>>>>>What should I do to make my program working ?
>>>>>>>>>>>>
>>>>>>>>>>>>thanks again
>>>>>>>>>>>>
>>>>>>>>>>>>
>>>>>>>>>>>>>Hi Alessio,
>>>>>>>>>>>>>
>>>>>>>>>>>>>Check cProxyProtocol property in help...
>>>>>>>>>>>>>
>>>>>>>>>>>>>MartinaJ
>>>>>>>>>>>>>
>>>>>>>>>>>>>>Hi Michel, sorry for disturbing you, but I don't know what to do for connecting to a ftp server from a under proxy client.
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>I'm using the Robert Abram ftp service V.2.0.9 and it works fine without proxy but I don't know what to do for bypassing the proxy
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>actually I call the openinternet function in this way
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>	this.Ftp = createobject('ftp_service')
>>>>>>>>>>>>>>	this.ftp.cProxyPort      = zProxyPort  && 3128
>>>>>>>>>>>>>>	this.ftp.cProxyHost	= zProxyIp   &&  10.4.50.10     
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>       this.connStatus = this.Ftp.OpenInternet(zUserFtp, zPwFtp, zFtpAddress, zFtpPort)
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>well, i can't connect
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>what should I do to make it working ?
>>>>>>>>>>>>>>
>>>>>>>>>>>>>>Thank you so much
>>>>>>>>>>>>>>Alessio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform