[API] Fonctions FormatMessage et LocalFree

Version imprimable

Bonjour à tous.

Etant toujours resté assez hermétique à la gestion des pointeurs, je voudrais savoir si ma façon de libérer le buffer MsgBuf est correcte.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TFormMain.ActionExecute(Sender: TObject); var lRet: HINST; MsgBuf: PAnsiChar; begin // le Hint de l'action contient le nom de l'exe lRet := LaunchApp(TAction(Sender).Hint); if lRet <= 32 then // Erreur begin FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError(), 0, @MsgBuf, 0, nil); MessageDlg('Echec lors du lancement de l''application !' + #13#10 + #13#10 + 'Application: ' + TAction(Sender).Hint + '.exe' + #13#10 + MsgBuf, mtError, [mbOK], 0); LocalFree(DWORD(MsgBuf^)); // <- là ??!! end; end;
La fonction LauchApp est un simple ShellExecute dont je récupère le résultat dans lRet.

La fonction FormatMessage allouant automatiquement la place nécessaire au buffer (LocalAlloc), j'utilise donc la fonction LocalFree pour la libération. Cette syntaxe ne bronche ni à la compilation ni à l'exécution, mais je garde un doute.

Bref c'est cool ou pas cool ?
Merci @+ Claudius

je ne réponds pas à ton problème mais moi je ferais plutot un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFormMain.ActionExecute(Sender: TObject);
var
  lRet: HINST;
  MsgBuf: string;
begin
  // le Hint de l'action contient le nom de l'exe
  lRet := LaunchApp(TAction(Sender).Hint);
  if lRet <= 32 then // Erreur
  begin
    MsgBuf := SysErrorMessage( GetLastError());
    MessageDlg('Echec lors du lancement de l''application !' + #13#10 + #13#10 +
               'Application: ' + TAction(Sender).Hint + '.exe' + #13#10 +
               MsgBuf,
               mtError, [mbOK], 0);
  end;
end;

30/03/2006, 13h32
Cl@udius

Salut,

Ouais effectivement c'est une façon beaucoup plus simple d'aborder le problème :D . C'est ta méthode que je vais utiliser.
Merci

Je laisse le post en non résolu en espérant un autre intervenant, car je reste d'une nature curieuse :!:

Merci encore @+

Citation:

Envoyé par Claudius40

car je reste d'une nature curieuse :!:

Dans ce cas voir MSDN :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/localfree.asp

La VCL D2005 utilise une seule fois cette API, dans une procédure de gestion de thread.
Mais certaines API nécessitent son appel:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 unit AclAPI; {$WEAKPACKAGEUNIT} // Contents: public header file for acl and trusted server access control // APIs interface (*HPPEMIT '#include <aclApi.h>' *) ... function GetExplicitEntriesFromAcl(var pacl: ACL; var pcCountOfExplicitEntries: ULONG; pListOfExplicitEntries: PEXPLICIT_ACCESS_): DWORD; stdcall; {use localfree to release pListOfExplicitEntries}

30/03/2006, 18h31
Cl@udius

@Mister Dardenne,

Merci pour le lien. Pour le curieux que je suis je n'ai pas le réflexe msdn ! :oops:

Je vais potassé tout ça. Je tag résolu !

Merci et @+