paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 10:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Antônio Galvão to make an event sink: Implements ConnectEvents and DisConnectEvents. (bug ID 28377)

Browse Source 
git-svn-id: trunk@32822 -
This commit is contained in:
michael 2016-01-01 16:53:26 +00:00
parent ede4bac345
commit 9111c9263e
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/winunits-base/src/oleserver.pp
View File

@ -46,8 +46,9 @@ type
TOleServer = class(TComponent, IUnknown)
private
FRemoteMachineName: string;
FEventDispatch: TServerEventDispatch;
FServerData: PServerData;
FEventDispatch: TServerEventDispatch;
FEventsConnection: DWord;
protected
function QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall; override;
function _AddRef: Integer; stdcall;
@ -157,14 +158,16 @@ implementation
end;
procedure TOleServer.ConnectEvents(const Obj: IUnknown);
begin
end;
procedure TOleServer.ConnectEvents(const Obj: IUnknown);
begin
ComObj.InterfaceConnect(Obj, FServerData^.EventIID, FEventDispatch, FEventsConnection);
end;
procedure TOleServer.DisconnectEvents(const Obj: Iunknown);
begin
end;
procedure TOleServer.DisconnectEvents(const Obj: Iunknown);
begin
ComObj.InterfaceDisconnect(Obj, FServerData^.EventIID, FEventsConnection);
end;
procedure TOleServer.InvokeEvent(DispID: TDispID; var Params: TVariantArray);