Library Handle resource link using TSQLConnection

[bmarinel]

Hi,

I'm using Memory Sleuth v3.01 with Delphi 7 to check my application for memory and resource leaks.

Memory Sleuth indicates a Library Handle resource leak whenever I use the TSQLConnection component. I've indicated the source of the leak in the code segment below.

Code segment from Delphi7\Source\Vcl\SqlExpr.pas:

procedure TSQLConnection.LoadSQLDll;
begin
if DllHandle = THandle(0) then
begin
try
SetCursor(HourGlassCursor);
if SQLDllHandle = THandle(0) then
--> SQLDllHandle := THandle(LoadLibrary(PChar(trim(LibraryName))));
if SQLDllHandle = THandle(0) then
DataBaseErrorFmt(sDLLLoadError, [LibraryName]);
GetDriver := GetProcAddress(HMODULE(SQLDllHandle), PChar(trim(GetDriverFunc)));
if not Assigned(GetDriver) then
DataBaseErrorFmt(sDLLProcLoadError, [GetDriverFunc])
finally
SetCursor(DefaultCursor);
end;
end;
end;

My question is, how do I fix this Library Handle resource link?

Regards,

Bill

[VISOCO Support]

Hello.

See also SqlExpr.pas, line 1911, TSQLConnection.DoDisconnect

[bmarinel]

Hi,

I wouldn't expect, or want, them to call FreeLibrary at disconnect time. I just want to call it when my program exits. I made an attempt to call it, but it must have not been correct because Memory Sleuth still said that I had the resource leak. Do you know what code I can put in my application at termination time to free the resource?

Regards,

Bill

[VISOCO Support]

Hello.

You can try something like:

[bmarinel]

Thank you. I ended up using both code samples. Just adding in the code to the TSQLConnection.DoDisconnect procedure didn't always do the trick. I had to add this to one application:

AttemptCount := 0;
while (GetModuleHandle(PChar(MyConnect.LibraryName)) > 0) and
(AttemptCount < MaxAttempts) do
begin
FreeLibrary(GetModuleHandle(PChar(MyConnect.LibraryName)));
Inc(AttemptCount);
end;

Regards,

Bill