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
--- a/lib/delphi/src/Thrift.Processor.Multiplex.pas
+++ b/lib/delphi/src/Thrift.Processor.Multiplex.pas
@@ -99,7 +99,7 @@
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 @@
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 @@
// Dispatch processing to the stored processor
protocol := TStoredMessageProtocol.Create( iprot, newMsg);
- result := processor.process( protocol, oprot);
+ result := processor.process( protocol, oprot, events);
end;