VB.NET et GetPrivateProfileStringARésolu

Question

Bonjour &#224; tous,

j'ai un probl&#232;me avec la m&#233;thode GetPrivate PRofileStringA en Vb.net.

Voici mon code :




Private 
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







Private Sub act_Lire()
   Dim lsLogin As String
   lsLogin = ini_Lire("OPTIONS", "Login")
End Sub

'** Lecture d'une valeur dans un fichier du type .INI
Public 
Function ini_Lire(
ByVal psSection 
As 
String, 
ByVal psCle 
As 
String) 
As 
String

Dim lnTaille 
As 
Long
Dim lsValeur 
As 
String
Dim lsFichier 
As 
String


lsFichier = System.AppDomain.CurrentDomain.BaseDirectory
If lsFichier.LastIndexOf("") = sFichier.Length - 1 
Then
   lsFichier= lsFichier&amp; "FicProjet.ini"

Else
   lsFichier= lsFichier&amp; "\FicProjet.ini"

End 
If


lsValeur = StrDup(1024, Chr(0))


lnTaille = GetPrivateProfileString(psSection, psCle, "", lsValeur, lsValeur.Length, sFichier)


If lnTaille = 0 
Then
ini_Lire = ""

Else
   ini_Lire = Left(lsValeur.ToString, lnTaille)

End 
If



End 
Function


[Fichier Ini]
[OPTIONS]
Login=SMITH John
Ini

Quand j'ex&#233;cute la m&#233;thode act_Lire, et que je suis l'ex&#233;cution, la valeur retourn&#233;e pour lnTaille est 5312483703128064 ce qui provoque une erreur de d&#233;passement de capacit&#233; quand on appelle la m&#233;thode Left.
Y a-t-il une erreur dans la mani&#232;re d'utiliser la m&#233;thode GetPrivateProfileStringA avec vb?net ? Quelqu'un a-t-il une id&#233;e ?

Merci

sroz · Accepted Answer

classe pour lire un fichier ini :
http://experienz.net/index.php?option=com_content&task=view&id=109&Itemid=42 

&#231;a marche tr&#232;s bien