THRIFT-2195 Delphi event handlers - fix for multiplex protocol

diff --git a/lib/delphi/src/Thrift.Processor.Multiplex.pas b/lib/delphi/src/Thrift.Processor.Multiplex.pas
index 8d6d8b0..198bed8 100644 (file)
--- a/lib/delphi/src/Thrift.Processor.Multiplex.pas
+++ b/lib/delphi/src/Thrift.Processor.Multiplex.pas
@@ -99,7 +99,7 @@ type
       An exception is thrown if the message type is not CALL or ONEWAY
       or if the service is unknown (or not properly registered).
     }
-    function Process(const iprot, oprot : IProtocol) : Boolean;
+    function Process( const iprot, oprot: IProtocol; const events : IProcessorEvents = nil): Boolean;
   end;
 
 
@@ -162,7 +162,7 @@ begin
 end;
 
 
-function TMultiplexedProcessorImpl.Process(const iprot, oprot : IProtocol) : Boolean;
+function TMultiplexedProcessorImpl.Process(const iprot, oprot : IProtocol; const events : IProcessorEvents = nil): Boolean;
 var msg, newMsg : IMessage;
     idx         : Integer;
     sService    : string;
@@ -208,7 +208,7 @@ begin
 
   // Dispatch processing to the stored processor
   protocol := TStoredMessageProtocol.Create( iprot, newMsg);
-  result   := processor.process( protocol, oprot);
+  result   := processor.process( protocol, oprot, events);
 end;