Discussion :

[Griswold]

Bonjour à tous,

Voilà, j'ai une application en VB.NET 2003, je cherches à lire dans un fichier INI :

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
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
 
        Dim l_IniFile As String
        Dim l_Pos As Integer
        Dim l_Domain As String
        Dim l_Logon As String
        Dim l_Password As String
        Dim l_TempString As String
 
        l_IniFile = Application.StartupPath + "\Logon.ini"
 
        l_TempString = New String(" ", 100)
 
        l_Pos = GetPrivateProfileString("Workflow", "Domain", " ", l_TempString, 100, l_IniFile)
        l_Domain = Trim(Left(l_TempString, l_Pos))

À la ligne l_Pos = GetPrivateProfileString("Workflow", "Domain", " ", l_TempString, 100, l_IniFile) j'obtiens l'exception suivante :

Une exception non gérée du type 'System.OverflowException' s'est produite dans ...

Informations supplémentaires*: L'opération arithmétique a provoqué un dépassement de capacité.

Quelqu'un a une idée de ce que pourrait être le problème? J'ai regardé dans les autres threads de fichiers INI sur le forum et je n'ai rien trouvé qui pourrait m'aider.

Merci d'avance...

[Griswold]

J'avances un peu...

Je tiens à préciser que j'essaies de récupérer du code VB6 et que certaines modifications devaient être apportées au départ :

Code :

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

1
2
3
4
5
6
Dim l_Pos As Long

'...

'Pour une raison quelconque la fonction Left ne fonctionne pas
l_Domain = Trim(l_TempString)

Toutefois...

l_Pos me retourne une valeur incompréhensible, du genre 5322654185684992, et la fonction GetPrivateProfileString ne stocke rien dans l_TempString. Voici le contenu de mon fichier INI :

Code :

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

1
2
3
4
[Workflow]
Domain=MonDomaine
Logon=MonUsername
Password=MonPassword

Merci une fois de plus de l'aide que vous pourrez m'apporter...