Retruning parameters from stored procedure to Delphi using FIBplus

I have a stored procedure in Firebird that returns two parameters:

CREATE PROCEDURE OPDUTY_LOGON_LOGOFF_TIME(
  INDIVIDUAL_IDENT CHAR(6) CHARACTER SET ASCII,
  QUEUEEVENT_IDENT BIGINT)
RETURNS(
  OPDUTYSTARTTIME TIMESTAMP,
  OPDUTYENDTIME TIMESTAMP)
AS....

But when I call it from Delphi 2005 using FIBPlus 6.7.0, they return value of zero. When I run it in Firebird, it functions correctly. I have used a SQL monitor to check that it is being called, and that the correct values for the input parameters are supplied. Can anyone help me on this?

    try
      dtmUpdateCalculationDatasetModule.stpOpDutyLogonLogoffTime.
        ParamByName('INDIVIDUAL_IDENT').AsString := uclIndividual;
      dtmUpdateCalculationDatasetModule.stpOpDutyLogonLogoffTime.
        ParamByName('QUEUEEVENT_IDENT').AsInt64 := uclQueueEvent;
      dtmUpdateCalculationDatasetModule.stpOpDutyLogonLogoffTime.
        ExecProc;
      OpDutyStartTime := dtmUpdateCalculationDatasetModule.
        stpOpDutyLogonLogoffTime.ParamByName('OPDUTYSTARTTIME').AsDateTime;
      OpDutyEndTime := dtmUpdateCalculationDatasetModule.
        stpOpDutyLogonLogoffTime.ParamByName('OPDUTYENDTIME').AsDateTime;
    finally
      dtmUpdateCalculationDatasetModule.stpOpDutyLogonLogoffTime.Close;

Start Free Trial