จะเชื่อมต่อกับ UIBDatabase + UIBTransaction เดียวกันอีกครั้งหลังจากเครือข่ายสูญหายได้อย่างไร

ข้อผิดพลาด 1:
พิมพ์ tpConsistency แทน tpConcurrency โดยไม่ได้ตั้งใจที่ตำแหน่ง 1 ที่ประมาณ 50
LOCK นั้นแก้ไขทั้งตาราง ดังนั้นจึงไม่สามารถเชื่อมต่อกลับได้

ข้อผิดพลาด 2:
แนะนำให้ตั้งค่า myTransaction.DefaultAction := etmRollback;

ข้อผิดพลาด 3:

รหัส UIB ผิดที่ uiblib.pas

• ตัวแปร FLockTimeout และ LockTimeout ต้องเป็นจำนวนเต็ม!
• รหัสพารามิเตอร์คงที่:

    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;

คำขอคุณลักษณะ 4
ไม่พบวิธีแก้ปัญหาใดๆ เพื่อเชื่อมต่อกับธุรกรรม SAME ที่สูญหายไปก่อนหน้านี้อีกครั้ง