SSIS FTP Task : comment faire un FileWatcher ?

Version imprimable

03/03/2009, 16h35
Mathusalem

SSIS FTP Task : comment faire un FileWatcher ?

Bonjour à tous !

J'utilise le module FTP dans mes chaines SSIS régulièrement : une fois pour l'upload d'une requête, et quelques minutes plus tard pour le download d'une réponse.
Toutefois je n'ai trouvé d'autres solutions que de bidouiller un script .NET qui attend entre les 2 étapes.
Idéalement, j'aurais voulu un module de FileWatching par FTP qui lancerait le téléchargement dès que le fichier à surveiller apparaît.

Est-ce que vous savez-comment je pourrais faire ça ?

Merci !
03/03/2009, 17h52
mikedavem

Bonjour,

Les différentes solutions possibles (que je connais en tout cas) :

- Tâche de script (ce que vous avez fait apparemment)
- Une boucle ForEach avec un énumérateur de type File
- Un module prêt à l'emploi (je n'ai pas testé) proposé par sqlis à cette adresse

++
04/03/2009, 09h06
Mathusalem

merci de la réponse !

je n'ai pas fait un vrai filewatcher en script pour le moment, au pire je mettrai la main à la pâte.

J'avais aussi vu le module que tu m'indiques, mais je n'avais pas eu l'impression qu'il permettait de faire du FTP, je vais regarder plus en détail.

edit : visiblement, pas de FTP, ça n'a pas l'air d'être la solution, dommage c'était la plus simple !
04/03/2009, 14h23
mikedavem

Non ,non effectivement il ne remplit pas la fonction de FTP. Il permet simplement de faire du FileWatcher. Il reste à implémenter le reste derrière. (Dommage par ailleurs :mrgreen:)

++
05/03/2009, 11h03
Mathusalem

pour l'énumérateur, je ne vois pas non plus comment faire :

http://pics.imagup.com/01/1236272564_enumerator.PNG

visiblement on ne peut désigner que des fichiers sur le réseau :?
05/03/2009, 12h15
mikedavem

Bon visiblement je n'avais pas compris le sens de ta question (toutes mes excuses ;) )

Les solutions que je t'ai proposé permettent simplement de détecter sur un système local des fichiers et de lancer une tâche FTP dans un 2ème temps. Donc pas de détection à distance .....

Pour simuler un tel comportement je ne vois que le bidouillage ou encore une combinaison tâche FTP + Foreach file enumerator en 2 phases

1ère phase :
--> Foreach File Enumerator : détection fichier à uploader
--> Tâche FTP : si fichier upload sur le FTP

2ème phase :
--> Tâche FTP : download FTP
--> Foreach File Enumerator : si détection fichier alors traitement

Ce n'est pas un filewatcher FTP en tant que tel mais ca ne nécessite pas de bidouillage autre ...

++

merci de ton aide

voila quelque chose qui marche : (script task)

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Sub Main()
 
        Dim FTPConnectionManager As ConnectionManager
        Dim folders() As String
        Dim files() As String
        Dim file As String
        Dim TimeOut As Integer
        Dim fileIsHere As Boolean
        Dim i As Integer
 
        If Dts.Variables.Contains("WaitTime") Then
            TimeOut = CInt(Dts.Variables("WaitTime").Value)
        Else
            TimeOut = 1
        End If
 
        Dim fileToWatch As String = Dts.Variables("FileToWatch").Value.ToString.ToUpper()
 
 
        FTPConnectionManager = Dts.Connections("FTP Bloomberg Payant")
        FTPConnectionManager.Properties("ServerUserName").SetValue(FTPConnectionManager, Dts.Variables("FTPLogin").Value)
        FTPConnectionManager.Properties("ServerPassword").SetValue(FTPConnectionManager, Dts.Variables("FTPPassword").Value)
        FTPConnectionManager.Properties("ServerName").SetValue(FTPConnectionManager, Dts.Variables("FTPServer").Value)
 
        Dim ftp As FtpClientConnection = New FtpClientConnection(FTPConnectionManager.AcquireConnection(Nothing))
 
 
        fileIsHere = False
        While Not fileIsHere
            System.Threading.Thread.Sleep(TimeOut * 1000 * 60) 'en millisecondes, 3000 = 3 secondes
 
            ftp.Connect()
            ftp.GetListing(folders, files)
 
            i = 0
            While i <= UBound(files)-1 And Not fileIsHere
                file = files(i).ToUpper()
                If file = fileToWatch Then
                    fileIsHere = True
                End If
                i += 1
            End While
 
            ftp.Close()
 
        End While
 
        Dts.TaskResult = Dts.Results.Success
 
 
    End Sub