Discussion :

[Bordelique]

: Il y a un truc qui cloche et je sais pas quoi...
J'ai créer une fonction qui utilise GetPrivateProfileString, et ça plante.

Code :

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

1
2
3
4
5
6
function ReadIni(KeyGroup,Key:string):string;
var
  TmpBuffer:PAnsiChar;
begin
  SetString(ReadIni,TmpBuffer,GetPrivateProfileString(PAnsiChar(KeyGroup),PAnsiChar(Key),'',TmpBuffer,256,PAnsiChar('Toto.ini')));
end;

Quelqu'un pourait-il m'aider.
Merci

[gord's]

il faudrait penser à allouer tmpBuffer !

ou alors utilises un TIniFile, c'est quand même plus simple :

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
 
var
    ini : TIniFile;
 
...
 
    if FileExists(nomDuFichier) then
        ini := TIniFile.Create(nomDuFichier)
    else
        ini := nil;
 
...
 
    if assigned(ini) then
        result := ini.Readstring(NomDeLaSection,NomDuChamp,ValeurParDefaut)
    else
        result := ValeurParDefaut;
 
...
 
    FreeAndNil(ini);

[Bordelique]

il faudrait penser à allouer tmpBuffer !

Excuse mon ignorance mais comment fais tu pour allouer tmpBuffer ?

[Osiris 2B]

Peut-être que ça plante parce que tu mis le nom de ta fonction (ReadIni) comme paramètre de SetString.

Passe alors par une varibale intermédiaire.

[Bordelique]

Peut-être que ça plante parce que tu mis le nom de ta fonction (ReadIni) comme paramètre de SetString.

Passe alors par une varibale intermédiaire.

J'ai éssayé mais ca fait la même chose.
Merci quand même.

[Jean44]

Ca plante parce que tu forces la copie dans une zone mémoire qui n'est pas allouée (tmpBuffer ne pointe sur rien). On appelle cela un effet de bord.

Pour allouer dynamiquement de la mémoire :

Code :

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

GetMem( tmpBuffer, 256);  // 256 ou plus selon le besoin

Avant de quitter ta fonction, quand tu n'as plus besoin de tmpBuffer, n'oublie pas de désallouer le bloc mémoire que pointe tmpBuffer :

Code :

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

FreeMem( tmpBuffer); tmpBuffer := Nil;

Sinon comme dit gord's, utilises un TIniFile c'est moins prise de tête...

[Bordelique]

Merci je vais tester ca de suite.
A+

[Bordelique]

Bon les gars, j'arrete de me prendre le choux alors qu'une soluce plus simple est dispo (ReadString ex plus haut...).
Donc j'appose la balise [RESOLU] mais cela ne l'est pas...
Un grand merci quand même.