Unit MIDASCon

*****************************************************} { } { MIDAS Connection classes } { } { Copyright (c) 1997 Borland International } { } {*******************************************************} { Notes: New ProgID property: If you are using OLEnterprise with UseBroker = True, set the ProgID to the ProgID of the ServerGUID. This normally shows up in the ServerName property, but ServerName is not stored. This is a workaround that will be fixed in the next version of Delphi.

Classes

TMIDASConnection -
TSocketDispatch - TSocketDispatch
TSocketDispatcher - TSocketDispatcher
TSocketDispatcherThread - TSocketDispatcherThread
TSocketStream -

Functions

Types

PIntArray
PVariantArray
TConnectType
TIntArray
TVarFlag
TVarFlags
TVariantArray

Constants

asCreateObject
asError
asFreeObject
asGetID
asInvoke
asMask
BytesReserved
CallSig
DefaultPort
EasyArrayTypes
ResultSig
TempSig
VariantSize

Variables

CreateStreamProc


Functions


Types


PIntArray = ^TIntArray

PVariantArray = ^TVariantArray

TConnectType = (ctDCOM, ctSockets, ctOLEnterprise);
TMIDASConnection
TIntArray = array[0..0] of Integer;

TVarFlag = (vfByRef, vfVariant);

TVarFlags = set of TVarFlag

TVariantArray = array[0..0] of OleVariant;

Constants

asCreateObject = $04

Specify a call to GetIdsOfNames

asError = $01

Temp signature for stream

asFreeObject = $05

Specify a com object to create

asGetID = $03

Specify a call to Invoke

asInvoke = $02

Specify an exception was raised

asMask = $FF

Specify a dispatch to free

BytesReserved = SizeOf(Integer) * 2

CallSig = $DA00

Action Signatures

DefaultPort = 211

EasyArrayTypes = [varSmallInt, varInteger, varSingle, varDouble, varCurrency, varDate, varBoolean, varByte]

Mask for action

ResultSig = $DB00

Call signature

TempSig = $2BE0

Result signature

VariantSize = (0, 0, SizeOf(SmallInt), SizeOf(Integer), SizeOf(Single), SizeOf(Double), SizeOf(Currency), SizeOf(TDateTime), 0, 0, SizeOf(Integer), SizeOf(WordBool), 0, 0, 0, 0, 0, SizeOf(Byte))


Variables

CreateStreamProc : function(Socket: TCustomWinSocket): TSocketStream = nil