Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Having FTP function in VFP program
Message
De
02/09/1998 11:08:59
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, États-Unis
 
 
À
17/08/1998 21:11:27
Yin Min Chen
Nec Home Electronics(M) Sdn Bhd
Sungai Petani, Malaisie
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Divers
Thread ID:
00125500
Message ID:
00132384
Vues:
43
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 ...
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform