Firebird delete from table via Service

[ConnorMcLeod]

Hallo zusammen,
ich bin auf der Suche nach einer Erklärung für folgendes Phänomen:
Die Aufgabe ist, einige Records aus einer Tabelle zu löschen, die einem bestimmten Kriterium entsprechen.

Ich habe nach dem erfolgreichen Test die Funktionalität in einer extra Funktion in einer extra Unit untergebracht, damit das Ganze ohne Anpassungen in einer Serviceanwendung verwendet werden kann.

Die Verbindung zur Datenbank klappt, der Delphicode klappt in einer VCL-Anwendung.

Das Service läuft unter meinem Account (nicht als System) und über Logmeldungen weiß ich, daß die Funktionen korrekt aufgerufen werden. Es werden aber keine Records gelöscht, wenn es als Service läuft. Das Ganze mit D2007 und Firebird 2.5

Dasselbe Ergebnis bekomme ich übrigens, wenn ich das SQL Statement direkt mittels einer TSQLQuery exekutiere ohne stored procedure. Mit Zeos-Kompos habe ich es auch schon versucht.

Wie immer: danke für alle Ideen, die daherkommen

Delphi-Quellcode:

function DelByDate(const ADate: TMSGString): Boolean;
var
  lConnection: TSQLConnection;
  lq         : TSQLQuery;
  lTransDesc : TTransactionDesc;
begin
  LogInfo('DelByDate: Entered');
  Result := False;
  try  // except
    lConnection := TSQLConnection.Create(nil);
    lq := TSQLQuery.Create(nil);
    try  // finally
      ConnectSQLDataBase(lConnection);

      lq.Close;
      lq.SQLConnection := lConnection;
      lTransDesc.TransactionID := 111;
      lTransDesc.IsolationLevel := xilREADCOMMITTED;
      lConnection.StartTransaction(lTransDesc);

      lq.SQL.Text :=
          'EXECUTE PROCEDURE DELBYDATE ('
        + QuotedStr(ADate)
        + '    ); '
        ;
      lq.ExecSQL;
      
      lConnection.Commit(lTransDesc);
      Result := True;
    finally  // try
      FreeAndNil(lq);
      FreeAndNil(lConnection);
    end;  // try/finally
  except on e: Exception do
    begin
      LogError('DelByDate: ' + e.Message);
      Result := False;
    end;  // except on e: Exception do
  end;  // try/except
  LogInfo('DelByDate: Finished');
end;

procedure ConnectSQLDataBase(var AConnection: TSQLConnection);
begin
  if (not Assigned(AConnection)) then begin
    exit;
  end;  // if
  
  AConnection.ConnectionName := 'IBConnection';
  AConnection.DriverName     := 'Interbase';
  AConnection.GetDriverFunc  := 'getSQLDriverINTERBASE';
  AConnection.LibraryName    := 'dbxint30.dll';
  AConnection.LoginPrompt    := False;
  AConnection.VendorLib      := 'GDS32.DLL';
  AConnection.Params.Add('DriverName=Interbase');
  AConnection.Params.Add('Database=' + MYSRV + ':' + MYDBNAME);
  AConnection.Params.Add('RoleName=RoleName');
  AConnection.Params.Add('User_Name=' + MYDBUSER);
  AConnection.Params.Add('Password=' + MYDBPWD);
  AConnection.Params.Add('ServerCharSet=');
  AConnection.Params.Add('SQLDialect=3');
  AConnection.Params.Add('ErrorResourceFile=');
  AConnection.Params.Add('LocaleCode=0000');
  AConnection.Params.Add('BlobSize=-1');
  AConnection.Params.Add('CommitRetain=False');
  AConnection.Params.Add('WaitOnLocks=True');
  AConnection.Params.Add('Interbase TransIsolation=ReadCommited');
  AConnection.Params.Add('Trim Char=False');

  AConnection.Open
end;