🚀 go-pugleaf

Hi everyone.

I'm have problems unloading dynamically loaded DLLs.  I get memory read
errors in Win2000.
I'm using BCB5 Enterprise Edition.

My application reads an INI file and builds a menu system from the contents
of the INI file.  The INI
file holds references to DLLs. Each menu-item is thus "linked" to a DLL.
When the user clicks on a
menu-item, that DLL is loaded and the user uses it.  After the user exits
the form in the DLL, I
try to unload it.  It seems that the unloading process succeeds, but when
the Menu OnClick-event
exits, I receive 4 to 5 read errors, all memory related.

This is the OnClick Event of the Menu-Item:

     typedef void *MYPROC(TADOConnection *, String);
     // MYPROC is the typedef name, pointer

     HINSTANCE Library_Handle;
     MYPROC *Procedure;
     BOOL fFreeResult, fRunTimeLinkSuccess, result;

     Procedure = NULL;
     String file =
GetCurrentDir()+"\\"+MenuData(Data_Array[ClickedItem->Tag])->DLL;
     try
      { Library_Handle = LoadLibrary(file.c_str()); }
     catch (Exception& e)
      { ShowMessage(e.Message+" frmMain::ActivateReport()"); }

     if (Library_Handle == NULL)
      {
       try
        { Library_Handle = LoadLibrary(file.c_str()); }
       catch (Exception& e)
        {
         ShowMessage(e.Message+" frmMain::ActivateReport() - Loading of
DLL");
         return;
        }
      }

     if (Library_Handle != NULL)
      {
       try
        {
         Procedure = (MYPROC *) GetProcAddress(Library_Handle,
MenuData(Data_Array[ClickedItem->Tag])->ExportedCallingFunction.c_str()); //
create pointer to that procedure
         if (Procedure != NULL)
          {
           Procedure(frmConnection->ADOConnection,"");
          }
         else
          { ShowMessage("Couldn't hook procedure:
"+MenuData(Data_Array[ClickedItem->Tag])->ExportedCallingFunction); }
        }
       catch (Exception& e)
        { ShowMessage(e.Message+" frmMain::ActivateReport() - Activating of
DLL"); }
      }

    // close the Library
     try
      {
       if (Library_Handle != NULL)
        {
         Procedure = NULL;
         FreeLibrary(Library_Handle);
         Library_Handle = NULL;
        }
      }
     catch (Exception& e)
      {
       ShowMessage(e.Message+" frmMain::ActivateReport() freeing of DLL");
      }
     Library_Handle = NULL;
    }


The function code called in the DLL is this:
{
 frmStockPriceList = new TfrmStockPriceList(NULL,Conn);
 frmStockPriceList->ShowModal();
 delete frmStockPriceList;
}
This is just a VCL form with ADOQueries and a QuickReport-componet.
I am sure that the closing code of the form is called correctly.

Any ideas?
Thanks in advance
Chris

--------------------------------------
Chris Buys
Development

HAS Software (Pty) Ltd
Web:    www.h-a-s.co.za