Zeoslib Portal

Code: Select all

  fLocalTransaction := TZOracleTransaction.CreateLocal(Self);

Code: Select all

    fLocalTransaction := nil;

Code: Select all

    Status := FOwner.FPlainDriver.OCITransRollback(FOwner.FContextHandle,
      FOwner.FErrorHandle, OCI_DEFAULT);
    if Status <> OCI_SUCCESS then
      FOwner.HandleErrorOrWarning(FOwner.FErrorHandle, Status, lcTransaction, 'TRANSACTION ROLLBACK', Self);

Code: Select all

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, ZConnection, ZDataSet;

Var
 conn, killer: TZConnection;
 q: TZQuery;

Procedure SetConn(Const inConnection: TZConnection);
Begin
 inConnection.Protocol := 'oracle';
 inConnection.User := 'username';
 inCOnnection.Password := 'password';
 inConnection.Database := 'tnsnamesora';
End;

begin
  ReportMemoryLeaksOnShutdown := True;

  try
  try
   conn := TZConnection.Create(nil);
   q := TZQuery.Create(nil);
   Try
    SetConn(conn);
    conn.AutoCommit := False;
    q.Connection := conn;
    conn.Connect;
    q.SQL.Text := 'SELECT SID, SERIAL# FROM V$SESSION WHERE AUDSID = Sys_Context(''USERENV'', ''SESSIONID'')';
    q.Open;
    killer := TZConnection.Create(nil);
    Try
     SetConn(killer);
     killer.Connect;
     killer.ExecuteDirect('ALTER SYSTEM DISCONNECT SESSION ''' + q.Fields[0].AsString + ',' + q.Fields[1].AsString + ''' IMMEDIATE');
    Finally
     FreeAndNil(killer);
    End;

    conn.Disconnect;
   Finally
    FreeAndNil(conn);
    FreeAndNil(q);
   End;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  finally
    readln;
  end;
end.

Code: Select all

Destructor TSQLConnectionFrame.Destroy;
Begin
 ForceSQLDisconnect;
 If Assigned(_schemas) Then FreeAndNil(_schemas);
 If Assigned(_queries) Then FreeAndNil(_queries);
 If Assigned(_li) Then FreeAndNil(_li);
 inherited;
End;

Code: Select all

Destructor TSQLConnectionFrame.Destroy;
Begin
 Try
  ForceSQLDisconnect;
 Finally
  If Assigned(_schemas) Then FreeAndNil(_schemas);
  If Assigned(_queries) Then FreeAndNil(_queries);
  If Assigned(_li) Then FreeAndNil(_li);
  inherited;
 End;
End;

Code: Select all

 If inConnection.Connected Then Begin
                                If inConnection.ServerVersion > 0 Then Result := Result + ' '  + inConnection.ServerVersionStr;
                                If inConnection.ClientVersion > 0 Then Result := Result + ', client version: ' + inConnection.ClientVersionStr;
                                End;

Code: Select all

 Try
  If inConnection.Ping And (inConnection.ServerVersion > 0) Then Result := Result + ' '  + inConnection.ServerVersionStr;
 Except
  // Swallow all exceptions. If Ping fails, there's no connection -> avoid memory leak in oci.dll caused by .ServerVersion
 End;
 If inConnection.ClientVersion > 0 Then Result := Result + ', client version: ' + inConnection.ClientVersionStr;

Code: Select all

procedure TZOracleTransaction.BeforeDestruction;
var Status: sword;
begin
  inherited BeforeDestruction;
  if FOCITrans <> nil then begin
    try
      fSavepoints.Clear;
      try
        if FStarted then
          RollBack; // <- Exception can be raised here, normally NOTHING below this line gets executed
        Status := FOwner.FPlainDriver.OCIHandleFree(FOCITrans, OCI_HTYPE_TRANS);
        if Status <> OCI_SUCCESS then
          FOwner.HandleErrorOrWarning(FOwner.FErrorHandle, Status, lcTransaction, 'OCIHandleFree', Self); // <- Exception can be raised here, so after swallowing the first exception NOTHING below this line gets executed
      except
       // Swallow exception, so destructor can finish in peace
      end;
    finally
      FOCITrans := nil;
    end;
  end;
  fSavepoints.Free; // <- With the original design, the code will NEVER reach this line, thus leaking this object too with TZOracleTransaction
end;

Code: Select all

 TMyClass = Class
 strict private
  _sl: TStringList;
 public
  Constructor Create; ReIntroduce;
  Destructor Destroy; Override;
 End;

constructor TMyClass.Create;
begin
  inherited;
  _sl := TStringList.Create;
end;

destructor TMyClass.Destroy;
begin
 Raise Exception.Create('Leak');
 _sl.Free;
 inherited;
end;

TMyClass.Create.Free;