Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Having FTP function in VFP program
Message
From
02/09/1998 11:08:59
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, United States
 
 
To
17/08/1998 21:11:27
Yin Min Chen
Nec Home Electronics(M) Sdn Bhd
Sungai Petani, Malaysia
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00125500
Message ID:
00132384
Views:
48
When I put the following code in a click event of button I received a error 1923. I had the same code you did in the init of the form, and RASDIAL call
like oIP.RasDial('mydun'). You wouldn't know what this means would you?

thanks

>Aaron Chu,
> I have tried it, no problem. Below is the sample code which may help u to solve ur problem(this code is in one of the command button in my form).
>
>o.cFTPServer=AllTrim(thisform.txtIPAddress.Value)
>o.cFTPSource=AllTrim(thisform.txtSource.Value)
>o.cFTPTarget=AllTrim(thisform.txtTarget.Value)
>*o.nBinary=1
>o.cUsername=AllTrim(thisform.txtUser.Value)
>o.cPassword=AllTrim(thisform.txtPassword.Value)
>
>nError=-1
>nError=o.FTPSendFile()
>MessageBox(str(nError), 0)
>if nError=0
> MessageBox("Ok", 0)
>else
> DO CASE && Begins loop
>
> CASE nError=12003
> MessageBox("File not found!", 0)
>
> OTHERWISE
> MessageBox("General Fail.", 0)
>
> ENDCASE && Ends loop
>
>endif
>
>More information for u, you must also type the following command in the Init Event in the form :
>
>SET PROCEDURE TO c:\chen\temp\westwind\wwUtils ADDITIVE
>SET CLASSLIB TO c:\chen\temp\westwind\wwIPStuff ADDITIVE
>
>PUBLIC o, nError
>
>o=createobject("wwIPStuff")
>
>
>Hope this will help you.
Some days it's not worth chewing through the leather straps ...
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform