Zeoslib Portal

Code: Select all

procedure TZConnection.Connect;
var
//Local variables declared in order to preserve the original property value
//and to avoid the storage of password
  Username, Password: string;
  DirOrg, DirDB : string ;

begin
  if FConnection = nil then
  begin
// Fixes Zeos Bug 00056
//    try
      DoBeforeConnect;
//    except
//This is here to support aborting the Connection in BeforeConnect event without fatal errors
//      on E: EAbort do
//        Exit;
//    end;

    UserName := FUser;
    Password := FPassword;

    // ### LH - 21.04.2009 set CurrentDirectory to Database-Directory
    // otherwise causes problems when working with Firebird-embedded
    // if (csDesigning in ComponentState) then
    if (true) then
    begin
      DirOrg := GetCurrentDir() ;
      DirDB  := ExtractFileDir(FDataBase) ;
      SetCurrentDir(DirDB) ;
    end ;
    // -### LH end

    if FLoginPrompt then
    begin
      { Defines user name }
      if UserName = '' then
        UserName := FProperties.Values['UID'];
      if UserName = '' then
        UserName := FProperties.Values['username'];

      { Defines user password }
      if Password = '' then
        Password := FProperties.Values['PWD'];
      if Password = '' then
        Password := FProperties.Values['password'];

      if Assigned(FOnLogin) then
        FOnLogin(Self, UserName, Password)
      else
      begin
        if Assigned(LoginDialogProc) then
        begin
          if not LoginDialogProc(FDatabase, UserName, Password) then
            Exit;
        end
        else
          raise Exception.Create(SLoginPromptFailure);
      end;
    end;

    ShowSqlHourGlass;
    try
      FConnection := DriverManager.GetConnectionWithParams(
        ConstructURL(UserName, Password), FProperties);
      try
        with FConnection do
        begin
          SetAutoCommit(FAutoCommit);
          SetReadOnly(FReadOnly);
          SetCatalog(FCatalog);
          SetTransactionIsolation(FTransactIsolationLevel);
          Open;
        end;
      except
        FConnection := nil;
        raise;
      end;
    finally
      HideSqlHourGlass;
    end;

    // ### LH - 21.04.2009 set CurrentDirectory to Database-Directory
    // otherwise causes problems when working with Firebird-embedded
    // if (csDesigning in ComponentState) then
    if (true) then
    begin
      SetCurrentDir(DirOrg) ;
    end ;
    // -### LH end

    if not FConnection.IsClosed then
      DoAfterConnect;
  end;
end;