Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ce problème est majeur pour le fonctionnement de la messagerie, j'y ai un peu réfléchi et je pense qu'on peut y remédier en gardant l'idée des 5 derniers messages en ligne mais en les stockant dans 5 fichiers différents. Quand un client ajoute un message il upload un fichier et supprime le dernier des 5. A chaque actualisation des messages en ligne (avec le timer) les 5 fichiers sont téléchargés. Il n'est donc plus nécessaire d'actualiser lors d'un envoie de nouveau fichier et le processus d'envoie d'un nouveau message (upload) peut être complètement indépendant de la lecture des messages (download)...
ou alors à faire une table de correspondance entre GUID et nom intelligible.
Pour pouvoir l'appliquer sur un autre projet est-ce que tu pourrais m'indiquer quelles classes récupérer dans un nouveau projet pour faire marcher ces fonctions ?
J'ai téléchargé la source telle quelle, je l'ai lancé avec ma version VB 2008 qui l'a convertie sans générer d'erreur. Je lance l'exécution de cette source (en mode debug) et une fois que la fenêtre est chargée à l'écran, je rentre mes identifiants et je clique sur "OK". Là ça plante et ça me propose d'envoyer un rapport d'erreur.
Cela ne m'était pas venu à l'idée de mettre ce format (les clients FTP ainsi que les autres fonctions demandaient le format hostname).
Ce sujet est donc théoriquement clos puisque j'ai ma réponse et plus encore. Je ne connais pas bien le site, souhaites-tu que je valide tes réponses en appuyant sur "Réponse acceptée" ?
Désolé de revenir sur de la technique mais comment pourrais-je faire pour vérifier si le serveur est bien connecté ? Dans ma première source il y avait une méthode "Ftp.IsConnected".
' Paramètrage de la connexin Client.Hostname = "ftp.yahoo.com" Client.Username = "michel" Client.Password = "password" ' Connexion au serveur Client.Connect() ' Vérification si bien connecté If Not Client.IsConnected Then msgBox("Error") Else ' Download du fichier If Client.DownloadFile("index.htm", "c:\tmp1\index.htm") Then MsgBox("OK") Else MsgBox("Error") End If ' Ipload du fichier sur un autre nom If Client.UploadFile("c:\tmp1\index.htm", "test.htm") Then MsgBox("OK") Else MsgBox("Error") End If End If
Ftp.SetConfiguration("ftp.olympe-network.com", "mon_user", "mon_pass") Ftp.DownloadFile("texte.txt", "C:\texte.txt")