Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FTP Controls
Message
De
01/08/1996 22:48:32
 
 
À
01/08/1996 22:45:04
Paul Baker
Pacific Environmental Services, Inc.
Rtp, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
Divers
Thread ID:
00004940
Message ID:
00004963
Vues:
33
>What's the next step? None of the documentation that came with Mabry's files talk of how to use the control. TIA for your infinite wisdom.

Put a command button on the form and this code in the Click() method. Play with it and modify it to fit your own needs.

IF NOT ThisForm.Ftp.Logon(lcIp,lcUserName,lcPassword)
WAIT WINDOW 'Unable to login: '+STR(ThisForm.Ftp.ErrorNumber)
RETURN
ENDIF
WAIT WINDOW 'Login done, transfer in progress...' NOWAIT
ThisForm.Timer.Enabled=.T.
=Thisform.Ftp.SendFile(2,lcSourceFileName,lcDestinationFileName)
ThisForm.Timer.Enabled=.F.
IF ThisForm.Ftp.ErrorNumber>0
WAIT WINDOW 'Unable to transfer: '+STR(ThisForm.Ftp.ErrorNumber)
ENDIF
WAIT WINDOW 'Transfer completed' NOWAIT
IF NOT ThisForm.Ftp.Logoff()
WAIT WINDOW 'Unable to logoff'
ENDIF
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform