Ich benutze 3.0.11.37703, war aber mit 3.0.10.x dasselbe Problem.
Das zwei jahre alte Repo habe ich eben auch ausprobiert, da hat sich aber nix geändert...
Das habe ich vielleicht missverständlich ausgedrückt: Es gibt kein Speicherleck in dem Sinne, das FastMM beim Beenden etwas zu reporten hätte.
Letztlich werden aber immer mehr "Private Bytes" belegt (und nie wieder freigegeben), wenn abwechselnd isc_attach_database / isc_detach_database ausgeführt wird.
Ich habe jetzt mal in TUIBDatabase eine TestLeak-Methode eingebaut, die auf das wesentliche reduziert ist...
Muss nach isc_attach_database und/oder isc_detach_database vielleicht noch irgendwas aufgeräumt werden?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Database: TUIBDataBase;
i: Integer;
begin
Database := TUIBDataBase.Create;
try
Database.LibraryName := '
fbclient.dll';
// Version 3.0.11.33703, installierter Server ebenfalls...
Database.DatabaseName:= '
localhost/3050:database.fdb';
Database.UserName := '
SYSDBA';
Database.PassWord := '
masterkey';
DataBase.CharacterSet := csUTF8;
sleep(5000);
DataBase.Connected := TRUE;
Database.Connected := FALSE;
Database.TestLeak;
// TestLeak macht letztlich 1000x in Folge AttachDatabase/DetachDatabase:
// procedure TUIBDatabase.TestLeak;
// var
// i: Integer;
// begin
// for i := 1 to 1000 do
// begin
// FLibrary.AttachDatabase(AnsiString(FDatabaseName), FDbHandle, AnsiString(FParams.Text), BreakLine);
// FLibrary.DetachDatabase(FDbHandle);
// end;
// end;
//
// procedure TUIBLibrary.AttachDatabase(const FileName: RawByteString; var DbHandle: IscDbHandle;
// Params: AnsiString; Sep: AnsiChar = ';');
// begin
// Params := CreateDBParams(Params, Sep);
// CheckUIBApiCall(isc_attach_database(@FStatusVector, Length(FileName), Pointer(FileName),
// @DBHandle, Length(Params), PAnsiChar(Params)));
// end;
//
// procedure TUIBLibrary.DetachDatabase(var DBHandle: IscDbHandle);
// begin
// CheckUIBApiCall(isc_detach_database(@FStatusVector, @DBHandle));
// // if connection lost DBHandle must be set manually to nil.
// DBHandle := nil;
// end;
finally
Database.Free;
end;
end;