DLL POUR CONNEXION FTP

Commentaire de aminert2100 le 26/08/2003 12:58:30

c koi hConnectHandle ?

Commentaire de aminert2100 le 07/09/2003 15:29:40

Merci , mais comment utiliser  hConnectHandle dans u projet externe

Commentaire de jack le 15/11/2003 16:52:44 administrateur CS

>>aminert2100 : le projet de démo est là pour te répondre. Il utilise la DLL comme une DLL externe
>>Mercury : Oui, il suffit d'intégrer à ton projet la classe et le module et de dimensionner un objet Dim MonFTP as new clsTemplateFTP

Commentaire de azehaf le 03/03/2005 13:18:45

Excellent rien a dire!

Commentaire de jack le 04/04/2005 19:13:26 administrateur CS

Salut NeoMetaller
D'apès ce que j'ai pu trouvé sur cette erreur, il smble que cela vienne d'une incompatibilité de langue.
Est ce que ton Excel (ou autre) est un US ?
Car dans ce cas, la DLL compilée ici en FR peut poser problème.
Deux solutions :
- Recompiler la DLL avec ton VB6 US
- Utiliser les classes/modules de la DLL directement dans ton VBA : Voir réponse à Mercury ci-dessus + dans l'éditeur de macro de VBA, dans la fenêtre qui liste les feuilles : Click-droit Insertion Module puis Module de Classe

Commentaire de jack le 24/04/2005 00:18:30 administrateur CS

Devine poursoui j'ai  fais un Zip !

Commentaire de sarl_adc le 17/08/2005 17:20:10

Merci pour ta source.

J'ai récupéré que quelques petits bouts pour mes besoins mais le tout a l'air pas mal.

Par contre niveau interface de ton client FTP, y'a quelques automatisations que tu pourrais faire facilement si tu devais t'en servir, du genre éviter de rentrer le nom des répertoires à la main lorsque tu navigues sur le serveur, etc...

Ca mérite quand même une super note :-)

Commentaire de ozar le 14/05/2009 16:37:19

Bonjour,

J'ai corrigé quelques erreurs concernant deux méthodes :
Connect => connexion par défaut en mode actif (permet ou non au client de gérer le port de connexion)
GetFile => supression d'un flag et oblige l'API à retélécharger le fichier si déjà présent dans le cache)

Voici le code modifié :

'Connect To Server
    If hOpen <> 0 Then
        iFlags = INTERNET_FLAG_EXISTING_CONNECT Or IIf(bOpenPassive, INTERNET_FLAG_PASSIVE, 0)
        
        iConnHandle = InternetConnect(hOpen, _
                                      sServerName, _
                                      INTERNET_INVALID_PORT_NUMBER, _
                                      sUserName, _
                                      sPassWord, _
                                      INTERNET_SERVICE_FTP, _
                                      iFlags, &H0)

Dans la méthode GetFile :

bRet = FtpGetFile(hConnectHandle, _
                      sSourceFileWithPath, _
                      sDestFileWithPath, _
                      False, _
                      FILE_ATTRIBUTE_NORMAL, _
                      lTransferType Or INTERNET_FLAG_RELOAD, _
                      &H0)

Commentaire de ozar le 15/05/2009 09:46:56

En effet, j'avais omis la partie déclarative de la méthode connect qui est la suivante :

Public Function Connect(ByVal sServerName As String, _
                        ByVal sUserName As String, _
                        ByVal sPassWord As String, _
                        Optional ByVal bOpenPassive As Boolean = False) As Long

Concernant la méthode getFile, le flag INTERNET_FLAG_RESYNCHRONIZE n'était pas correcte puisqu'il s'agit de la gestion des attributs du fichier, c'est pourquoi il vaut mieux utiliser le flag FILE_ATTRIBUTE_NORMAL.

Voilà c'est tout, merci beaucoup pour cette DLL vraiment très pratique (à utiliser sans modération ^^)