Pb de libération de Dll

Question

Bonjour !

J'ai un souci : Je lib&#232;re ma Dll et quand je ferme mon application j'ai une erreur "op&#233;ration de pointeur incorrecte". Si je ne la lib&#232;re pas je n'ai pas ce message. voici mon code :

procedure CloseLinkDll;
var
  hDll: THandle;
begin
  if fileexists('madll.dll') then
  begin
    hDll := LoadLibrary(pAnsiChar('madll.dll'));
    if hDll = 0 then
      Exit;
    FreeLibrary(hDll);
  end;
end;

Merci !

jmp77 · Answer

Hello,



Je pense que cela provient de ta dll elle m&#234;me car se code me semble correct. Donne nous le code de ta dll pour voir.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

padsou · Answer

Merci de t'interesser à mon probleme ! function Init(Repertoire: string): boolean; begin try OnProcessing := 0; FileConf := TIniFile.Create(Repertoire + 'preprocess.ini'); Repertoire := FileConf.ReadString('PATH', 'DELTA', '') + '\'; CherStringList := TStringList.Create; GroupeMessageList := TStringList.Create; DataModule1 := TDataModule1.Create(nil); DataModule1.ADOConnection1.Connected := True; finally Result := DataModule1.ADOConnection1.Connected; end; end; function CloseDll: boolean; begin try DataModule1.ADOQuery1.Close; DataModule1.ADOTable1.Close; DataModule1.ADOTable2.Close; DataModule1.ADOConnection1.Connected := False; if FileConf <> nil then FreeAndNil(FileConf); if CherStringList <> nil then FreeAndNil(CherStringList); if GroupeMessageList <> nil then FreeAndNil(GroupeMessageList); if DataModule1 <> nil then FreeAndNil(DataModule1); finally Result := True; end; end;

cs_Delphiprog · Answer

Déjà, je commencerais par modifier le code pour éviter de renvoyer vrai dans tous les cas car, sinon, à quoi cela servirait-il de créer une fonction ? function CloseDll: boolean; begin try DataModule1.ADOQuery1.Close; DataModule1.ADOTable1.Close; DataModule1.ADOTable2.Close; DataModule1.ADOConnection1.Connected := False; if FileConf <> nil then FreeAndNil(FileConf); if CherStringList <> nil then FreeAndNil(CherStringList); if GroupeMessageList <> nil then FreeAndNil(GroupeMessageList); if DataModule1 <> nil then FreeAndNil(DataModule1); Result := True; Except Result := False; end; end; Lors du chargement de la DLL dans l'application principale, pourquoi ne pas conserver le handle de la librairie dans une variable globale ? Ainsi, au moment de la fermeture, il suffit de passer le même Handle lors de l'appel à CloseLibrary : procedure CloseLinkDll; begin if hDll <> 0 then FreeLibrary(hDll); end; Je note aussi que dans la ligne : hDll := LoadLibrary(pAnsiChar('madll.dll')); la conversion en PAnsiChar est superflue

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

padsou · Answer

certes mais ceci n'&#233;tait qu'un erzatz de code. Je l'ai modifi&#233; depuis, en passant notamment le handle en variable globale mais rien n'y faisait jusqu'&#224; ce week end o&#249; je d&#233;cide de passer l'appel de la Dll en mode statique. Merci quand m&#234;me de vos remarques !

bv94 · Answer

Pour utiliser des dll, il faut declarer Sharemem dans la clause units de ton projet et de ta dll.
Elle doit &#234;tre la premi&#232;re des unit&#233;s d&#233;clar&#233;es.

Bon courage.

BV94

Pb de libération de Dll

5 réponses

Votre réponse

Discussions similaires