Discussion :

[Delbeke]

Vu le franc succès de mon ocx DiEval , je vous propose mon Client Ftp
Il est basé sur le controle WinSock, et en plus de commandes de base de Ftp, il expose des meta commandes regroupant plusieurs commandes de base pour faciliter les dialogues communs.

Je vous laisse eplucher le code pour voir les differentes commandes et meta-commandes .

J'espère que cela vous plaira davantage que DiEval


OCX DiFtpCli6.zip

[Phifi]

Merci pour cet objet "tout-cuit". Je ne l'ai pas encore récupéré mais comme le transfert FTP via VB6 sera à l'honneur d'un des mes dév dans les prochains mois, je ne manquerai pas de le tester en bonne et due forme !

[Delbeke]

Aie aie aie, je suis un grand imbecile, j'ai uploadé une tres vielle version qui est buggée a mort
je viens de corriger en uploadant la derniere version

Désolé pour ceux qui avaient déjà essayé le code. la nouvelle version n'est pas compatible avec la vielle, il faut de-enregister avant, télécharger et réenregister

je vous presentes toutes mes excuses

Dans cette version vous avez un client ftp basé sur le composant, qui ressemble un peu a Ws_Ftp pour ceux qui connaissent

Je pars quelques semaines en vacances, je ne pourrais pas répondre tout de suite aux questions que vous pourriez poser.
Amusez vous bien

[Delbeke]

nouvelle version du composant
Corrections de bugs divers et variés

[fabrice_x]

nouvelle version du composant
Corrections de bugs divers et variés

Très bon boulot. Bravo.

[Delbeke]

Merci

[jmfmarques]

Beau travail, DelBeke,

Merci... (à tître personnel).

[ThierryAIM]

Intégré dans la prochaine MAJ de la page Sources VB

Merci

[enibris]

une erreur dans la fontion, sinon pas de progression en pourcentage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function Ftp_STOR(RemoteFileName As String) As Boolean
 
Pcent = Fix(Send / FileSize) * 100 -> Pcent = Fix(Send * 100 / FileSize)

J'ai des pb de transfert de fichier ftp.
J'ai du wireless avec un debit de 128k.Lors de transfert de fichier lorque ma connexion est instable lors de mauvais temps, mon prog freeze.

Avez vous une solution a ce pb ?

Merci de votre aide.

[ThierryAIM]

Lors de transfert de fichier lorque ma connexion est instable lors de mauvais temps, mon prog freeze.

Attends qu'il fasse grand soleil et sans vent

[enibris]

@ ThierryAIM

[Delbeke]

Calcul progression Corrigé

Comme j'utilise le composant winsock livré avec vb, je n'ai aucun controle sur les couches inférieures tcp-ip
Donc comme disais thierry, attands qu'il fasse beau

[SfJ5Rpw8]

Proposition d'ajout de fonctionnalités...

(en fait je prêche pour ma paroisse, c'est une fonctionnalité dont j'aurai besoin....)

Ajout de la gestion des attributs des fichiers ( et répertoire...)

une fonction supplémentaire du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Function Ftp_CHMOD(RemoteFileName As String, iMode As Integer) As Boolean
  'delete a file
  SendProtocol "SITE CHMOD " & iMode & " " & RemoteFileName
  If FtpCode <> 250 Then
    Ftp_CHMOD = False
  Else
    Ftp_CHMOD = True
  End If
End Function

puis peu-être l'affichage de ces droits de la forme rwxrwxrwx ... lors du "dir"...

sinon encore pour cet activeX qui me facilite la vie pour un petit projet perso...

[Delbeke]

Je ne connaissais pas cette commande FTP ( SITE )
j'ai trouvé çà comme definition

Cette commande (site parameters) permet au serveur de proposer des services spécifiques, non définis dans le protocole FTP

Ce qui veut tout et rien dire

je vais faire un peu de recherches, et essayer d'enfaire une implantation complete, mais il me semble bien que c'est surtout du coté du serveur que ca devrait se passer, enfin il me semble.

je vais voir, d'abord apprendre, programmer ensuite. c'est ma devise

[SfJ5Rpw8]

dans "ma version" de ton activeX j'ai rajouté la fonction ftp_Chmod... qui fonctionne... pour ce qui est de la commande à exécuter .. j'ai regardé le "log" des commandes effectuées par filezilla..., j'ai pas de doc à te soumettre mais je vais chercher un peu...

[Edit] en delphi : ici

[Delbeke]

Je te remercie pour ton aide

Je viens de trouver çà

SITE PARAMETERS
Cette commande est utilisée par le serveur pour proposer des services
spécifiques à ce système qui sont indispensables pour le transfert de fichiers
mais insuffisamment universels pour justifier l'attribution d'une commande dans
le protocole. La nature de ces services, et leur syntaxe devra être fournie par
chaque service les utilisant, en réponse d'une commande HELP SITE.

Ca m'avance pas beaucoup plus çà serait meme l'inverse

J'ai vu que certains clients FTP contournait la difficulté en utilisant la commande QUOTE (qui permet de lancer une chaine de commande arbitraire)

Je vais deja commencer par implementer QUOTE en attendant ton envoi.

[SfJ5Rpw8]

ben pour le moment j'ai pas trouvé grand chose de plus... la commande HELP SITE te permet de savoir si CHMOD est accessible sur le serveur....par exemple sur le serveur ftpperso.free.fr... où ni la commande HELP, ni la commande CHMOD ne sont disponible ... ces deux commandes renvoient une erreur 500...

Commande : HELP SITE
Réponse : 500 'HELP': command unrecognized.

et d'ailleurs je ne sais pas changer les droits sur un ce serveur ftpperso.free.fr... (filezilla nous affiche aussi une erreur 500)

Commande : SITE CHMOD 666 index.html
Réponse : 500 'SITE': command unrecognized.

[Delbeke]

Oui, ce n'est pas une commande standardisée, j'avais essayé ce serveur aussi
De même pour afficher les attributs, il faut analyser les lignes retournées par le serveur FTP quand on lui envoie une commande LIST, le seul problème, pas de normalisation, donc le mieux que je puisse faire, c'est pour chaque fichier retourné, mémoriser la ligne complete, les attributs seront dedans, quelquepart, selon le serveur ftp contacté

LIST (LIST) CATALOGUE DU REPERTOIRE COURANT
Cette commande provoque l'émission par le serveur d'une liste de fichiers
au DTP passif. Si le chemin mentionné spécifie un répertoire ou tout autre
groupe de fichiers, le serveur répondra par une liste des fichiers dans ce
répertoire ou ce groupe. Si le chemin spécifie un fichier normal, alors les
informations système relatives à ce fichier seront renvoyées. Une absence
d'argument indique par défaut le répertoire courant. La réponse est transférée
via le canal de données pour les types ASCII ou EBCDIC. (l'utilisateur doit
s'assurer que le type est effectivement ASCII ou EBCDIC). Comme les
informations relatives à un fichier peuvent varier grandement en forme et
présentation entre divers systèmes, celles-ci seront généralement peu
exploitable par un automate. Elles sont cependant fort utiles pour un utilisateur
humain.

[Delbeke]

Bien ,
J'ai ajouté le descritif complet du fichier , retourné par le serveur FTP. disponible dans la collection RemotesFiles , exposée par le composant. L'exmple d'utilisation reflete le changement en affichant une colonne supplémentaire dans la liste des fichiers distants.
J'ai ajouté la commande QUOTE sous la forme Ftp-QUOTE et Met_QUOTE

Pour utiliser ta fonction hors norme SITE, tu peux donc maintenant faire QUOTE SITE CHMOD 666 MON FICHIER, par exemple.
Pour materialiser cette nouvelle fonctionalité, le programme exemple affiche une nouvelle zone permettant la saisie de toute commande libre, cette zone apparait dès que l'on est connecté.

Voila, j'espere ne pas avoir introduit de bug

pour télécharger la nouvelle version :


OCX DiFtpCli6.zip

[SfJ5Rpw8]