Problème avec fonction GetPrivateProfileInt

Version imprimable

Bonjour,

J'ai un fichier ini que je lis pour récupérer quelques paramétrage. Cependant, dans ma fonction de récupération de la valeur d'une clé, j'ai l'erreur suivante lorsque j'appel fonction GetPrivateProfileInt :

Citation:

System.AccessViolationException was unhandled by user code
Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt."
Source="TEC_NAVWebService"
StackTrace:
at TEC_NAVWebService.Service1.GetPrivateProfileInt(String& lpApplicationName, String& lpKeyName, Int64 nDefault, String& lpFileName) at TEC_NAVWebService.Service1.GetIniParameter(String Key) in C:\WORK\PROJECTS\NEWCOM\WEB SERVICE NAV\TEC_NAVWebService\TEC_NAVWebService\Service1.asmx.vb:line 105 at TEC_NAVWebService.Service1.GetItemInfosCust(XmlDocument XItemCustInfos) in C:\WORK\PROJECTS\NEWCOM\WEB SERVICE NAV\TEC_NAVWebService\TEC_NAVWebService\Service1.asmx.vb:line 43 at WebApplication1._Default.GetItemInfos(Object sender, EventArgs e) in C:\WORK\PROJECTS\NEWCOM\WEB SERVICE NAV\WebApplication1\WebApplication1\Default.aspx.cs:line 40 at System.Web.UI.WebControls.Button.OnClick(EventArgs e) at System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument) at System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)
InnerException:

Cette erreur ne survient pas lorsque la fonction GetPrivateProfileString est appelée !

Voici le code de ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Function GetIniParameter(ByVal Key As String) As String Dim projDir As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().CodeBase) Dim filePath As String = Mid(projDir, 7, Len(projDir) - 6) + "\TEC_WebServ.ini" Dim StrBuild As New System.Text.StringBuilder(32768) Dim IntValue As Integer Dim StrValue As String If Key = "MSMQReceiverTimeSpanSec" Then IntValue = GetPrivateProfileInt("Setup", Key, -1, filePath) StrValue = IntValue.ToString Else GetPrivateProfileString("Setup", Key, "", StrBuild, 32768, filePath) StrValue = StrBuild.ToString End If Return StrValue
Quelqu'un a-t-il une idée de quoi ça pourrait venir ? Je cherche mais ne trouve rien et suis vraiment bloqué par ce problème.

Merci d'avance de votre aide.

10/03/2009, 13h31
Bluedeep

8O

Pourquoi utilises tu encore les fichiers INI ?

Il y a une raison particulière d'employer cette vieillerie ?
10/03/2009, 13h39
doo.bonivento

La raison principale est que je travail en collaboration avec une autre équipe. Moi je m'occupe du webservice et eux de l'interface et de l'infrastructue. Et ils veulent un fichier ini pour le paramétrage.

En ce qui me concerne, c'est ce que je connais de mieux. Encore jamais appliqué et utilisé les paramètres de projets. Et comme le budget du projet et trop court, je n'ai pas le temps de m'y pencher pour l'instant. D'autant plus que les autres impliqués dans le projet préfère ceci ;)

Une aide serais très précieuse. Merci
10/03/2009, 14h45
tomlev

Si ça t'intéresse j'avais publié une petite classe pour manipuler des fichiers INI :
http://www.developpez.net/forums/d67...-fichiers-ini/

Personnellement, je préfère ça à l'utilisation d'API natives dont on sait pas très bien ce qu'elles font...

salut

aucune idée d'ou vient ton problème de mémoire

alors juste pour te débloquer

si à la place de

Code:

1
2
3
4
5
6
7
 If Key = "MSMQReceiverTimeSpanSec" Then
            IntValue = GetPrivateProfileInt("Setup", Key, -1, filePath)
            StrValue = IntValue.ToString
        Else
            GetPrivateProfileString("Setup", Key, "", StrBuild, 32768, filePath)
            StrValue = StrBuild.ToString
        End If

tu faisais

Code:

1
2
3
4
5
6
7
 
GetPrivateProfileString("Setup", Key, "", StrBuild, 32768, filePath)
StrValue = StrBuild.ToString
 
If Key = "MSMQReceiverTimeSpanSec" AND StrValue = "" Then
StrValue  = "-1"
end if

10/03/2009, 16h20
doo.bonivento

Oui, c'est ce que j'ai fait pour l'instant. Mais ça revient à insérer du code en dure. Et j'ai besoin de ce paramètre car il peut être amener à être changer. J'utilise cet integer pour définir un temps de réponse en seconde pour mon service web via MSMQ. Et tout dépend les perfs et autres paramètre il me faudra l'adapter. Et Comme je veux éviter de devoir à chaque fois recompiler mon WebService et renvoyer la .dll sur site, je préfère uniquement modifié un paramètre dans le fichier .ini !

Mais pour l'instant je fais comme ça ! Mais une solution serait vraiment la bienvenue. Sinon il faudra programmer à la sauvage. Soit en dure ! :aie:
10/03/2009, 16h24
titom59

si tu veux vraiment être propre passe sur les fichiers de config.

c'est simple, propre et modifiable directement dans IIS

:mouarf:
10/03/2009, 16h25
Bluedeep

Citation:

Envoyé par doo.bonivento

Oui, c'est ce que j'ai fait pour l'instant. Mais ça revient à insérer du code en dure.

Bof .... quand on en est encore à utiliser des fichiers Ini :aie:
10/03/2009, 17h10
doo.bonivento

Comme je l'ai déjà dis. Je ne peux pas utiliser autre chose pour ce cas !

Et Je me pencherais à étudier les nouvelles méthode à l'encontre du fichier ini quand j'aurais un peu moins de job et pourrais consacrer un peu de temps à me former là-dessus. Pour l'instant c'est pas possible !

Mis à part ça, les fichiers ini sont peut-être "old-school", mais reste quand-même le fait qu'il sont bien pratique et je trouve encore bien pensés malgré leur grand age !

Mais pour en revenir au sujet ! ça ne m'aide pas beaucoup pour solutionner mon cas !

Je vous remercie bien pour vos idée et argumentations au sujet du fichier ini, mais je n'ai pas fait une demande d'aide pour polémiquer sur l'utilisation ou non de méthode ancienne ou récentes. Dans mon cas je dois solutionner ce point et je n'y arrive pas !

Alors si qqun pouvait faire abstraction du fait qu'il existe des méthodes plus récente pour gérer un paramétrage et éventuellement m'aider à résoudre ce cas, il est au grand bien la bienvenue ! Merci
10/03/2009, 17h16
titom59

dans tes méthodes de lecture de parametres, tu fermes bien tes fichiers après les avoir lus ?

tu ne conserves pas un reader ouvert sur ton fichier ?

Citation:

Envoyé par doo.bonivento

Alors si qqun pouvait faire abstraction du fait qu'il existe des méthodes plus récente pour gérer un paramétrage et éventuellement m'aider à résoudre ce cas, il est au grand bien la bienvenue ! Merci

La classe que je t'ai proposée au début pourrait faire l'affaire...
Le fait que ce soit en C# ne devrait pas être un problème, il te suffit de compiler ça dans un DLL et de l'utiliser à partir de ton code VB.NET, même pas besoin de la comprendre...
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Function GetIniParameter(ByVal Key As String) As String Dim projDir As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().CodeBase) Dim filePath As String = Mid(projDir, 7, Len(projDir) - 6) + "\TEC_WebServ.ini" Dim StrBuild As New System.Text.StringBuilder(32768) Dim IntValue As Integer Dim StrValue As String Dim ini As New IniFile(filePath) StrValue = ini[Key]; Return StrValue
D'ailleurs, je ne comprends pas trop pourquoi tu utilises GetPrivateProfileInt... de toutes façons ta fonction renvoie une String, donc pourquoi vouloir lire ce paramètre comme un entier, puisque tu convertis immédiatement en String ?