Variable in DCOM Event problem


2003-08-11 10:17:08 PM
delphi199
Hi all!
I have a Server and a Client written both in Delphi 5 Ent
and I'd like to send an event from server to client
and find out if the client processed the event.
The even is looking like this (defined in interface):
procedure eFS_Booking(Mandant: Integer; ClientID: Integer; BookingType:
Integer;
BookingBody: OleVariant; var EventHandled:
WordBool); dispid 3;
In the Type Library Editor the "EventHandled" variable is defined as
VARIANT_BOOL *.
The function used to send the event to the client is below:
function TFCS.SendBookingEvent(Mandant, ClientID,
BookingType: Integer; BookingBody: OleVariant): Boolean;
var EventHandled: WordBool;
begin
Result := False;
try
EventHandled := False;
FEvents.eFS_Booking(Mandant, ClientID, BookingType, BookingBody,
EventHandled);
Result := WordBool(EventHandled);
except end;
end;
Now, the client is setting the value of EventHandled to True, but somehow
the value is not changed
when I verify it in the server.
Am I using incorrect the function?
TIA!
Mario