Problème assemblages .net

**MobilityDev** · 17/02/2020, 14h18

Bonjour,
S'il vous plait j'ai un petit souci avec l'utilisation d'assemblages .net
j'utilise l'assemblage OM sage pour écrire dans la base Sage 100 (Interop.Objets100cLib.dll).
Quand j'écris le code en Windev j'ai certaines fonctions fonctionnent sans problème comme :

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
pclBaseCial est un BSCIALApplication100cClass dynamique //OK
pclAutCpta est un BSCPTAApplication100cClass dynamique//OK
pclBaseCial = new BSCIALApplication100cClass//OK
pclAutCpta= new BSCPTAApplication100cClass//OK
ResRep est une chaîne = SysRep(srMesDocuments)//OK
pclBaseCial.Name=ResRep+"\Sage\Bijou.gcm"//OK
pclBaseCial.UserName="<Administrateur>"//OK
pclBaseCial.UserPwd=""//OK
pclBaseCial.Open()//OK
pclAutCpta.Name=ResRep+"\Sage\BIJOU.MAE"//OK
pclAutCpta.UserName="<Administrateur>"//OK
pclAutCpta.UserPwd=""//OK
pclAutCpta.Open()//OK
pclCollTiers est un objet IBICollection dynamique=Null//OK
pclOObjetTier est un objet IBOClient3 dynamique=Null//OK
pclFac est un objet IBOClientFactory3 dynamique//OK
pclFac=pclAutCpta:FactoryClient//OK
Mais d'autre fonction me retourne une erreur comme celle-ci :
pclOObjetTier = pclFac.Create()// ERREUR

La dernière ligne m'envoie un message d'erreur:
L'invocation de la méthode <Create()> du type <__ComObject> a échoué
sachant que le code .net fonctionne correctement:
ObjetClient = BaseCpta.FactoryClient.Create()
Merci d'avance.
Fatima

**frenchsting** · 18/02/2020, 08h40

Bonjour,

Je ne connais pas du tout cet assemblage, mais, j'ai une question : As-tu essayé ceci :

Code :

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

pclOObjetTier = pclAutCpta:FactoryClient.Create()

**MobilityDev** · 18/02/2020, 08h57

Bonjour,

Oui j'ai essayé ça et même le code de la méthode générique mais même souci

Code :

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

pclOObjetTier=pclAutCpta:FactoryClient."Create<Type>"()

Merci bien

**frenchsting** · 18/02/2020, 12h01

Et en remplaçant le ":" par "." :

Code :

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

pclAutCpta.FactoryClient.Create()

Il y a une discussion (Delphi) sur le même souci ici

Autre idée : ne pas mettre dynamique (ni = NULL) lors de la déclaration de la variable pclOObjetTier.

**MobilityDev** · 18/02/2020, 14h13

Je te remercie beaucoup frenchsting pour ton aide précieuse,

le problème c'est que j'ai tout essayé, ça fait une semaine que je galère sur ce sujet... pour la discussion Delphi je vais t'expliquer ce qui j'ai fait mais ça n'a pas marché
J'ai remarqué qu'il a affecté un type BaseCpta.FactoryClient.Create as IBOClient3;,
j'ai fait pareil en Windev

Code :

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

pclOObjetTier=pclAutCpta.FactoryClient."Create<IBOClient3>"()

mais malheureusement même erreur

Je cherche encore...

**frenchsting** · 18/02/2020, 14h46

Comme tu es partie sur les "dynamique", j'ai repensé aux histoires d'allocation :

Code :

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

1
2
3
pclOObjetTier est un objet IBOClient3 dynamique
pclOObjetTier = allouer un IBOClient3
pclOObjetTier = pclAutCpta:FactoryClient.Create()

**MobilityDev** · 18/02/2020, 15h25

Nom : Capt.png
Affichages : 1025
Taille : 8,1 Ko

Ça c'est parmi les problèmes que j'ai

, impossible d'instancier une classe abstraite... j'ai un grand problème d’allocation

Par contre le Code .net est très simple et ne demande pas tout ça

**Jon Shannow** · 18/02/2020, 15h35

As-tu essayer ça

Code :

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

pclOObjetTier = allouer un pclAutCpta:FactoryClient.Create()

**MobilityDev** · 18/02/2020, 16h46

Nom : cap3.png
Affichages : 995
Taille : 2,4 Ko

Oui j'ai essayé ça aussi mais y'avait une erreur de syntaxe

Par contre y'a des fonctions qui passent qui proviennent de la même classe par exemple:

Code :

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

1
2
pclCollTiers est un objet IBICollection dynamique
pclCollTiers=pclAutCpta.FactoryClient.list

c'est juste certaines méthodes qui me renvoient ce message d'erreur

Merci bien

**frenchsting** · 19/02/2020, 09h00

Bonjour

et ceci ?

Code :

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

pclOObjetTier = allouer un pclFac.Create()

**MobilityDev** · 19/02/2020, 10h20

Bonjour frenchsting

Une erreur de syntaxe

Nom : cap4.png
Affichages : 1028
Taille : 2,3 Ko

Merci bien

**frenchsting** · 19/02/2020, 11h09

Et en mettant ":" ?

Une question : as-tu un moyen de voir les méthodes existantes dans ton assemblage ?

**MobilityDev** · 19/02/2020, 11h23

Ok je vais t'envoyer tous les éléments:

dans une image jointe je t'ai envoyé la définition de la méthode Create()
************************************************************************************************************
Le code initial .net
*************************************************************************************************************

Code VB.NET :

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
37
38
39
40
41
42
43
44
45
46
 
Option Strict Off
Imports Objets100cLib
Imports System
Module CreationObjetClient
 
 
Sub Main()
Dim BaseCpta As New BSCPTAApplication100c
' (1)
Dim ObjetClient As IBOClient3 = Nothing
If OuvreBaseCpta(BaseCpta, "C:\temp\Bijou.mae") Then
If CreeObjetClient(BaseCpta, ObjetClient) Then
Console.WriteLine("Objet Client créé !")
End If
FermeBaseCpta(BaseCpta)
End If
End Sub
 
 
Function CreeObjetClient(ByRef BaseCpta As BSCPTAApplication100c, ByRef ObjetClient As IBOClient3) As Boolean
Try
' (2)
ObjetClient = BaseCpta.FactoryClient.Create()
Return True
Catch ex As Exception
Console.WriteLine("Erreur en création d'un nouvel objet Client : {0}", ex.Message)
Return False
End Try
End Function
 
 
Function OuvreBaseCpta(ByRef BaseCpta As BSCPTAApplication100c, _
ByVal NomBaseCpta As String, Optional ByVal Utilisateur As String = "<Administrateur>", _
Optional ByVal MotDePasse As String = "") As Boolean
Try
BaseCpta.Name = NomBaseCpta
BaseCpta.Loggable.UserName = Utilisateur
BaseCpta.Loggable.UserPwd = MotDePasse
BaseCpta.Open()
Return True
Catch ex As Exception
Console.WriteLine("Erreur en ouverture de base comptable : {0}", ex.Message)
Return False
End Try
End Function

Nom : ClasseCompta.png
Affichages : 1034
Taille : 9,9 Ko

Nom : Ibofactory.png
Affichages : 1080
Taille : 18,4 Ko

Nom : Defini.png
Affichages : 1068
Taille : 79,7 Ko

**tatayo** · 19/02/2020, 11h40

Bonjour,
Peut-être que la classe IBOClientFactory3 a besoin que certains membres soient affectés avant de pouvoir appeler la méthode Create().
Est-ce que tu obtiens des infos supplémentaires si tu mets la ligne de code dans un bloc "quand exception dans.. faire.." avec un ExceptionInfo() ?

Dernière "test", même si je me doute du résultat: si tu déclares pclOObjetTier comme étant un objet dynamique (sans préciser son type exact) ?

Tatayo.

**Jon Shannow** · 19/02/2020, 11h42

Envoyé par tatayo

Dernière "test", même si je me doute du résultat: si tu déclares pclOObjetTier comme étant un objet dynamique (sans préciser son type exact) ?

Ou en variant ?

**MobilityDev** · 19/02/2020, 12h02

J'ai testé les deux cas et même souci:

Nom : captvar.png
Affichages : 984
Taille : 2,6 Ko

pour la classe IBOClientFactory3 je ne crois pas que je dois affecter autres membres avant car selon la documentation
c'est très simple

Code .net

Code VB.NET :

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
37
38
39
40
41
42
43
44
45
46
 
Option Strict Off
Imports Objets100cLib
Imports System
Module CreationObjetClient
 
 
Sub Main()
Dim BaseCpta As New BSCPTAApplication100c
' (1)
Dim ObjetClient As IBOClient3 = Nothing
If OuvreBaseCpta(BaseCpta, "C:\temp\Bijou.mae") Then
If CreeObjetClient(BaseCpta, ObjetClient) Then
Console.WriteLine("Objet Client créé !")
End If
FermeBaseCpta(BaseCpta)
End If
End Sub
 
 
Function CreeObjetClient(ByRef BaseCpta As BSCPTAApplication100c, ByRef ObjetClient As IBOClient3) As Boolean
Try
' (2)
ObjetClient = BaseCpta.FactoryClient.Create()
Return True
Catch ex As Exception
Console.WriteLine("Erreur en création d'un nouvel objet Client : {0}", ex.Message)
Return False
End Try
End Function
 
 
Function OuvreBaseCpta(ByRef BaseCpta As BSCPTAApplication100c, _
ByVal NomBaseCpta As String, Optional ByVal Utilisateur As String = "<Administrateur>", _
Optional ByVal MotDePasse As String = "") As Boolean
Try
BaseCpta.Name = NomBaseCpta
BaseCpta.Loggable.UserName = Utilisateur
BaseCpta.Loggable.UserPwd = MotDePasse
BaseCpta.Open()
Return True
Catch ex As Exception
Console.WriteLine("Erreur en ouverture de base comptable : {0}", ex.Message)
Return False
End Try
End Function

Pour le cas exception je n'ai que ce message :
L'invocation de la méthode <Create()> du type <__ComObject> a échoué

je suis vraiment désolée

et merci bien pour vos efforts

**Voroltinquo** · 19/02/2020, 12h16

Bonjour,
Quand une documentation marque "c'est très simple", ou que sur un emballage il y a marqué "ouverture facile", il faut commencer à se méfier.

**MobilityDev** · 19/02/2020, 12h26

Envoyé par Voroltinquo

Bonjour,
Quand une documentation marque "c'est très simple", ou que sur un emballage il y a marqué "ouverture facile", il faut commencer à se méfier.

je commence à pleurer, c'est la première fois que je bloque de cette manière sur un sujet....

**Jon Shannow** · 19/02/2020, 13h29

Envoyé par MobilityDev

je commence à pleurer, c'est la première fois que je bloque de cette manière sur un sujet....

Il ne faut pas abandonner. Est-ce que tu as pu trouver des codes sources dans d'autres langages qui le font ?
Normalement, y a toujours moyen de le faire avec Windev, il faut juste trouver la bonne formule.
Courage.