Einzelnen Beitrag anzeigen

Benutzerbild von MyRealName
MyRealName

Registriert seit: 19. Okt 2003
Ort: Heilbronn
675 Beiträge
 
Delphi 10.4 Sydney
 
#1

Exception in einer Stored proc hängt thread auf

  Alt 23. Sep 2015, 20:17
Datenbank: Firebird • Version: 2.5.4 • Zugriff über: DBX
Hallo,

habe ein seltsames Problem und hab bisher keine richtige Lösung gefunden im Internet.
Ich für über eine DBX Verbindung eine Stored Proc in einer firebird DB aus. Wenn dort eine Exception ausgelöst wird, dann hängt die scheinbar den ganzen Thread auf, er kommt aus dem TSQLStoredProc.ExecSQL nicht mehr raus, geht aber auch nicht in den exception handler rein

Code:
    try
      SP_DOC_QUEUE_PROCESS.Close;
      SP_DOC_QUEUE_PROCESS.ParamByName('Id').AsInteger := Id;
      SP_DOC_QUEUE_PROCESS.ExecProc; // <--- hier hängt er bei einer exception
      If SP_DOC_QUEUE_PROCESS.ParamByName('Error_Code').AsInteger <> 0 Then
        Raise EDatabaseError.Create('ErrorCode: ' + SP_DOC_QUEUE_PROCESS.ParamByName('Error_Code').AsString
                + #13#10 + Trim(SP_DOC_QUEUE_PROCESS.ParamByName('Error_Msg').AsString));
      DBConnection.CommitFreeAndNil(TD);
      RemoveFromQueue(Id);
      QR.Close;
      QR.SQL.Text := 'SELECT COUNT(Id) FROM Doc_Queue';
      QR.Open;
      FbDoCheckQueue := (QR.Fields[0].AsInteger > 0);
      DocsInCola := QR.Fields[0].AsInteger;
      QR.Close;

      DoInformProcessDone(Clase, E, S, Tipo, Numero, TipoOp, DocsInCola); // sends message to mainthread
    except
      on Ex: Exception do begin
        DBConnection.RollbackFreeAndNil(TD);
        CodeSite.Send(csmLevel1, 'Error processing document', Ex.Message);
        Inc(CE);
        If CE >= 5 Then begin
          CreateNotification(E, S, Tipo, Numero, UserId, TipoOp, Ex.Message);
          RemoveFromQueue(Id);
          DoNotifyUserError(UserId, Ex.Message);
        end else begin
          RemoveFromQueue(Id);                                            // remove it from the first place
          InsertIntoQueue(E, S, Tipo, Numero, TipoOp, UserId, CE, RC);    // and insert it at the end again
        end;
        FbDoCheckQueue := True;
      end;
Die exception ist zum Bsp ein Lock Conflict, etwas was man nicht wirklich umgehen kann.

Hat einer eine Idee warum DBX nicht mehr zurück kommt ?

Danke schonmal im vorraus
  Mit Zitat antworten Zitat