Bonjour
J'ai une dll écrite te qui me permet de me connecter à une base de donné et je souhaite tester si 'elle est chargé lorsque j'apelle la fonction utilisant cette dll.
Si DLL chargée et connecté alors
faire traitement
Sinon envoyer Eventlog
Fin si.

voici une ébauche de code.

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
Select Case G_bin_params.Target_Machine.Trim
 
          Case "DELTA" 
 
            MacType = NTSA.XNDF.Interfaces.MachineTypes.DELTA
            Try
              If ELD_Pic = True Then
                result3 = CreateSlogan.CreateSlogan(G_Delta_signing_prod_params _
                                        , MacType, G_bin_params.IsPPI, SloType _
                                        , G_classSlogan.TempExtractFolder & G_classSlogan.RecId & ".bmp", G_classSlogan.TempExtractFolder & G_classSlogan.RecId & "_ELD.bmp", G_bin_params.Bin_output_directory, G_classSlogan.Title.Trim(" ") _
                                        , G_classOF.OF_data.Partnumber & "A", G_classSlogan.RecId, G_bin_params.IsOsiris, CType(G_bin_params.PictureResolution, UInteger), CType(G_bin_params.PictureResolution, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), CType(G_bin_params.ELD_PictureResolution, UInteger), True, False, PPIType, "")
              Else
                result3 = CreateSlogan.CreateSlogan(G_Delta_signing_prod_params _
                                                       , MacType, G_bin_params.IsPPI, SloType _
                                                       , G_classSlogan.TempExtractFolder & G_classSlogan.RecId & ".bmp", "", G_bin_params.Bin_output_directory, G_classSlogan.Title.Trim(" ") _
                                                       , G_classOF.OF_data.Partnumber & "A", G_classSlogan.RecId, G_bin_params.IsOsiris, CType(G_bin_params.PictureResolution, UInteger), CType(G_bin_params.PictureResolution, UInteger), 0, 0, True, False, PPIType, "")
              End If
            Catch ex As Exception
              PO_Result.Return_Message = ex.Message + "Erreur lors de la création du Slogan DELTA"
              Return -2
            Finally
              CreateSlogan = Nothing
              SloType = Nothing
              MacType = Nothing
            End Try
 
            If result3 = False Then
              PO_Result.Return_Message = "Erreur lors de la création du Slogan DELTA" + "Erreur lors de la création du Slogan DELTA"
              Return -2
            End If
 
          Case "IJ25"
'suite des cases

la DLL en question est G_Delta_signing_prod_params
merci @ vous