Discussion :

[Cl@udius]

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 :

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

[evarisnea]

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

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
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;

[Cl@udius]

Salut,

Ouais effectivement c'est une façon beaucoup plus simple d'aborder le problème . 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 @+

[Laurent Dardenne]

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 :

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

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}

[Cl@udius]

@Mister Dardenne,

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

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

Merci et @+