Class TSocketDispatch (unit MIDASCon)

Inherits from

TInterfacedObject

IDispatch

TSocketDispatch

Constructors


constructor Create(Stream: TSocketStream; DispatchIndex: Integer);

TSocketDispatch


Functions

destructor Destroy;


procedure SetStream(Value: TSocketStream);


function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT;


function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HRESULT;


function GetTypeInfoCount(out Count: Integer): HRESULT;

IDispatch

TSocketDispatch.


function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;


Properties

property DispatchIndex : Integer


property Stream : TSocketStream


Events

Variables

FDispatchIndex : Integer;


FStream : TSocketStream;



Constructors


constructor Create(Stream: TSocketStream; DispatchIndex: Integer);

TSocketDispatch


Functions


destructor Destroy;


procedure SetStream(Value: TSocketStream);


function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT;


function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HRESULT;


function GetTypeInfoCount(out Count: Integer): HRESULT;

IDispatch

TSocketDispatch.IDispatch


function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;


Properties


property DispatchIndex : Integer


property Stream : TSocketStream


Events


Variables


FDispatchIndex : Integer;


FStream : TSocketStream;