msxml_tlb.pas

来自「Clever_Internet_Suite_6.2的代码 Clever_Int」· PAS 代码 · 共 1,218 行 · 第 1/5 页

    function  load(xmlSource: OleVariant): WordBool;
    procedure abort;
    function  loadXML(const bstrXML: WideString): WordBool;
    procedure save(desination: OleVariant);
    property  DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
    property doctype: IXMLDOMDocumentType read Get_doctype;
    property implementation_: IXMLDOMImplementation read Get_implementation_;
    property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement;
    property readyState: Integer read Get_readyState;
    property parseError: IXMLDOMParseError read Get_parseError;
    property url: WideString read Get_url;
    property onreadystatechange: OleVariant write Set_onreadystatechange;
    property ondataavailable: OleVariant write Set_ondataavailable;
    property ontransformnode: OleVariant write Set_ontransformnode;
    property async: WordBool read Get_async write Set_async;
    property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
    property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
    property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TDOMDocumentProperties read GetServerProperties;
{$ENDIF}
    property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable;
    property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange;
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TDOMDocument
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TDOMDocumentProperties = class(TPersistent)
  private
    FServer:    TDOMDocument;
    function    GetDefaultInterface: IXMLDOMDocument;
    constructor Create(AServer: TDOMDocument);
  protected
    function  Get_doctype: IXMLDOMDocumentType;
    function  Get_implementation_: IXMLDOMImplementation;
    function  Get_documentElement: IXMLDOMElement;
    procedure Set_documentElement(const DOMElement: IXMLDOMElement);
    function  Get_readyState: Integer;
    function  Get_parseError: IXMLDOMParseError;
    function  Get_url: WideString;
    function  Get_async: WordBool;
    procedure Set_async(isAsync: WordBool);
    function  Get_validateOnParse: WordBool;
    procedure Set_validateOnParse(isValidating: WordBool);
    function  Get_resolveExternals: WordBool;
    procedure Set_resolveExternals(isResolving: WordBool);
    function  Get_preserveWhiteSpace: WordBool;
    procedure Set_preserveWhiteSpace(isPreserving: WordBool);
    procedure Set_onreadystatechange(Param1: OleVariant);
    procedure Set_ondataavailable(Param1: OleVariant);
    procedure Set_ontransformnode(Param1: OleVariant);
  public
    property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
  published
    property async: WordBool read Get_async write Set_async;
    property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
    property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
    property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoDOMFreeThreadedDocument provides a Create and CreateRemote method to          
// create instances of the default interface IXMLDOMDocument exposed by              
// the CoClass DOMFreeThreadedDocument. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoDOMFreeThreadedDocument = class
    class function Create: IXMLDOMDocument;
    class function CreateRemote(const MachineName: string): IXMLDOMDocument;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TDOMFreeThreadedDocument
// Help String      : W3C-DOM XML Document (Apartment)
// Default Interface: IXMLDOMDocument
// Def. Intf. DISP? : No
// Event   Interface: XMLDOMDocumentEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TDOMFreeThreadedDocumentProperties= class;
{$ENDIF}
  TDOMFreeThreadedDocument = class(TOleServer)
  private
    FOnondataavailable: TNotifyEvent;
    FOnonreadystatechange: TNotifyEvent;
    FIntf:        IXMLDOMDocument;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TDOMFreeThreadedDocumentProperties;
    function      GetServerProperties: TDOMFreeThreadedDocumentProperties;
{$ENDIF}
    function      GetDefaultInterface: IXMLDOMDocument;
  protected
    procedure InitServerData; override;
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
    function  Get_doctype: IXMLDOMDocumentType;
    function  Get_implementation_: IXMLDOMImplementation;
    function  Get_documentElement: IXMLDOMElement;
    procedure Set_documentElement(const DOMElement: IXMLDOMElement);
    function  Get_readyState: Integer;
    function  Get_parseError: IXMLDOMParseError;
    function  Get_url: WideString;
    function  Get_async: WordBool;
    procedure Set_async(isAsync: WordBool);
    function  Get_validateOnParse: WordBool;
    procedure Set_validateOnParse(isValidating: WordBool);
    function  Get_resolveExternals: WordBool;
    procedure Set_resolveExternals(isResolving: WordBool);
    function  Get_preserveWhiteSpace: WordBool;
    procedure Set_preserveWhiteSpace(isPreserving: WordBool);
    procedure Set_onreadystatechange(Param1: OleVariant);
    procedure Set_ondataavailable(Param1: OleVariant);
    procedure Set_ontransformnode(Param1: OleVariant);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IXMLDOMDocument);
    procedure Disconnect; override;
    function  createElement(const tagName: WideString): IXMLDOMElement;
    function  createDocumentFragment: IXMLDOMDocumentFragment;
    function  createTextNode(const data: WideString): IXMLDOMText;
    function  createComment(const data: WideString): IXMLDOMComment;
    function  createCDATASection(const data: WideString): IXMLDOMCDATASection;
    function  createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction;
    function  createAttribute(const name: WideString): IXMLDOMAttribute;
    function  createEntityReference(const name: WideString): IXMLDOMEntityReference;
    function  getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
    function  createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode;
    function  nodeFromID(const idString: WideString): IXMLDOMNode;
    function  load(xmlSource: OleVariant): WordBool;
    procedure abort;
    function  loadXML(const bstrXML: WideString): WordBool;
    procedure save(desination: OleVariant);
    property  DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
    property doctype: IXMLDOMDocumentType read Get_doctype;
    property implementation_: IXMLDOMImplementation read Get_implementation_;
    property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement;
    property readyState: Integer read Get_readyState;
    property parseError: IXMLDOMParseError read Get_parseError;
    property url: WideString read Get_url;
    property onreadystatechange: OleVariant write Set_onreadystatechange;
    property ondataavailable: OleVariant write Set_ondataavailable;
    property ontransformnode: OleVariant write Set_ontransformnode;
    property async: WordBool read Get_async write Set_async;
    property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
    property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
    property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TDOMFreeThreadedDocumentProperties read GetServerProperties;
{$ENDIF}
    property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable;
    property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange;
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TDOMFreeThreadedDocument
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TDOMFreeThreadedDocumentProperties = class(TPersistent)
  private
    FServer:    TDOMFreeThreadedDocument;
    function    GetDefaultInterface: IXMLDOMDocument;
    constructor Create(AServer: TDOMFreeThreadedDocument);
  protected
    function  Get_doctype: IXMLDOMDocumentType;
    function  Get_implementation_: IXMLDOMImplementation;
    function  Get_documentElement: IXMLDOMElement;
    procedure Set_documentElement(const DOMElement: IXMLDOMElement);
    function  Get_readyState: Integer;
    function  Get_parseError: IXMLDOMParseError;
    function  Get_url: WideString;
    function  Get_async: WordBool;
    procedure Set_async(isAsync: WordBool);
    function  Get_validateOnParse: WordBool;
    procedure Set_validateOnParse(isValidating: WordBool);
    function  Get_resolveExternals: WordBool;
    procedure Set_resolveExternals(isResolving: WordBool);
    function  Get_preserveWhiteSpace: WordBool;
    procedure Set_preserveWhiteSpace(isPreserving: WordBool);
    procedure Set_onreadystatechange(Param1: OleVariant);
    procedure Set_ondataavailable(Param1: OleVariant);
    procedure Set_ontransformnode(Param1: OleVariant);
  public
    property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
  published
    property async: WordBool read Get_async write Set_async;
    property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
    property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
    property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoXMLHTTPRequest provides a Create and CreateRemote method to          
// create instances of the default interface IXMLHttpRequest exposed by              
// the CoClass XMLHTTPRequest. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoXMLHTTPRequest = class
    class function Create: IXMLHttpRequest;
    class function CreateRemote(const MachineName: string): IXMLHttpRequest;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TXMLHTTPRequest
// Help String      : XML HTTP Request class.
// Default Interface: IXMLHttpRequest
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TXMLHTTPRequestProperties= class;
{$ENDIF}
  TXMLHTTPRequest = class(TOleServer)
  private
    FIntf:        IXMLHttpRequest;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TXMLHTTPRequestProperties;
    function      GetServerProperties: TXMLHTTPRequestProperties;
{$ENDIF}
    function      GetDefaultInterface: IXMLHttpReq