Discussion :

[inter_amine]

Bonjour à tous,

J'ai un problème avec mon programme VB .net. (J’utilise comme environnement de développement Windows XP et VS2005).
En fait, j'ai une exception de type System.AccessViolationException qui se déclenche dans mon programme lorsqu'une fonction permettant d'enregistrer un fichier sonore sur le disque que dur est invoqué.
Le problème c'est que le programme fonctionne correctement sur la machine de développement par contre, quand je crée le Setup de l'application et je l'installe sur la machine du client l'exception est levée.

Dans un premier temps j'ai cru que le problème est relatif à l'utilisateur qui n’a pas les autorisations nécessaire (écriture sur le disque) alors j'ai essayé avec un login administrateur. Mais le problème persiste encore.

Merci de m'aider sur ce sujet car je suis bloqué depuis une semaine

Merci pour tous

[smyley]

Quelle fonction utilises-tu ? (pour enregistrer le son ...)

[inter_amine]

Bonjour Smyley. Merci pour avoir repondu à la discussion

en fait j'utilise une fonction SaveAsWave(.,.,.,..) qui est une fonction de la classe eNICE qui une api de eNicelink.

[smyley]

Bon ba je connais pas. C'est une api native que tu utilises avec l'Interop ou c'est une lib vb.net ? (si c'est natif, quelle est la déclaration de la fonction ?)

[inter_amine]

C’est une dll native. Voici la signature de la méthode dans la piece jointe

[smyley]

Comment as tu déclaré tout ça dans ton code vb.net ?

[inter_amine]

Tout d'abord j'ai ajouté un fichier dll nommé "eNiceLink" dans le COM avec la commande regsvr32

Ensuite dans mon projet avec VS2005. J’ai fais :
Ajouter une référence
Onglet COM
Et j'ai ajouté la libraire correspondante

Dans le code je fais un « imports » et j’instancie la classe de la même façon qu’une classe ordinaire dans le Framework .net

Remarque :
Le programme fonctionne correctement dans l’environnement de DEV et pas dans l’environnement de Recette. c'est peut etre un pb de config ?

voici le code de l'appel à la fonction :

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
 
#Region "FONCTION : GET AUDIO FILE"
 
    Function GetAudioFile() As NRC_PLAYBACK_RET_CODE
 
        '09/10/2007 RVO ON EFFACE LE FICHIER S'IL EXISTE
        If File.Exists(_str_FileNamePath & ".wav") Then
            AxAM_MediaPlayer.FileName = ""
            File.Delete(_str_FileNamePath & ".wav")
        End If
 
        Dim nrc As NRC_PLAYBACK_RET_CODE
 
        If ParametreApplication.FilePath_1.LastIndexOf("\") = (ParametreApplication.FilePath_1.Length - 1) Then
            _str_FileNamePath = ParametreApplication.FilePath_1 & ParametreApplication.FileName_1
        Else
            _str_FileNamePath = ParametreApplication.FilePath_1 & "\" & ParametreApplication.FileName_1
        End If
 
        nrc = enice.SaveAsWAV(_lng_loggerID, _str_loggerIP, _lng_channel, _dt_RecStartDate, _dt_stopDate, _
                                _lng_ClsCallID, _str_ArchivePath, _lng_archiveIdHigh, _lng_archiveIdLow, _
                                _str_FileNamePath, _str_SCServerID)
        Return nrc
 
    End Function
 
#End Region

[smyley]

Tu as pensé à enregistrer eNiceLink dans ton environnement de production ?

[inter_amine]

Oui, en fait j'ai installé l'API sur le poste client de plus j'ai ajouté les fichers DLL dans le COM du systeme

Bizarre comme probléme.