Bagaimana cara menyambung kembali ke UIBDatabase + UIBTransaction yang sama setelah kehilangan jaringan?

Kesalahan 1:
Secara tidak sengaja mengetik tpConsistency dan bukannya tpConcurrency di 1 tempat ca.50.
Hal itu MENGUNCI seluruh tabel, sehingga tidak mungkin untuk terhubung kembali

Kesalahan 2:
Disarankan untuk menyetel myTransaction.DefaultAction := etmRollback;

Kesalahan 3:

Kode UIB salah di uiblib.pas.

• Variabel FLockTimeout dan LockTimeout harus bilangan bulat!
• Kode parameter TETAP:

    function CreateTRParams(Options: TTransParams; const LockRead, LockWrite: string{$IFDEF FB20_UP}; LockTimeout: integer{$ENDIF}): RawByteString;
    ...
      begin
      {$IFDEF FB20_UP}
      if LockTimeout = 0 then
          Exclude(Options, tpLockTimeout)
      else begin // -1 = infinite,   1..2048M = seconds
          Exclude(Options, tpnoWait);
          Include(Options, tpWait );
          Include(Options, tpLockTimeout);
      end;
      {$ENDIF}
      if Options = [tpConcurrency,tpWait,tpWrite] then
        result := ''
      else
        begin
          Result := isc_tpb_version3;
          for tp := Low(TTransParam) to High(TTransParam) do
            if (tp in Options) then
            begin
              case tp of
                tpLockRead   : ParseStrOption(tpc[tp], AnsiString(LockRead));
                tpLockWrite   : ParseStrOption(tpc[tp], AnsiString(LockWrite));
              {$IFDEF FB20_UP}
                tpLockTimeout : 
    //old code: PAnsiChar(@LockTimeout)[0] + PAnsiChar(LockTimeout)[1]; << [1] causing AV error
                  case LockTimeout of
                    -1     : Result := Result + tpc[tp] + #4#127#255#255#255;
    //               0     : Result := Result + tpc[tp] + #1#0; // this would be invalid
                    1..255: Result := Result + tpc[tp] + #1 + AnsiChar(Byte( LockTimeout and $FF));
                  else //256..32k
                            Result := Result + tpc[tp] + #2 + AnsiChar(Byte((LockTimeout div $FF) and $FF)) + AnsiChar(Byte(LockTimeout and $FF));
                  end;
              {$ENDIF}
              else
                Result := Result + tpc[tp];
              end;
            end;
        end;
    end;

Permintaan fitur 4
Tidak menemukan solusi apa pun untuk menyambung kembali ke transaksi SAMA yang sebelumnya hilang.