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:
01512951
Views:
49
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
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform