Discussion :

[koktel_dfr]

Bonjour,

Afin de transférer un fichier par ftp j'ai créé la fonction suivante (qui fonctionne parfaitement) :

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
25
26
27
28
29
30
31
32
33
34
35
36
 
'-----------------------------------------------------
'   Tranfert du fichier localPath par ftp
'-----------------------------------------------------
Function FtpExport(ip As String, port As Integer, login As String, password As String, localPath As String, remotePath As String) As Boolean
Const funcName As String = "FtpExport()"
Dim test As String
 
On Error GoTo ErrorHandler
 
If verbosity Then DebugLog (funcName & " Tranfert de " & localPath & " vers " & remotePath & vbLf _
                            & vbTab & vbTab & "ip : " & ip & vbLf _
                            & vbTab & vbTab & "port : " & port & vbLf _
                            & vbTab & vbTab & "user : " & login & vbLf _
                            & vbTab & vbTab & "password : " & password)
 
frmCalendar.Inet1.AccessType = icUseDefault
frmCalendar.Inet1.URL = "ftp://" & ip
frmCalendar.Inet1.UserName = login
frmCalendar.Inet1.password = password
frmCalendar.Inet1.RemotePort = port
 
frmCalendar.Inet1.RequestTimeout = 40
frmCalendar.Inet1.Execute , "PUT " & localPath & " " & remotePath
Do While frmCalendar.Inet1.StillExecuting
    DoEvents
Loop
 
frmCalendar.Inet1.Execute , "CLOSE"
 
ErrorHandler:
If Err <> 0 Then
    Call ErrorManagement(funcName, Err.Description, False)
    FtpExport = False
End If
End Function

Le problème c'est que lorsque je termine mon application (par un "end") celle-ci met environ une minute a se fermer et reste figé pendant ce laps de temps. Je suis certains que cela est du au transfert ftp car lorsque je supprime l'appel a cette fonction mon programme quitte instantanément.

Je me suis dit que cela pourrait provenir d'une connection "en cours de fermeture" qui empêcherait le programme de se fermer mais comme vous l'aurez remarqué je fais bien un frmCalendar.Inet1.Execute , "CLOSE" dans ma fonction.

Si quelqu'un a une idée.... merci d'avance

[Delbeke]

Et si tu mettais un message d'alert indiquant que le transfert est terminé ?
Tu ne dois pas fermer ton prog tant que le transfert n'est pas fini non ?

[koktel_dfr]

C'est justement ca le problème, c'est que le transfert est terminé et la connection apparait comme fermé dans le log du serveur ftp (j'ai fait un test en local avec un serveur filezilla). De plus c'est un fichier texte qui fait 1ko, le transfert est quasi instantané...

[Delbeke]

Je n'utilises plus inet depuis bien longtemps car j'ai dévelppé un client ftp inclus dans un composant ocx (tu le trouveras avec son code source dans mes contributions en suivant le lien dans ma signature). Essaye de voir avec si tu as toujours le même problème.

[koktel_dfr]

Merci pour ton aide.

Finalement le programme n'étant pas destiné a tourner en présence d'un utilisateur (tout au moins lorsque le transfert ftp est utilisé) je l'ai laissé comme tel (deadline explosé oblige ) puisqu' il fonctionnait parfaitement (mis à part ce petit problème de "latence").

Cela dit le composant ocx que tu as développé semble fort pratique et ton client ftp très intéressant. Je te remercie donc car ça pourra très certainement m'être utile, ne serait-ce que pour ma culture personnelle ou un éventuel projet à venir.

[Delbeke]

Alors si ton problème est considéré comme résolu, utilise le bouton prévu à cet effet :