Discussion :

[thierry007]

Bonjour a tout le monde

Je viens d'avoir un problème encore jamais rencontré.
Peut être une idée.

J'ai une appli qui s'installe et tourne sans problème sous windows XP Sp3 avec FW 4 -> sur plusieurs machines.
Je l'installe sur une machine Win 7 prof et là pouf toujours le même problème

"Une exception a été levée par l'initialiseur de type ..."

J'ai pousser la chose un peut plus loin, installation sur windows 8 prof et là pas de problème cela fonctionne parfaitement.

Quelqu'un aurais une explication ou une idée

[Pol63]

il faut mettre des try catch ou chercher le stacktrace dans la fenetre d'erreur
à vu de nez ca serait dans un shared sub new ou une déclaration shared avec new sur la même ligne (shared machin as new truc)

certains bugs n'apparaissent que sur certains environnement, par exemple les paramètres régionaux de windows influencent le comportement du programme (sur la représentation en string des décimaux par exemple, des dates etc...)

[thierry007]

ok pol63

Je m'en vais me mettre en quête de cette façon
Je laisse le post ouvert pour l'instant si d'autre visiteurs ont une remarque

a+

Merci encore

[thierry007]

A première vue voici ce qui pose problème ( hors ceci fonctionne depuis pas mal de temps ( Win XP, Win Vista, windows 7 ( mon Pc sur lequel je développe les applis, windows 8 )

mais sur un Pc qui vient d'être déployé, oups sa ne va pas

voici le bout de code

Si quelqu'un a une idée

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
 
 
Imports System.Runtime.InteropServices.Marshal
 
Public Class DataControle
 
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
 
 
  Function LireINI(ByVal Entete As String, ByVal Variable As String, ByVal FileINI As String) As String
            Dim PtrCh As IntPtr
            Dim Lng As Integer
            Dim Chaine As String
 
            Try
                  PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
                  Lng = GetPrivateProfileString(Entete, Variable, "", PtrCh, 255, FileINI)
                  Chaine = PtrToStringAnsi(PtrCh, Lng)
                  FreeHGlobal(PtrCh)
 
                  Return Chaine
 
            Catch ex As Exception
 
                  Return "Error in File INI " & vbCrLf & ex.Message
 
            End Try
 
      End Function
 
End Class

[thierry007]

A première vue voici ce qui pose problème ( hors ceci fonctionne depuis pas mal de temps ( Win XP, Win Vista, windows 7 ( mon Pc sur lequel je développe les applis), windows 8 )

mais sur un Pc qui vient d'être déployé, oups sa ne va pas

voici le bout de code

Si quelqu'un a une idée

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
 
 
Imports System.Runtime.InteropServices.Marshal
 
Public Class DataControle
 
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
 
 
  Function LireINI(ByVal Entete As String, ByVal Variable As String, ByVal FileINI As String) As String
            Dim PtrCh As IntPtr
            Dim Lng As Integer
            Dim Chaine As String
 
            Try
                  PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
                  Lng = GetPrivateProfileString(Entete, Variable, "", PtrCh, 255, FileINI)
                  Chaine = PtrToStringAnsi(PtrCh, Lng)
                  FreeHGlobal(PtrCh)
 
                  Return Chaine
 
            Catch ex As Exception
 
                  Return "Error in File INI " & vbCrLf & ex.Message
 
            End Try
 
      End Function
 
End Class

[thierry007]

Oups erreur , ce n'est pas là qu'est l'OS, c'est au moment ou je fais appel a une entrée / Sortie ->

Lecture fichier INI
Ouverture DB SQL

Je pensais avoir un problème de droit, mais rien n'y fait

La je Bloque

Une idée

[thierry007]

J'ai serné un peu le problème, du moins je crois
mais le problème est toujours là, why?

J'ai un module dans lequel je déclares mes variables et autres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Module Generale
 
Public ServerSql As String = "MonServeur"
      Public GetData As DataControle.DataControle = New DataControle.DataControle
      Public Connexion As String = ""
 Public QueryDesignation As String = ""
      Public IntervalCheckFiles As String = ""
      Public FormatDecimale As String = "#0.00"
      Public KillFilesDat As Boolean = False
 
End Module

Dès que je fais appel a une des ses variables, soit dans le premier form
là message immédia: "System.TypeInitializationException: Une exception a été levée par l'initialiseur de type pour 'LunchX.Generale'. ---> System.Runtime.InteropServices.COMException (0x80040154): La récupération de la fabrique de classe COM pour le composant avec le CLSID {3CFB1A18-1C0B-48B7-BAC3-DDBADCDB6925} a échoué en raison de l'erreur suivante*: 80040154.
à LunchX.Generale..cctor()
--- Fin de la trace de la pile d'exception interne ---
à LunchX.FrmMenu.FrmMenu_Load(Object sender, EventArgs e)
à System.EventHandler.Invoke(Object sender, EventArgs e)



"

Code :

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

1
2
3
4
5
 
  Private Sub FrmMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Connexion = "database=LunchX;server=" & ServerSql & ",1433;User ID=sa;pwd=password"
 
 End Sub