Discussion :

[doo.bonivento]

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 :

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 :

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

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.

[Bluedeep]

Pourquoi utilises tu encore les fichiers INI ?

Il y a une raison particulière d'employer cette vieillerie ?

[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

[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...

[titom59]

salut

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

alors juste pour te débloquer

si à la place de

Code :

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

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 :

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

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

[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 !