Delphi控件源码

开发平台：

Delphi

MSXML2_TLB.pas：源码内容

TFreeThreadedDOMDocument30Properties = class(TPersistent)
private
FServer: TFreeThreadedDOMDocument30;
function GetDefaultInterface: IXMLDOMDocument2;
constructor Create(AServer: TFreeThreadedDOMDocument30);
protected
function Get_namespaces: IXMLDOMSchemaCollection;
function Get_schemas: OleVariant;
procedure Set_schemas(otherCollection: OleVariant);
public
property DefaultInterface: IXMLDOMDocument2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLSchemaCache provides a Create and CreateRemote method to
// create instances of the default interface IXMLDOMSchemaCollection exposed by
// the CoClass XMLSchemaCache. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLSchemaCache = class
class function Create: IXMLDOMSchemaCollection;
class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLSchemaCache
// Help String : object for caching schemas
// Default Interface: IXMLDOMSchemaCollection
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLSchemaCacheProperties= class;
{$ENDIF}
TXMLSchemaCache = class(TOleServer)
private
FIntf: IXMLDOMSchemaCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLSchemaCacheProperties;
function GetServerProperties: TXMLSchemaCacheProperties;
{$ENDIF}
function GetDefaultInterface: IXMLDOMSchemaCollection;
protected
procedure InitServerData; override;
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLDOMSchemaCollection);
procedure Disconnect; override;
procedure add(const namespaceURI: WideString; var_: OleVariant);
function get(const namespaceURI: WideString): IXMLDOMNode;
procedure remove(const namespaceURI: WideString);
procedure addCollection(const otherCollection: IXMLDOMSchemaCollection);
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
property length: Integer read Get_length;
property namespaceURI[index: Integer]: WideString read Get_namespaceURI; default;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLSchemaCacheProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLSchemaCache
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLSchemaCacheProperties = class(TPersistent)
private
FServer: TXMLSchemaCache;
function GetDefaultInterface: IXMLDOMSchemaCollection;
constructor Create(AServer: TXMLSchemaCache);
protected
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLSchemaCache26 provides a Create and CreateRemote method to
// create instances of the default interface IXMLDOMSchemaCollection exposed by
// the CoClass XMLSchemaCache26. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLSchemaCache26 = class
class function Create: IXMLDOMSchemaCollection;
class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLSchemaCache26
// Help String : object for caching schemas
// Default Interface: IXMLDOMSchemaCollection
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLSchemaCache26Properties= class;
{$ENDIF}
TXMLSchemaCache26 = class(TOleServer)
private
FIntf: IXMLDOMSchemaCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLSchemaCache26Properties;
function GetServerProperties: TXMLSchemaCache26Properties;
{$ENDIF}
function GetDefaultInterface: IXMLDOMSchemaCollection;
protected
procedure InitServerData; override;
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLDOMSchemaCollection);
procedure Disconnect; override;
procedure add(const namespaceURI: WideString; var_: OleVariant);
function get(const namespaceURI: WideString): IXMLDOMNode;
procedure remove(const namespaceURI: WideString);
procedure addCollection(const otherCollection: IXMLDOMSchemaCollection);
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
property length: Integer read Get_length;
property namespaceURI[index: Integer]: WideString read Get_namespaceURI; default;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLSchemaCache26Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLSchemaCache26
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLSchemaCache26Properties = class(TPersistent)
private
FServer: TXMLSchemaCache26;
function GetDefaultInterface: IXMLDOMSchemaCollection;
constructor Create(AServer: TXMLSchemaCache26);
protected
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLSchemaCache30 provides a Create and CreateRemote method to
// create instances of the default interface IXMLDOMSchemaCollection exposed by
// the CoClass XMLSchemaCache30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLSchemaCache30 = class
class function Create: IXMLDOMSchemaCollection;
class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLSchemaCache30
// Help String : object for caching schemas
// Default Interface: IXMLDOMSchemaCollection
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLSchemaCache30Properties= class;
{$ENDIF}
TXMLSchemaCache30 = class(TOleServer)
private
FIntf: IXMLDOMSchemaCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLSchemaCache30Properties;
function GetServerProperties: TXMLSchemaCache30Properties;
{$ENDIF}
function GetDefaultInterface: IXMLDOMSchemaCollection;
protected
procedure InitServerData; override;
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLDOMSchemaCollection);
procedure Disconnect; override;
procedure add(const namespaceURI: WideString; var_: OleVariant);
function get(const namespaceURI: WideString): IXMLDOMNode;
procedure remove(const namespaceURI: WideString);
procedure addCollection(const otherCollection: IXMLDOMSchemaCollection);
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
property length: Integer read Get_length;
property namespaceURI[index: Integer]: WideString read Get_namespaceURI; default;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLSchemaCache30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLSchemaCache30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLSchemaCache30Properties = class(TPersistent)
private
FServer: TXMLSchemaCache30;
function GetDefaultInterface: IXMLDOMSchemaCollection;
constructor Create(AServer: TXMLSchemaCache30);
protected
function Get_length: Integer;
function Get_namespaceURI(index: Integer): WideString;
public
property DefaultInterface: IXMLDOMSchemaCollection read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXSLTemplate provides a Create and CreateRemote method to
// create instances of the default interface IXSLTemplate exposed by
// the CoClass XSLTemplate. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXSLTemplate = class
class function Create: IXSLTemplate;
class function CreateRemote(const MachineName: string): IXSLTemplate;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXSLTemplate
// Help String : object for caching compiled XSL stylesheets
// Default Interface: IXSLTemplate
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXSLTemplateProperties= class;
{$ENDIF}
TXSLTemplate = class(TOleServer)
private
FIntf: IXSLTemplate;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXSLTemplateProperties;
function GetServerProperties: TXSLTemplateProperties;
{$ENDIF}
function GetDefaultInterface: IXSLTemplate;
protected
procedure InitServerData; override;
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXSLTemplate);
procedure Disconnect; override;
function createProcessor: IXSLProcessor;
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
property stylesheet: IXMLDOMNode read Get_stylesheet write Set_stylesheet;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXSLTemplateProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXSLTemplate
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXSLTemplateProperties = class(TPersistent)
private
FServer: TXSLTemplate;
function GetDefaultInterface: IXSLTemplate;
constructor Create(AServer: TXSLTemplate);
protected
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXSLTemplate26 provides a Create and CreateRemote method to
// create instances of the default interface IXSLTemplate exposed by
// the CoClass XSLTemplate26. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXSLTemplate26 = class
class function Create: IXSLTemplate;
class function CreateRemote(const MachineName: string): IXSLTemplate;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXSLTemplate26
// Help String : object for caching compiled XSL stylesheets
// Default Interface: IXSLTemplate
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXSLTemplate26Properties= class;
{$ENDIF}
TXSLTemplate26 = class(TOleServer)
private
FIntf: IXSLTemplate;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXSLTemplate26Properties;
function GetServerProperties: TXSLTemplate26Properties;
{$ENDIF}
function GetDefaultInterface: IXSLTemplate;
protected
procedure InitServerData; override;
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXSLTemplate);
procedure Disconnect; override;
function createProcessor: IXSLProcessor;
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
property stylesheet: IXMLDOMNode read Get_stylesheet write Set_stylesheet;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXSLTemplate26Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXSLTemplate26
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXSLTemplate26Properties = class(TPersistent)
private
FServer: TXSLTemplate26;
function GetDefaultInterface: IXSLTemplate;
constructor Create(AServer: TXSLTemplate26);
protected
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXSLTemplate30 provides a Create and CreateRemote method to
// create instances of the default interface IXSLTemplate exposed by
// the CoClass XSLTemplate30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXSLTemplate30 = class
class function Create: IXSLTemplate;
class function CreateRemote(const MachineName: string): IXSLTemplate;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXSLTemplate30
// Help String : object for caching compiled XSL stylesheets
// Default Interface: IXSLTemplate
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXSLTemplate30Properties= class;
{$ENDIF}
TXSLTemplate30 = class(TOleServer)
private
FIntf: IXSLTemplate;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXSLTemplate30Properties;
function GetServerProperties: TXSLTemplate30Properties;
{$ENDIF}
function GetDefaultInterface: IXSLTemplate;
protected
procedure InitServerData; override;
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXSLTemplate);
procedure Disconnect; override;
function createProcessor: IXSLProcessor;
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
property stylesheet: IXMLDOMNode read Get_stylesheet write Set_stylesheet;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXSLTemplate30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXSLTemplate30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXSLTemplate30Properties = class(TPersistent)
private
FServer: TXSLTemplate30;
function GetDefaultInterface: IXSLTemplate;
constructor Create(AServer: TXSLTemplate30);
protected
procedure Set_stylesheet(const stylesheet: IXMLDOMNode);
function Get_stylesheet: IXMLDOMNode;
public
property DefaultInterface: IXSLTemplate read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoDSOControl provides a Create and CreateRemote method to
// create instances of the default interface IDSOControl exposed by
// the CoClass DSOControl. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDSOControl = class
class function Create: IDSOControl;
class function CreateRemote(const MachineName: string): IDSOControl;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDSOControl
// Help String : XML Data Source Object
// Default Interface: IDSOControl
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDSOControlProperties= class;
{$ENDIF}
TDSOControl = class(TOleServer)
private
FIntf: IDSOControl;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDSOControlProperties;
function GetServerProperties: TDSOControlProperties;
{$ENDIF}
function GetDefaultInterface: IDSOControl;
protected
procedure InitServerData; override;
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IDSOControl);
procedure Disconnect; override;
property DefaultInterface: IDSOControl read GetDefaultInterface;
property readyState: Integer read Get_readyState;
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TDSOControlProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TDSOControl
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TDSOControlProperties = class(TPersistent)
private
FServer: TDSOControl;
function GetDefaultInterface: IDSOControl;
constructor Create(AServer: TDSOControl);
protected
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
property DefaultInterface: IDSOControl read GetDefaultInterface;
published
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoDSOControl26 provides a Create and CreateRemote method to
// create instances of the default interface IDSOControl exposed by
// the CoClass DSOControl26. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDSOControl26 = class
class function Create: IDSOControl;
class function CreateRemote(const MachineName: string): IDSOControl;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDSOControl26
// Help String : XML Data Source Object
// Default Interface: IDSOControl
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDSOControl26Properties= class;
{$ENDIF}
TDSOControl26 = class(TOleServer)
private
FIntf: IDSOControl;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDSOControl26Properties;
function GetServerProperties: TDSOControl26Properties;
{$ENDIF}
function GetDefaultInterface: IDSOControl;
protected
procedure InitServerData; override;
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IDSOControl);
procedure Disconnect; override;
property DefaultInterface: IDSOControl read GetDefaultInterface;
property readyState: Integer read Get_readyState;
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TDSOControl26Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TDSOControl26
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TDSOControl26Properties = class(TPersistent)
private
FServer: TDSOControl26;
function GetDefaultInterface: IDSOControl;
constructor Create(AServer: TDSOControl26);
protected
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
property DefaultInterface: IDSOControl read GetDefaultInterface;
published
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoDSOControl30 provides a Create and CreateRemote method to
// create instances of the default interface IDSOControl exposed by
// the CoClass DSOControl30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDSOControl30 = class
class function Create: IDSOControl;
class function CreateRemote(const MachineName: string): IDSOControl;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDSOControl30
// Help String : XML Data Source Object
// Default Interface: IDSOControl
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDSOControl30Properties= class;
{$ENDIF}
TDSOControl30 = class(TOleServer)
private
FIntf: IDSOControl;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDSOControl30Properties;
function GetServerProperties: TDSOControl30Properties;
{$ENDIF}
function GetDefaultInterface: IDSOControl;
protected
procedure InitServerData; override;
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IDSOControl);
procedure Disconnect; override;
property DefaultInterface: IDSOControl read GetDefaultInterface;
property readyState: Integer read Get_readyState;
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TDSOControl30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TDSOControl30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TDSOControl30Properties = class(TPersistent)
private
FServer: TDSOControl30;
function GetDefaultInterface: IDSOControl;
constructor Create(AServer: TDSOControl30);
protected
function Get_XMLDocument: IXMLDOMDocument;
procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
function Get_JavaDSOCompatible: Integer;
procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
function Get_readyState: Integer;
public
property DefaultInterface: IDSOControl read GetDefaultInterface;
published
property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLHTTP provides a Create and CreateRemote method to
// create instances of the default interface IXMLHTTPRequest exposed by
// the CoClass XMLHTTP. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLHTTP = class
class function Create: IXMLHTTPRequest;
class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLHTTP
// Help String : XML HTTP Request class.
// Default Interface: IXMLHTTPRequest
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLHTTPProperties= class;
{$ENDIF}
TXMLHTTP = class(TOleServer)
private
FIntf: IXMLHTTPRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLHTTPProperties;
function GetServerProperties: TXMLHTTPProperties;
{$ENDIF}
function GetDefaultInterface: IXMLHTTPRequest;
protected
procedure InitServerData; override;
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLHTTPRequest);
procedure Disconnect; override;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant; bstrPassword: OleVariant); overload;
procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
function getResponseHeader(const bstrHeader: WideString): WideString;
function getAllResponseHeaders: WideString;
procedure send; overload;
procedure send(varBody: OleVariant); overload;
procedure abort;
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
property status: Integer read Get_status;
property statusText: WideString read Get_statusText;
property responseXML: IDispatch read Get_responseXML;
property responseText: WideString read Get_responseText;
property responseBody: OleVariant read Get_responseBody;
property responseStream: OleVariant read Get_responseStream;
property readyState: Integer read Get_readyState;
property onreadystatechange: IDispatch write Set_onreadystatechange;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLHTTPProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLHTTP
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLHTTPProperties = class(TPersistent)
private
FServer: TXMLHTTP;
function GetDefaultInterface: IXMLHTTPRequest;
constructor Create(AServer: TXMLHTTP);
protected
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLHTTP26 provides a Create and CreateRemote method to
// create instances of the default interface IXMLHTTPRequest exposed by
// the CoClass XMLHTTP26. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLHTTP26 = class
class function Create: IXMLHTTPRequest;
class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLHTTP26
// Help String : XML HTTP Request class.
// Default Interface: IXMLHTTPRequest
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLHTTP26Properties= class;
{$ENDIF}
TXMLHTTP26 = class(TOleServer)
private
FIntf: IXMLHTTPRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLHTTP26Properties;
function GetServerProperties: TXMLHTTP26Properties;
{$ENDIF}
function GetDefaultInterface: IXMLHTTPRequest;
protected
procedure InitServerData; override;
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLHTTPRequest);
procedure Disconnect; override;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant; bstrPassword: OleVariant); overload;
procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
function getResponseHeader(const bstrHeader: WideString): WideString;
function getAllResponseHeaders: WideString;
procedure send; overload;
procedure send(varBody: OleVariant); overload;
procedure abort;
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
property status: Integer read Get_status;
property statusText: WideString read Get_statusText;
property responseXML: IDispatch read Get_responseXML;
property responseText: WideString read Get_responseText;
property responseBody: OleVariant read Get_responseBody;
property responseStream: OleVariant read Get_responseStream;
property readyState: Integer read Get_readyState;
property onreadystatechange: IDispatch write Set_onreadystatechange;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLHTTP26Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLHTTP26
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLHTTP26Properties = class(TPersistent)
private
FServer: TXMLHTTP26;
function GetDefaultInterface: IXMLHTTPRequest;
constructor Create(AServer: TXMLHTTP26);
protected
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLHTTP30 provides a Create and CreateRemote method to
// create instances of the default interface IXMLHTTPRequest exposed by
// the CoClass XMLHTTP30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLHTTP30 = class
class function Create: IXMLHTTPRequest;
class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TXMLHTTP30
// Help String : XML HTTP Request class.
// Default Interface: IXMLHTTPRequest
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TXMLHTTP30Properties= class;
{$ENDIF}
TXMLHTTP30 = class(TOleServer)
private
FIntf: IXMLHTTPRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TXMLHTTP30Properties;
function GetServerProperties: TXMLHTTP30Properties;
{$ENDIF}
function GetDefaultInterface: IXMLHTTPRequest;
protected
procedure InitServerData; override;
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IXMLHTTPRequest);
procedure Disconnect; override;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant; bstrPassword: OleVariant); overload;
procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
function getResponseHeader(const bstrHeader: WideString): WideString;
function getAllResponseHeaders: WideString;
procedure send; overload;
procedure send(varBody: OleVariant); overload;
procedure abort;
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
property status: Integer read Get_status;
property statusText: WideString read Get_statusText;
property responseXML: IDispatch read Get_responseXML;
property responseText: WideString read Get_responseText;
property responseBody: OleVariant read Get_responseBody;
property responseStream: OleVariant read Get_responseStream;
property readyState: Integer read Get_readyState;
property onreadystatechange: IDispatch write Set_onreadystatechange;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TXMLHTTP30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TXMLHTTP30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TXMLHTTP30Properties = class(TPersistent)
private
FServer: TXMLHTTP30;
function GetDefaultInterface: IXMLHTTPRequest;
constructor Create(AServer: TXMLHTTP30);
protected
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
property DefaultInterface: IXMLHTTPRequest read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoServerXMLHTTP provides a Create and CreateRemote method to
// create instances of the default interface IServerXMLHTTPRequest exposed by
// the CoClass ServerXMLHTTP. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoServerXMLHTTP = class
class function Create: IServerXMLHTTPRequest;
class function CreateRemote(const MachineName: string): IServerXMLHTTPRequest;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TServerXMLHTTP
// Help String : Server XML HTTP Request class.
// Default Interface: IServerXMLHTTPRequest
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TServerXMLHTTPProperties= class;
{$ENDIF}
TServerXMLHTTP = class(TOleServer)
private
FIntf: IServerXMLHTTPRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TServerXMLHTTPProperties;
function GetServerProperties: TServerXMLHTTPProperties;
{$ENDIF}
function GetDefaultInterface: IServerXMLHTTPRequest;
protected
procedure InitServerData; override;
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IServerXMLHTTPRequest);
procedure Disconnect; override;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant; bstrPassword: OleVariant); overload;
procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
function getResponseHeader(const bstrHeader: WideString): WideString;
function getAllResponseHeaders: WideString;
procedure send; overload;
procedure send(varBody: OleVariant); overload;
procedure abort;
procedure setTimeouts(resolveTimeout: Integer; connectTimeout: Integer; sendTimeout: Integer;
receiveTimeout: Integer);
function waitForResponse: WordBool; overload;
function waitForResponse(timeoutInSeconds: OleVariant): WordBool; overload;
function getOption(option: SERVERXMLHTTP_OPTION): OleVariant;
procedure setOption(option: SERVERXMLHTTP_OPTION; value: OleVariant);
property DefaultInterface: IServerXMLHTTPRequest read GetDefaultInterface;
property status: Integer read Get_status;
property statusText: WideString read Get_statusText;
property responseXML: IDispatch read Get_responseXML;
property responseText: WideString read Get_responseText;
property responseBody: OleVariant read Get_responseBody;
property responseStream: OleVariant read Get_responseStream;
property readyState: Integer read Get_readyState;
property onreadystatechange: IDispatch write Set_onreadystatechange;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TServerXMLHTTPProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TServerXMLHTTP
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TServerXMLHTTPProperties = class(TPersistent)
private
FServer: TServerXMLHTTP;
function GetDefaultInterface: IServerXMLHTTPRequest;
constructor Create(AServer: TServerXMLHTTP);
protected
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
property DefaultInterface: IServerXMLHTTPRequest read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoServerXMLHTTP30 provides a Create and CreateRemote method to
// create instances of the default interface IServerXMLHTTPRequest exposed by
// the CoClass ServerXMLHTTP30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoServerXMLHTTP30 = class
class function Create: IServerXMLHTTPRequest;
class function CreateRemote(const MachineName: string): IServerXMLHTTPRequest;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TServerXMLHTTP30
// Help String : Server XML HTTP Request class.
// Default Interface: IServerXMLHTTPRequest
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TServerXMLHTTP30Properties= class;
{$ENDIF}
TServerXMLHTTP30 = class(TOleServer)
private
FIntf: IServerXMLHTTPRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TServerXMLHTTP30Properties;
function GetServerProperties: TServerXMLHTTP30Properties;
{$ENDIF}
function GetDefaultInterface: IServerXMLHTTPRequest;
protected
procedure InitServerData; override;
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IServerXMLHTTPRequest);
procedure Disconnect; override;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant); overload;
procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
bstrUser: OleVariant; bstrPassword: OleVariant); overload;
procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
function getResponseHeader(const bstrHeader: WideString): WideString;
function getAllResponseHeaders: WideString;
procedure send; overload;
procedure send(varBody: OleVariant); overload;
procedure abort;
procedure setTimeouts(resolveTimeout: Integer; connectTimeout: Integer; sendTimeout: Integer;
receiveTimeout: Integer);
function waitForResponse: WordBool; overload;
function waitForResponse(timeoutInSeconds: OleVariant): WordBool; overload;
function getOption(option: SERVERXMLHTTP_OPTION): OleVariant;
procedure setOption(option: SERVERXMLHTTP_OPTION; value: OleVariant);
property DefaultInterface: IServerXMLHTTPRequest read GetDefaultInterface;
property status: Integer read Get_status;
property statusText: WideString read Get_statusText;
property responseXML: IDispatch read Get_responseXML;
property responseText: WideString read Get_responseText;
property responseBody: OleVariant read Get_responseBody;
property responseStream: OleVariant read Get_responseStream;
property readyState: Integer read Get_readyState;
property onreadystatechange: IDispatch write Set_onreadystatechange;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TServerXMLHTTP30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TServerXMLHTTP30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TServerXMLHTTP30Properties = class(TPersistent)
private
FServer: TServerXMLHTTP30;
function GetDefaultInterface: IServerXMLHTTPRequest;
constructor Create(AServer: TServerXMLHTTP30);
protected
function Get_status: Integer;
function Get_statusText: WideString;
function Get_responseXML: IDispatch;
function Get_responseText: WideString;
function Get_responseBody: OleVariant;
function Get_responseStream: OleVariant;
function Get_readyState: Integer;
procedure Set_onreadystatechange(const Param1: IDispatch);
public
property DefaultInterface: IServerXMLHTTPRequest read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSAXXMLReader provides a Create and CreateRemote method to
// create instances of the default interface IVBSAXXMLReader exposed by
// the CoClass SAXXMLReader. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSAXXMLReader = class
class function Create: IVBSAXXMLReader;
class function CreateRemote(const MachineName: string): IVBSAXXMLReader;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSAXXMLReader
// Help String : SAX XML Reader (version independent) coclass
// Default Interface: IVBSAXXMLReader
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSAXXMLReaderProperties= class;
{$ENDIF}
TSAXXMLReader = class(TOleServer)
private
FIntf: IVBSAXXMLReader;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSAXXMLReaderProperties;
function GetServerProperties: TSAXXMLReaderProperties;
{$ENDIF}
function GetDefaultInterface: IVBSAXXMLReader;
protected
procedure InitServerData; override;
function Get_entityResolver: IVBSAXEntityResolver;
procedure Set_entityResolver(const oResolver: IVBSAXEntityResolver);
function Get_contentHandler: IVBSAXContentHandler;
procedure Set_contentHandler(const oHandler: IVBSAXContentHandler);
function Get_dtdHandler: IVBSAXDTDHandler;
procedure Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
function Get_errorHandler: IVBSAXErrorHandler;
procedure Set_errorHandler(const oHandler: IVBSAXErrorHandler);
function Get_baseURL: WideString;
procedure Set_baseURL(const strBaseURL: WideString);
function Get_secureBaseURL: WideString;
procedure Set_secureBaseURL(const strSecureBaseURL: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IVBSAXXMLReader);
procedure Disconnect; override;
function getFeature(const strName: WideString): WordBool;
procedure putFeature(const strName: WideString; fValue: WordBool);
function getProperty(const strName: WideString): OleVariant;
procedure putProperty(const strName: WideString; varValue: OleVariant);
procedure parse(varInput: OleVariant);
procedure parseURL(const strURL: WideString);
property DefaultInterface: IVBSAXXMLReader read GetDefaultInterface;
property entityResolver: IVBSAXEntityResolver read Get_entityResolver write Set_entityResolver;
property contentHandler: IVBSAXContentHandler read Get_contentHandler write Set_contentHandler;
property dtdHandler: IVBSAXDTDHandler read Get_dtdHandler write Set_dtdHandler;
property errorHandler: IVBSAXErrorHandler read Get_errorHandler write Set_errorHandler;
property baseURL: WideString read Get_baseURL write Set_baseURL;
property secureBaseURL: WideString read Get_secureBaseURL write Set_secureBaseURL;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSAXXMLReaderProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSAXXMLReader
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSAXXMLReaderProperties = class(TPersistent)
private
FServer: TSAXXMLReader;
function GetDefaultInterface: IVBSAXXMLReader;
constructor Create(AServer: TSAXXMLReader);
protected
function Get_entityResolver: IVBSAXEntityResolver;
procedure Set_entityResolver(const oResolver: IVBSAXEntityResolver);
function Get_contentHandler: IVBSAXContentHandler;
procedure Set_contentHandler(const oHandler: IVBSAXContentHandler);
function Get_dtdHandler: IVBSAXDTDHandler;
procedure Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
function Get_errorHandler: IVBSAXErrorHandler;
procedure Set_errorHandler(const oHandler: IVBSAXErrorHandler);
function Get_baseURL: WideString;
procedure Set_baseURL(const strBaseURL: WideString);
function Get_secureBaseURL: WideString;
procedure Set_secureBaseURL(const strSecureBaseURL: WideString);
public
property DefaultInterface: IVBSAXXMLReader read GetDefaultInterface;
published
property baseURL: WideString read Get_baseURL write Set_baseURL;
property secureBaseURL: WideString read Get_secureBaseURL write Set_secureBaseURL;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSAXXMLReader30 provides a Create and CreateRemote method to
// create instances of the default interface IVBSAXXMLReader exposed by
// the CoClass SAXXMLReader30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSAXXMLReader30 = class
class function Create: IVBSAXXMLReader;
class function CreateRemote(const MachineName: string): IVBSAXXMLReader;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSAXXMLReader30
// Help String : SAX XML Reader 3.0 coclass
// Default Interface: IVBSAXXMLReader
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSAXXMLReader30Properties= class;
{$ENDIF}
TSAXXMLReader30 = class(TOleServer)
private
FIntf: IVBSAXXMLReader;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSAXXMLReader30Properties;
function GetServerProperties: TSAXXMLReader30Properties;
{$ENDIF}
function GetDefaultInterface: IVBSAXXMLReader;
protected
procedure InitServerData; override;
function Get_entityResolver: IVBSAXEntityResolver;
procedure Set_entityResolver(const oResolver: IVBSAXEntityResolver);
function Get_contentHandler: IVBSAXContentHandler;
procedure Set_contentHandler(const oHandler: IVBSAXContentHandler);
function Get_dtdHandler: IVBSAXDTDHandler;
procedure Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
function Get_errorHandler: IVBSAXErrorHandler;
procedure Set_errorHandler(const oHandler: IVBSAXErrorHandler);
function Get_baseURL: WideString;
procedure Set_baseURL(const strBaseURL: WideString);
function Get_secureBaseURL: WideString;
procedure Set_secureBaseURL(const strSecureBaseURL: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IVBSAXXMLReader);
procedure Disconnect; override;
function getFeature(const strName: WideString): WordBool;
procedure putFeature(const strName: WideString; fValue: WordBool);
function getProperty(const strName: WideString): OleVariant;
procedure putProperty(const strName: WideString; varValue: OleVariant);
procedure parse(varInput: OleVariant);
procedure parseURL(const strURL: WideString);
property DefaultInterface: IVBSAXXMLReader read GetDefaultInterface;
property entityResolver: IVBSAXEntityResolver read Get_entityResolver write Set_entityResolver;
property contentHandler: IVBSAXContentHandler read Get_contentHandler write Set_contentHandler;
property dtdHandler: IVBSAXDTDHandler read Get_dtdHandler write Set_dtdHandler;
property errorHandler: IVBSAXErrorHandler read Get_errorHandler write Set_errorHandler;
property baseURL: WideString read Get_baseURL write Set_baseURL;
property secureBaseURL: WideString read Get_secureBaseURL write Set_secureBaseURL;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSAXXMLReader30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSAXXMLReader30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSAXXMLReader30Properties = class(TPersistent)
private
FServer: TSAXXMLReader30;
function GetDefaultInterface: IVBSAXXMLReader;
constructor Create(AServer: TSAXXMLReader30);
protected
function Get_entityResolver: IVBSAXEntityResolver;
procedure Set_entityResolver(const oResolver: IVBSAXEntityResolver);
function Get_contentHandler: IVBSAXContentHandler;
procedure Set_contentHandler(const oHandler: IVBSAXContentHandler);
function Get_dtdHandler: IVBSAXDTDHandler;
procedure Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
function Get_errorHandler: IVBSAXErrorHandler;
procedure Set_errorHandler(const oHandler: IVBSAXErrorHandler);
function Get_baseURL: WideString;
procedure Set_baseURL(const strBaseURL: WideString);
function Get_secureBaseURL: WideString;
procedure Set_secureBaseURL(const strSecureBaseURL: WideString);
public
property DefaultInterface: IVBSAXXMLReader read GetDefaultInterface;
published
property baseURL: WideString read Get_baseURL write Set_baseURL;
property secureBaseURL: WideString read Get_secureBaseURL write Set_secureBaseURL;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoMXXMLWriter provides a Create and CreateRemote method to
// create instances of the default interface IMXWriter exposed by
// the CoClass MXXMLWriter. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoMXXMLWriter = class
class function Create: IMXWriter;
class function CreateRemote(const MachineName: string): IMXWriter;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TMXXMLWriter
// Help String : Microsoft XML Writer (version independent) coclass
// Default Interface: IMXWriter
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TMXXMLWriterProperties= class;
{$ENDIF}
TMXXMLWriter = class(TOleServer)
private
FIntf: IMXWriter;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TMXXMLWriterProperties;
function GetServerProperties: TMXXMLWriterProperties;
{$ENDIF}
function GetDefaultInterface: IMXWriter;
protected
procedure InitServerData; override;
procedure Set_output(varDestination: OleVariant);
function Get_output: OleVariant;
procedure Set_encoding(const strEncoding: WideString);
function Get_encoding: WideString;
procedure Set_byteOrderMark(fWriteByteOrderMark: WordBool);
function Get_byteOrderMark: WordBool;
procedure Set_indent(fIndentMode: WordBool);
function Get_indent: WordBool;
procedure Set_standalone(fValue: WordBool);
function Get_standalone: WordBool;
procedure Set_omitXMLDeclaration(fValue: WordBool);
function Get_omitXMLDeclaration: WordBool;
procedure Set_version(const strVersion: WideString);
function Get_version: WideString;
procedure Set_disableOutputEscaping(fValue: WordBool);
function Get_disableOutputEscaping: WordBool;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMXWriter);
procedure Disconnect; override;
procedure flush;
property DefaultInterface: IMXWriter read GetDefaultInterface;
property output: OleVariant read Get_output write Set_output;
property encoding: WideString read Get_encoding write Set_encoding;
property byteOrderMark: WordBool read Get_byteOrderMark write Set_byteOrderMark;
property indent: WordBool read Get_indent write Set_indent;
property standalone: WordBool read Get_standalone write Set_standalone;
property omitXMLDeclaration: WordBool read Get_omitXMLDeclaration write Set_omitXMLDeclaration;
property version: WideString read Get_version write Set_version;
property disableOutputEscaping: WordBool read Get_disableOutputEscaping write Set_disableOutputEscaping;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TMXXMLWriterProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TMXXMLWriter
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TMXXMLWriterProperties = class(TPersistent)
private
FServer: TMXXMLWriter;
function GetDefaultInterface: IMXWriter;
constructor Create(AServer: TMXXMLWriter);
protected
procedure Set_output(varDestination: OleVariant);
function Get_output: OleVariant;
procedure Set_encoding(const strEncoding: WideString);
function Get_encoding: WideString;
procedure Set_byteOrderMark(fWriteByteOrderMark: WordBool);
function Get_byteOrderMark: WordBool;
procedure Set_indent(fIndentMode: WordBool);
function Get_indent: WordBool;
procedure Set_standalone(fValue: WordBool);
function Get_standalone: WordBool;
procedure Set_omitXMLDeclaration(fValue: WordBool);
function Get_omitXMLDeclaration: WordBool;
procedure Set_version(const strVersion: WideString);
function Get_version: WideString;
procedure Set_disableOutputEscaping(fValue: WordBool);
function Get_disableOutputEscaping: WordBool;
public
property DefaultInterface: IMXWriter read GetDefaultInterface;
published
property encoding: WideString read Get_encoding write Set_encoding;
property byteOrderMark: WordBool read Get_byteOrderMark write Set_byteOrderMark;
property indent: WordBool read Get_indent write Set_indent;
property standalone: WordBool read Get_standalone write Set_standalone;
property omitXMLDeclaration: WordBool read Get_omitXMLDeclaration write Set_omitXMLDeclaration;
property version: WideString read Get_version write Set_version;
property disableOutputEscaping: WordBool read Get_disableOutputEscaping write Set_disableOutputEscaping;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoMXXMLWriter30 provides a Create and CreateRemote method to
// create instances of the default interface IMXWriter exposed by
// the CoClass MXXMLWriter30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoMXXMLWriter30 = class
class function Create: IMXWriter;
class function CreateRemote(const MachineName: string): IMXWriter;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TMXXMLWriter30
// Help String : Microsoft XML Writer 3.0 coclass
// Default Interface: IMXWriter
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TMXXMLWriter30Properties= class;
{$ENDIF}
TMXXMLWriter30 = class(TOleServer)
private
FIntf: IMXWriter;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TMXXMLWriter30Properties;
function GetServerProperties: TMXXMLWriter30Properties;
{$ENDIF}
function GetDefaultInterface: IMXWriter;
protected
procedure InitServerData; override;
procedure Set_output(varDestination: OleVariant);
function Get_output: OleVariant;
procedure Set_encoding(const strEncoding: WideString);
function Get_encoding: WideString;
procedure Set_byteOrderMark(fWriteByteOrderMark: WordBool);
function Get_byteOrderMark: WordBool;
procedure Set_indent(fIndentMode: WordBool);
function Get_indent: WordBool;
procedure Set_standalone(fValue: WordBool);
function Get_standalone: WordBool;
procedure Set_omitXMLDeclaration(fValue: WordBool);
function Get_omitXMLDeclaration: WordBool;
procedure Set_version(const strVersion: WideString);
function Get_version: WideString;
procedure Set_disableOutputEscaping(fValue: WordBool);
function Get_disableOutputEscaping: WordBool;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMXWriter);
procedure Disconnect; override;
procedure flush;
property DefaultInterface: IMXWriter read GetDefaultInterface;
property output: OleVariant read Get_output write Set_output;
property encoding: WideString read Get_encoding write Set_encoding;
property byteOrderMark: WordBool read Get_byteOrderMark write Set_byteOrderMark;
property indent: WordBool read Get_indent write Set_indent;
property standalone: WordBool read Get_standalone write Set_standalone;
property omitXMLDeclaration: WordBool read Get_omitXMLDeclaration write Set_omitXMLDeclaration;
property version: WideString read Get_version write Set_version;
property disableOutputEscaping: WordBool read Get_disableOutputEscaping write Set_disableOutputEscaping;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TMXXMLWriter30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TMXXMLWriter30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TMXXMLWriter30Properties = class(TPersistent)
private
FServer: TMXXMLWriter30;
function GetDefaultInterface: IMXWriter;
constructor Create(AServer: TMXXMLWriter30);
protected
procedure Set_output(varDestination: OleVariant);
function Get_output: OleVariant;
procedure Set_encoding(const strEncoding: WideString);
function Get_encoding: WideString;
procedure Set_byteOrderMark(fWriteByteOrderMark: WordBool);
function Get_byteOrderMark: WordBool;
procedure Set_indent(fIndentMode: WordBool);
function Get_indent: WordBool;
procedure Set_standalone(fValue: WordBool);
function Get_standalone: WordBool;
procedure Set_omitXMLDeclaration(fValue: WordBool);
function Get_omitXMLDeclaration: WordBool;
procedure Set_version(const strVersion: WideString);
function Get_version: WideString;
procedure Set_disableOutputEscaping(fValue: WordBool);
function Get_disableOutputEscaping: WordBool;
public
property DefaultInterface: IMXWriter read GetDefaultInterface;
published
property encoding: WideString read Get_encoding write Set_encoding;
property byteOrderMark: WordBool read Get_byteOrderMark write Set_byteOrderMark;
property indent: WordBool read Get_indent write Set_indent;
property standalone: WordBool read Get_standalone write Set_standalone;
property omitXMLDeclaration: WordBool read Get_omitXMLDeclaration write Set_omitXMLDeclaration;
property version: WideString read Get_version write Set_version;
property disableOutputEscaping: WordBool read Get_disableOutputEscaping write Set_disableOutputEscaping;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSAXAttributes provides a Create and CreateRemote method to
// create instances of the default interface IMXAttributes exposed by
// the CoClass SAXAttributes. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSAXAttributes = class
class function Create: IMXAttributes;
class function CreateRemote(const MachineName: string): IMXAttributes;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSAXAttributes
// Help String : SAX Attributes (version independent) coclass
// Default Interface: IMXAttributes
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSAXAttributesProperties= class;
{$ENDIF}
TSAXAttributes = class(TOleServer)
private
FIntf: IMXAttributes;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSAXAttributesProperties;
function GetServerProperties: TSAXAttributesProperties;
{$ENDIF}
function GetDefaultInterface: IMXAttributes;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMXAttributes);
procedure Disconnect; override;
procedure addAttribute(const strURI: WideString; const strLocalName: WideString;
const strQName: WideString; const strType: WideString;
const strValue: WideString);
procedure addAttributeFromIndex(varAtts: OleVariant; nIndex: SYSINT);
procedure clear;
procedure removeAttribute(nIndex: SYSINT);
procedure setAttribute(nIndex: SYSINT; const strURI: WideString;
const strLocalName: WideString; const strQName: WideString;
const strType: WideString; const strValue: WideString);
procedure setAttributes(varAtts: OleVariant);
procedure setLocalName(nIndex: SYSINT; const strLocalName: WideString);
procedure setQName(nIndex: SYSINT; const strQName: WideString);
procedure setType(nIndex: SYSINT; const strType: WideString);
procedure setURI(nIndex: SYSINT; const strURI: WideString);
procedure setValue(nIndex: SYSINT; const strValue: WideString);
property DefaultInterface: IMXAttributes read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSAXAttributesProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSAXAttributes
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSAXAttributesProperties = class(TPersistent)
private
FServer: TSAXAttributes;
function GetDefaultInterface: IMXAttributes;
constructor Create(AServer: TSAXAttributes);
protected
public
property DefaultInterface: IMXAttributes read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSAXAttributes30 provides a Create and CreateRemote method to
// create instances of the default interface IMXAttributes exposed by
// the CoClass SAXAttributes30. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSAXAttributes30 = class
class function Create: IMXAttributes;
class function CreateRemote(const MachineName: string): IMXAttributes;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSAXAttributes30
// Help String : SAX Attributes 3.0 coclass
// Default Interface: IMXAttributes
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSAXAttributes30Properties= class;
{$ENDIF}
TSAXAttributes30 = class(TOleServer)
private
FIntf: IMXAttributes;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSAXAttributes30Properties;
function GetServerProperties: TSAXAttributes30Properties;
{$ENDIF}
function GetDefaultInterface: IMXAttributes;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMXAttributes);
procedure Disconnect; override;
procedure addAttribute(const strURI: WideString; const strLocalName: WideString;
const strQName: WideString; const strType: WideString;
const strValue: WideString);
procedure addAttributeFromIndex(varAtts: OleVariant; nIndex: SYSINT);
procedure clear;
procedure removeAttribute(nIndex: SYSINT);
procedure setAttribute(nIndex: SYSINT; const strURI: WideString;
const strLocalName: WideString; const strQName: WideString;
const strType: WideString; const strValue: WideString);
procedure setAttributes(varAtts: OleVariant);
procedure setLocalName(nIndex: SYSINT; const strLocalName: WideString);
procedure setQName(nIndex: SYSINT; const strQName: WideString);
procedure setType(nIndex: SYSINT; const strType: WideString);
procedure setURI(nIndex: SYSINT; const strURI: WideString);
procedure setValue(nIndex: SYSINT; const strValue: WideString);
property DefaultInterface: IMXAttributes read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSAXAttributes30Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSAXAttributes30
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSAXAttributes30Properties = class(TPersistent)
private
FServer: TSAXAttributes30;
function GetDefaultInterface: IMXAttributes;
constructor Create(AServer: TSAXAttributes30);
protected
public
property DefaultInterface: IMXAttributes read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoXMLDocument provides a Create and CreateRemote method to
// create instances of the default interface IXMLDocument2 exposed by
// the CoClass XMLDocument. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoXMLDocument = class
class function Create: IXMLDocument2;
class function CreateRemote(const MachineName: string): IXMLDocument2;
end;
procedure Register;
implementation
uses ComObj;
class function CoDOMDocument.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument2;
end;
class function CoDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument) as IXMLDOMDocument2;
end;
procedure TDOMDocument.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F6D90F11-9C73-11D3-B32E-00C04F990BB4}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDOMDocument.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TDOMDocument.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TDOMDocument.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TDOMDocument.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDOMDocument.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDOMDocumentProperties.Create(Self);
{$ENDIF}
end;
destructor TDOMDocument.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDOMDocument.GetServerProperties: TDOMDocumentProperties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TDOMDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TDOMDocument.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocument.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocument.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TDOMDocument.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TDOMDocument.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TDOMDocument.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDOMDocumentProperties.Create(AServer: TDOMDocument);
begin
inherited Create;
FServer := AServer;
end;
function TDOMDocumentProperties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TDOMDocumentProperties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocumentProperties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocumentProperties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoDOMDocument26.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_DOMDocument26) as IXMLDOMDocument2;
end;
class function CoDOMDocument26.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument26) as IXMLDOMDocument2;
end;
procedure TDOMDocument26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F1B-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDOMDocument26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TDOMDocument26.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TDOMDocument26.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TDOMDocument26.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDOMDocument26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDOMDocument26Properties.Create(Self);
{$ENDIF}
end;
destructor TDOMDocument26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDOMDocument26.GetServerProperties: TDOMDocument26Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TDOMDocument26.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TDOMDocument26.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocument26.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocument26.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TDOMDocument26.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TDOMDocument26.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TDOMDocument26.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDOMDocument26Properties.Create(AServer: TDOMDocument26);
begin
inherited Create;
FServer := AServer;
end;
function TDOMDocument26Properties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TDOMDocument26Properties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocument26Properties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocument26Properties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoDOMDocument30.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_DOMDocument30) as IXMLDOMDocument2;
end;
class function CoDOMDocument30.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument30) as IXMLDOMDocument2;
end;
procedure TDOMDocument30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F32-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDOMDocument30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TDOMDocument30.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TDOMDocument30.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TDOMDocument30.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDOMDocument30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDOMDocument30Properties.Create(Self);
{$ENDIF}
end;
destructor TDOMDocument30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDOMDocument30.GetServerProperties: TDOMDocument30Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TDOMDocument30.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TDOMDocument30.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocument30.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocument30.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TDOMDocument30.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TDOMDocument30.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TDOMDocument30.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDOMDocument30Properties.Create(AServer: TDOMDocument30);
begin
inherited Create;
FServer := AServer;
end;
function TDOMDocument30Properties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TDOMDocument30Properties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TDOMDocument30Properties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TDOMDocument30Properties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoFreeThreadedDOMDocument.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_FreeThreadedDOMDocument) as IXMLDOMDocument2;
end;
class function CoFreeThreadedDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument) as IXMLDOMDocument2;
end;
procedure TFreeThreadedDOMDocument.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F6D90F12-9C73-11D3-B32E-00C04F990BB4}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TFreeThreadedDOMDocument.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TFreeThreadedDOMDocument.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TFreeThreadedDOMDocument.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TFreeThreadedDOMDocument.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TFreeThreadedDOMDocument.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TFreeThreadedDOMDocumentProperties.Create(Self);
{$ENDIF}
end;
destructor TFreeThreadedDOMDocument.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TFreeThreadedDOMDocument.GetServerProperties: TFreeThreadedDOMDocumentProperties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TFreeThreadedDOMDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TFreeThreadedDOMDocument.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocument.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocument.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TFreeThreadedDOMDocument.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TFreeThreadedDOMDocument.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TFreeThreadedDOMDocument.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TFreeThreadedDOMDocumentProperties.Create(AServer: TFreeThreadedDOMDocument);
begin
inherited Create;
FServer := AServer;
end;
function TFreeThreadedDOMDocumentProperties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TFreeThreadedDOMDocumentProperties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocumentProperties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocumentProperties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoFreeThreadedDOMDocument26.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_FreeThreadedDOMDocument26) as IXMLDOMDocument2;
end;
class function CoFreeThreadedDOMDocument26.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument26) as IXMLDOMDocument2;
end;
procedure TFreeThreadedDOMDocument26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F1C-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TFreeThreadedDOMDocument26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TFreeThreadedDOMDocument26.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TFreeThreadedDOMDocument26.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TFreeThreadedDOMDocument26.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TFreeThreadedDOMDocument26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TFreeThreadedDOMDocument26Properties.Create(Self);
{$ENDIF}
end;
destructor TFreeThreadedDOMDocument26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TFreeThreadedDOMDocument26.GetServerProperties: TFreeThreadedDOMDocument26Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TFreeThreadedDOMDocument26.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TFreeThreadedDOMDocument26.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocument26.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocument26.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TFreeThreadedDOMDocument26.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TFreeThreadedDOMDocument26.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TFreeThreadedDOMDocument26.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TFreeThreadedDOMDocument26Properties.Create(AServer: TFreeThreadedDOMDocument26);
begin
inherited Create;
FServer := AServer;
end;
function TFreeThreadedDOMDocument26Properties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TFreeThreadedDOMDocument26Properties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocument26Properties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocument26Properties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoFreeThreadedDOMDocument30.Create: IXMLDOMDocument2;
begin
Result := CreateComObject(CLASS_FreeThreadedDOMDocument30) as IXMLDOMDocument2;
end;
class function CoFreeThreadedDOMDocument30.CreateRemote(const MachineName: string): IXMLDOMDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument30) as IXMLDOMDocument2;
end;
procedure TFreeThreadedDOMDocument30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F33-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TFreeThreadedDOMDocument30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IXMLDOMDocument2;
end;
end;
procedure TFreeThreadedDOMDocument30.ConnectTo(svrIntf: IXMLDOMDocument2);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;
procedure TFreeThreadedDOMDocument30.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;
function TFreeThreadedDOMDocument30.GetDefaultInterface: IXMLDOMDocument2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TFreeThreadedDOMDocument30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TFreeThreadedDOMDocument30Properties.Create(Self);
{$ENDIF}
end;
destructor TFreeThreadedDOMDocument30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TFreeThreadedDOMDocument30.GetServerProperties: TFreeThreadedDOMDocument30Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TFreeThreadedDOMDocument30.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
198: if Assigned(FOnondataavailable) then
FOnondataavailable(Self);
-609: if Assigned(FOnonreadystatechange) then
FOnonreadystatechange(Self);
end; {case DispID}
end;
function TFreeThreadedDOMDocument30.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocument30.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocument30.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
function TFreeThreadedDOMDocument30.validate: IXMLDOMParseError;
begin
Result := DefaultInterface.validate;
end;
procedure TFreeThreadedDOMDocument30.setProperty(const name: WideString; value: OleVariant);
begin
DefaultInterface.setProperty(name, value);
end;
function TFreeThreadedDOMDocument30.getProperty(const name: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(name);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TFreeThreadedDOMDocument30Properties.Create(AServer: TFreeThreadedDOMDocument30);
begin
inherited Create;
FServer := AServer;
end;
function TFreeThreadedDOMDocument30Properties.GetDefaultInterface: IXMLDOMDocument2;
begin
Result := FServer.DefaultInterface;
end;
function TFreeThreadedDOMDocument30Properties.Get_namespaces: IXMLDOMSchemaCollection;
begin
Result := DefaultInterface.Get_namespaces;
end;
function TFreeThreadedDOMDocument30Properties.Get_schemas: OleVariant;
begin
Result := DefaultInterface.Get_schemas;
end;
procedure TFreeThreadedDOMDocument30Properties.Set_schemas(otherCollection: OleVariant);
begin
DefaultInterface.Set_schemas(otherCollection);
end;
{$ENDIF}
class function CoXMLSchemaCache.Create: IXMLDOMSchemaCollection;
begin
Result := CreateComObject(CLASS_XMLSchemaCache) as IXMLDOMSchemaCollection;
end;
class function CoXMLSchemaCache.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache) as IXMLDOMSchemaCollection;
end;
procedure TXMLSchemaCache.InitServerData;
const
CServerData: TServerData = (
ClassID: '{373984C9-B845-449B-91E7-45AC83036ADE}';
IntfIID: '{373984C8-B845-449B-91E7-45AC83036ADE}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLSchemaCache.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLDOMSchemaCollection;
end;
end;
procedure TXMLSchemaCache.ConnectTo(svrIntf: IXMLDOMSchemaCollection);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLSchemaCache.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLSchemaCache.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLSchemaCache.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLSchemaCacheProperties.Create(Self);
{$ENDIF}
end;
destructor TXMLSchemaCache.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLSchemaCache.GetServerProperties: TXMLSchemaCacheProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLSchemaCache.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCache.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
procedure TXMLSchemaCache.add(const namespaceURI: WideString; var_: OleVariant);
begin
DefaultInterface.add(namespaceURI, var_);
end;
function TXMLSchemaCache.get(const namespaceURI: WideString): IXMLDOMNode;
begin
Result := DefaultInterface.get(namespaceURI);
end;
procedure TXMLSchemaCache.remove(const namespaceURI: WideString);
begin
DefaultInterface.remove(namespaceURI);
end;
procedure TXMLSchemaCache.addCollection(const otherCollection: IXMLDOMSchemaCollection);
begin
DefaultInterface.addCollection(otherCollection);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLSchemaCacheProperties.Create(AServer: TXMLSchemaCache);
begin
inherited Create;
FServer := AServer;
end;
function TXMLSchemaCacheProperties.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
Result := FServer.DefaultInterface;
end;
function TXMLSchemaCacheProperties.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCacheProperties.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
{$ENDIF}
class function CoXMLSchemaCache26.Create: IXMLDOMSchemaCollection;
begin
Result := CreateComObject(CLASS_XMLSchemaCache26) as IXMLDOMSchemaCollection;
end;
class function CoXMLSchemaCache26.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache26) as IXMLDOMSchemaCollection;
end;
procedure TXMLSchemaCache26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F1D-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{373984C8-B845-449B-91E7-45AC83036ADE}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLSchemaCache26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLDOMSchemaCollection;
end;
end;
procedure TXMLSchemaCache26.ConnectTo(svrIntf: IXMLDOMSchemaCollection);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLSchemaCache26.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLSchemaCache26.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLSchemaCache26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLSchemaCache26Properties.Create(Self);
{$ENDIF}
end;
destructor TXMLSchemaCache26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLSchemaCache26.GetServerProperties: TXMLSchemaCache26Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLSchemaCache26.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCache26.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
procedure TXMLSchemaCache26.add(const namespaceURI: WideString; var_: OleVariant);
begin
DefaultInterface.add(namespaceURI, var_);
end;
function TXMLSchemaCache26.get(const namespaceURI: WideString): IXMLDOMNode;
begin
Result := DefaultInterface.get(namespaceURI);
end;
procedure TXMLSchemaCache26.remove(const namespaceURI: WideString);
begin
DefaultInterface.remove(namespaceURI);
end;
procedure TXMLSchemaCache26.addCollection(const otherCollection: IXMLDOMSchemaCollection);
begin
DefaultInterface.addCollection(otherCollection);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLSchemaCache26Properties.Create(AServer: TXMLSchemaCache26);
begin
inherited Create;
FServer := AServer;
end;
function TXMLSchemaCache26Properties.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
Result := FServer.DefaultInterface;
end;
function TXMLSchemaCache26Properties.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCache26Properties.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
{$ENDIF}
class function CoXMLSchemaCache30.Create: IXMLDOMSchemaCollection;
begin
Result := CreateComObject(CLASS_XMLSchemaCache30) as IXMLDOMSchemaCollection;
end;
class function CoXMLSchemaCache30.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache30) as IXMLDOMSchemaCollection;
end;
procedure TXMLSchemaCache30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F34-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{373984C8-B845-449B-91E7-45AC83036ADE}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLSchemaCache30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLDOMSchemaCollection;
end;
end;
procedure TXMLSchemaCache30.ConnectTo(svrIntf: IXMLDOMSchemaCollection);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLSchemaCache30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLSchemaCache30.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLSchemaCache30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLSchemaCache30Properties.Create(Self);
{$ENDIF}
end;
destructor TXMLSchemaCache30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLSchemaCache30.GetServerProperties: TXMLSchemaCache30Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLSchemaCache30.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCache30.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
procedure TXMLSchemaCache30.add(const namespaceURI: WideString; var_: OleVariant);
begin
DefaultInterface.add(namespaceURI, var_);
end;
function TXMLSchemaCache30.get(const namespaceURI: WideString): IXMLDOMNode;
begin
Result := DefaultInterface.get(namespaceURI);
end;
procedure TXMLSchemaCache30.remove(const namespaceURI: WideString);
begin
DefaultInterface.remove(namespaceURI);
end;
procedure TXMLSchemaCache30.addCollection(const otherCollection: IXMLDOMSchemaCollection);
begin
DefaultInterface.addCollection(otherCollection);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLSchemaCache30Properties.Create(AServer: TXMLSchemaCache30);
begin
inherited Create;
FServer := AServer;
end;
function TXMLSchemaCache30Properties.GetDefaultInterface: IXMLDOMSchemaCollection;
begin
Result := FServer.DefaultInterface;
end;
function TXMLSchemaCache30Properties.Get_length: Integer;
begin
Result := DefaultInterface.Get_length;
end;
function TXMLSchemaCache30Properties.Get_namespaceURI(index: Integer): WideString;
begin
Result := DefaultInterface.Get_namespaceURI(index);
end;
{$ENDIF}
class function CoXSLTemplate.Create: IXSLTemplate;
begin
Result := CreateComObject(CLASS_XSLTemplate) as IXSLTemplate;
end;
class function CoXSLTemplate.CreateRemote(const MachineName: string): IXSLTemplate;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate) as IXSLTemplate;
end;
procedure TXSLTemplate.InitServerData;
const
CServerData: TServerData = (
ClassID: '{2933BF94-7B36-11D2-B20E-00C04F983E60}';
IntfIID: '{2933BF93-7B36-11D2-B20E-00C04F983E60}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXSLTemplate.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXSLTemplate;
end;
end;
procedure TXSLTemplate.ConnectTo(svrIntf: IXSLTemplate);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXSLTemplate.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXSLTemplate.GetDefaultInterface: IXSLTemplate;