Discussion :

[ManuAntibes]

Bonjour

J'ai un projet de dialogué avec une base de donnée d'un fournisseur.

le fournisseur me fourni la DLL (AOBTrans.dll) et une partie de la trame du code (avec les openconnexion, closeconnexion, writedataTable ...)

je travail en VB.net et que je n'arrive pas à referencer la dll dans Visual Studio, il me dit que la DLL n'a pas pu être ajoutée. Assurez-vous que le fichier est accessible et qu'il s'agit d'un assembly valide ou d'un composant COM.


Voici un exemple pour ouvrir une connexion:

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
37
38
39
40
41
42
 
  Declare Function OpenAOBTrans Lib "AOBTrans.dll" (ByVal strParam As String, ByVal strDeviceNo As String, ByVal strAddress As String, ByVal iProtocol As Long, ByVal iCharset As Long, ByVal strTagFileName As String) As Long
    Declare Function CloseAOBTrans Lib "AOBTrans.dll" () As Long
    Declare Sub SetCRChar Lib "AOBTrans.dll" (ByVal strCRChar As String)
    Declare Sub SetInputDir Lib "AOBTrans.dll" (ByVal strInputDir As String)
    Declare Sub SetOutputDir Lib "AOBTrans.dll" (ByVal strOutputDir As String)
    Declare Sub SetErrorDir Lib "AOBTrans.dll" (ByVal strOutputDir As String)
    Declare Sub SetDisplayErrorMode Lib "AOBTrans.dll" (ByVal iDisplayError As Long)
 
 
Sub OpenCommunication_AOBTrans()
 
        Dim strAddress As String
 
        'Configure directories
        SetInputDir("C:\\AOBTrans\\Input") '
        SetOutputDir("C:\\AOBTrans\\Output")
        SetErrorDir("C:\\AOBTrans\\Error")
 
        'Display error messages
        SetDisplayErrorMode(1)
 
        'configure timeout for the connection to 4 s
        SetConnectionTimeout(4000)
 
        'Open comm
        strAddress = "192.168.1.3" 'CB_DLLEthernet.Text
        If (strAddress = "") Then
            MsgBox("Please select an address !")
            Exit Sub
        End If
 
        If (OpenAOBTrans("IPC", "1", strAddress, 0, 0, "table.csv") = -1) Then
            MsgBox("Error when opening socket!")
            CloseAOBTrans()
            Exit Sub
        End If
 
        'Selects pipe as carriage return character
        SetCRChar("|")
 
    End Sub

Comment referencer ma dll dans Visual Studio ?
Comment faire marché mon code ?

Merci de votre aide

[Danyel]

Le fournisseur de la dite dll doit pouvoir mieux te renseigner et surement le seul capable de le faire.

[Bluedeep]

Une DLL qui exporte des fonctions n'a pas à être référencée; on ne référence que les assemblies .Net, ce qui n'est -manifestement- pas le cas ici.

Tu dois utiiser l'attribut DllImport sur les déclarations de fonctions de la DLL.

De plus, dans ton cas, elle doit être sur le path de ton consommateur ou dans un path accessible référencé dans la commande Path de l'environnement.

[ManuAntibes]

Salut Bluedeep

Merci pour ta reponse, mais j'ai pas tous compris !!!

"Tu dois utiiser l'attribut DllImport sur les déclarations de fonctions de la DLL."
Je ne sais pas trop comment faire un DllImport !!!

Ma Dll je l'ai mis dans mon projet avec un copier / coller, elle se trouve à coté de mes forms et modules.

Par contre elle est, je pense reconnu car si elle n'est pas dans le projet ou avec un nom different, j'ai un bug sur cette ligne : "SetDisplayErrorMode(1)", sinon pas de bug, il y a d'autre bug après ...


autre ligne que je ne comprend pas dans ton message, l'histoire de path
De plus, dans ton cas, elle doit être sur le path de ton consommateur ou dans un path accessible référencé dans la commande Path de l'environnement.

merci de m'aider encore un peu