Discussion :

[thegreatbato]

Bonjour,

Je débute dans WinDev (Windev 11) mais j'ai réussi a faire déjà un bon petit programme qui gère la communication de fichiers PDF entre 2 serveurs FTP. Voici une petite explication de celui-ci :

Je récupère plusieurs références (50.000) dans une base de données. Cette référence est le nom d'un fichier qui se trouve sur un serveur FTP. Tous les fichiers en question sont dans un seul répertoire, celui-ci est assez énorme (plus de 430.000 fichiers).

Mon problème est que lorsque je fais un FTPGet d'un des fichiers, j'ai l'impression que il regénère la liste de tous les fichiers dans le "cache" du programme, ce qui fait que je perds 5 minutes entre chaque demande de fichier.

Est-ce que quelqu'un aurait une idée pour améliorer les performances de cette procédure ?

Voici un morceau du code en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
WHILE SQLFetch("QRYFACT")
		dbRefpiece = SQLCol("QRYFACT", 1)
		dbLot = SQLCol("QRYFACT", 2)
		dbEtude = SQLCol("QRYFACT", 3)
		dbRefdoss = SQLCol("QRYFACT", 4)
		dbRefIMX = SQLCol("QRYFACT", 5)
 
		IF(dbEtude <> "" AND dbLot <> "" AND dbRefdoss <> "" AND dbRefIMX <> "") THEN
 
			sFichierEtude = ExtractString(EDIT_FTPREPETUDES,1, "/") + "/" + dbEtude + "/" + dbLot + "/" + dbRefdoss + "/" + dbRefIMX + ".pdf"
			sFichierTemp = fCurrentDir() + "\TEMP\" + dbRefIMX + ".pdf"
 
			sAttribFichier = FTPAttribute(xFTPEtudes, sFichierEtude)
 
			IF(sAttribFichier = "ERR") THEN
				FTPGet(xFTPImagerie,dbRefpiece,fCurrentDir() + "\TEMP", PBAR_FACT)
				IF(FTPCurrentDir(xFTPEtudes, ExtractString(EDIT_FTPREPETUDES,1, "/") + "/" + dbEtude + "/" + dbLot + "/" + dbRefdoss + "/")) THEN
					FTPMakeDir(xFTPEtudes,ExtractString(EDIT_FTPREPETUDES,1, "/") + "/" + dbEtude + "/" + dbLot + "/" + dbRefdoss + "/")	
				END
				FTPSend(xFTPEtudes,sFichierTemp, sFichierEtude, PBAR_FACT)
				fDelete(sFichierTemp)
			END
		END
	END

[mogwai162]

Avant tout j'ai déjà une question : Es tu sur que ce soit le ftpget qui soit lent ? As tu tracé ton code ? as tu mesuré les temps ?

[thegreatbato]

Oui j'ai fait un debugging et c'est au moment de l'exécution du FTPGet que c'est très lent

[mogwai162]

Désolé, je ne peux pas t'aider. Je suis en V10 et la fonction ftpget, n'existe pas dans la V10

[thegreatbato]

Je pense avoir détecté le problème.

Lorsque je me connecte au FTP via Telnet et que je fais les commandes PASV puis RETR d'un des fichiers en question, le FTP me renvoie l'erreur "425 Failed to establish connection."

Je dois donc regarder à ce niveau là et pas dans Windev.