Utilisation d'une classe .NET

Version imprimable

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:

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:

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.

30/08/2012, 10h19
DelphiManiac

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

Code:

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:

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/
30/08/2012, 13h52
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.

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

Code:

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 ;)