Discussion :

[Yndigos]

Bonjour,
je tente d'utiliser la dll Winscp (afin de faire du SFTP) au travers d'un assemblage .NET
Les quelques manipulations j'ai pu effectuer sont fonctionnelles.
J'ai par contre un souci avec l'utilisation d'une classe de l'assemblage qui me permettrait de gérer les erreurs.

En effet, lors de l'instanciation de la classe, je reçois le message suivant :

Erreur :La méthode 'Constructeur' de la classe 'TransferOperationResult' est protégée; elle n'est pas accessible hors des méthodes de la classe 'TransferOperationResult' ou des classes dérivées de 'TransferOperationResult'.
FEN_Fenêtre2.BTN_Bouton2, Clic sur FEN_Fenêtre2.BTN_Bouton2, ligne 45, colonne 45


Si je me reporte au code d'exemple en C#, il n'y a effectivement pas d'instanciation de la classe.
En clair comment traduire le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
session.Open(sessionOptions);
 
                    // Upload files
                    TransferOptions transferOptions = new TransferOptions();
                    transferOptions.TransferMode = TransferMode.Binary;
 
                    TransferOperationResult transferResult;
                    transferResult = session.PutFiles(@"C:\LogoMail.jpg", "/home/admK2IT/", false, transferOptions);
 
                    // Throw on any error
                    transferResult.Check();

dans un code compréhensible par windev ?

Voici une première tentative :

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
clSess est une Session

clSess:Open (clSessOpt)

bRes est un booléen


clTrOpt est un TransferOptions

clTrOpt:TransferMode= TransferMode::Binary

clTransfertResult est un TransferOperationResult 

clTransfertResult = clSess:PutFiles("C:\LogoMail.jpg","/home/admK2IT/Downloads/",False,clTrOpt)

clTransfertResult:Check()

Merci à tous pour votre aide.

[DelphiManiac]

D'après ce que je comprend du code que tu donne et ne connaissant pas la librairie, il semblerait que

Code :

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

transferResult.Check();

génère une exception s'il y a une erreur. Si c'est bien le cas, tu peux essayer d'utiliser ce même code dans Windev dans un bloc

Code :

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

QUAND EXCEPTION

[EDIT]Il semblerait que ce post parle plus ou moins du même problème : http://www.developpez.net/forums/d10...lage-net-sftp/

[Yndigos]

Bonjour,
non, il n'y a pas génération d'exception tel qu'envisagé dans Windev.
C'est l'objet "TransferOperationResult" qui gère les erreurs ou pas rencontrée lors de l'execution des différentes commande.

Ce qui m'ennuie ici, c'est que je ne vois pas comment traduire le fait qu'il ne faut pas instancier la classe pour pouvoir l'utiliser...

Merci quoi qu'il en soit merci pour la réponse.

[jurassic pork]

bonjour,
il faut que tu utilises un objet dynamique.
Voici un exemple de l'utilisation de ton assemblage winscp pour une session ftp :

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
clSess est une Session
clSessOpt est une SessionOptions 
 
clSessOpt:Protocol = Protocol.Ftp
clSessOpt:HostName = "perso-ftp.juju.fr"
clSessOpt:UserName = "porky"
clSessOpt:Password = "tropfacileatrouver"
//clSessOpt:SshHostKey = "ssh-rsa 1024 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"
 
clSess:Open (clSessOpt)
 
clTrOpt est un TransferOptions
clTrOpt:TransferMode= TransferMode::Binary
 
clTransfertResult est un TransferOperationResult dynamique
clTransfertResult = clSess:PutFiles("F:\juju.gif","/",Faux,clTrOpt)
 
clTransfertResult:Check()
UnTransfer est un TransferEventArgs dynamique 
POUR x = 1  _A_ clTransfertResult:Transfers:get_count()
UnTransfer = clTransfertResult:Transfers:get_Item(x-1)
Trace("envoi du fichier " + UnTransfer:FileName + " réussi" )		
FIN

Ami calmant, J.P