msxml_tlb.pas
来自「Clever_Internet_Suite_6.2的代码 Clever_Int」· PAS 代码 · 共 1,218 行 · 第 1/5 页
PAS
1,218 行
IXMLElementCollection = interface(IDispatch)
['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}']
procedure Set_length(p: Integer); safecall;
function Get_length: Integer; safecall;
function Get__newEnum: IUnknown; safecall;
function item(var1: OleVariant; var2: OleVariant): IDispatch; safecall;
property length: Integer read Get_length write Set_length;
property _newEnum: IUnknown read Get__newEnum;
end;
// *********************************************************************//
// DispIntf: IXMLElementCollectionDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {65725580-9B5D-11D0-9BFE-00C04FC99C8E}
// *********************************************************************//
// *********************************************************************//
// Interface: IXMLDocument
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {F52E2B61-18A1-11D1-B105-00805F49916B}
// *********************************************************************//
IXMLDocument = interface(IDispatch)
['{F52E2B61-18A1-11D1-B105-00805F49916B}']
function Get_root: IXMLElement; safecall;
function Get_fileSize: WideString; safecall;
function Get_fileModifiedDate: WideString; safecall;
function Get_fileUpdatedDate: WideString; safecall;
function Get_url: WideString; safecall;
procedure Set_url(const p: WideString); safecall;
function Get_mimeType: WideString; safecall;
function Get_readyState: Integer; safecall;
function Get_charset: WideString; safecall;
procedure Set_charset(const p: WideString); safecall;
function Get_version: WideString; safecall;
function Get_doctype: WideString; safecall;
function Get_dtdURL: WideString; safecall;
function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; safecall;
property root: IXMLElement read Get_root;
property fileSize: WideString read Get_fileSize;
property fileModifiedDate: WideString read Get_fileModifiedDate;
property fileUpdatedDate: WideString read Get_fileUpdatedDate;
property url: WideString read Get_url write Set_url;
property mimeType: WideString read Get_mimeType;
property readyState: Integer read Get_readyState;
property charset: WideString read Get_charset write Set_charset;
property version: WideString read Get_version;
property doctype: WideString read Get_doctype;
property dtdURL: WideString read Get_dtdURL;
end;
// *********************************************************************//
// DispIntf: IXMLDocumentDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {F52E2B61-18A1-11D1-B105-00805F49916B}
// *********************************************************************//
// *********************************************************************//
// Interface: IXMLElement
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}
// *********************************************************************//
IXMLElement = interface(IDispatch)
['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}']
function Get_tagName: WideString; safecall;
procedure Set_tagName(const p: WideString); safecall;
function Get_parent: IXMLElement; safecall;
procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
procedure removeAttribute(const strPropertyName: WideString); safecall;
function Get_children: IXMLElementCollection; safecall;
function Get_type_: Integer; safecall;
function Get_text: WideString; safecall;
procedure Set_text(const p: WideString); safecall;
procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); safecall;
procedure removeChild(const pChildElem: IXMLElement); safecall;
property tagName: WideString read Get_tagName write Set_tagName;
property parent: IXMLElement read Get_parent;
property children: IXMLElementCollection read Get_children;
property type_: Integer read Get_type_;
property text: WideString read Get_text write Set_text;
end;
// *********************************************************************//
// DispIntf: IXMLElementDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}
// *********************************************************************//
// *********************************************************************//
// Interface: IXMLDocument2
// Flags: (4112) Hidden Dispatchable
// GUID: {2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}
// *********************************************************************//
IXMLDocument2 = interface(IDispatch)
['{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}']
function Get_root(out p: IXMLElement2): HResult; stdcall;
function Get_fileSize(out p: WideString): HResult; stdcall;
function Get_fileModifiedDate(out p: WideString): HResult; stdcall;
function Get_fileUpdatedDate(out p: WideString): HResult; stdcall;
function Get_url(out p: WideString): HResult; stdcall;
function Set_url(const p: WideString): HResult; stdcall;
function Get_mimeType(out p: WideString): HResult; stdcall;
function Get_readyState(out pl: Integer): HResult; stdcall;
function Get_charset(out p: WideString): HResult; stdcall;
function Set_charset(const p: WideString): HResult; stdcall;
function Get_version(out p: WideString): HResult; stdcall;
function Get_doctype(out p: WideString): HResult; stdcall;
function Get_dtdURL(out p: WideString): HResult; stdcall;
function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; stdcall;
function Get_async(out pf: WordBool): HResult; stdcall;
function Set_async(pf: WordBool): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IXMLElement2
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}
// *********************************************************************//
IXMLElement2 = interface(IDispatch)
['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}']
function Get_tagName: WideString; safecall;
procedure Set_tagName(const p: WideString); safecall;
function Get_parent: IXMLElement2; safecall;
procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
procedure removeAttribute(const strPropertyName: WideString); safecall;
function Get_children: IXMLElementCollection; safecall;
function Get_type_: Integer; safecall;
function Get_text: WideString; safecall;
procedure Set_text(const p: WideString); safecall;
procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); safecall;
procedure removeChild(const pChildElem: IXMLElement2); safecall;
function Get_attributes: IXMLElementCollection; safecall;
property tagName: WideString read Get_tagName write Set_tagName;
property parent: IXMLElement2 read Get_parent;
property children: IXMLElementCollection read Get_children;
property type_: Integer read Get_type_;
property text: WideString read Get_text write Set_text;
property attributes: IXMLElementCollection read Get_attributes;
end;
// *********************************************************************//
// DispIntf: IXMLElement2Disp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}
// *********************************************************************//
// *********************************************************************//
// Interface: IXMLAttribute
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}
// *********************************************************************//
IXMLAttribute = interface(IDispatch)
['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}']
function Get_name: WideString; safecall;
function Get_value: WideString; safecall;
property name: WideString read Get_name;
property value: WideString read Get_value;
end;
// *********************************************************************//
// DispIntf: IXMLAttributeDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}
// *********************************************************************//
// *********************************************************************//
// Interface: IXMLError
// Flags: (16) Hidden
// GUID: {948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}
// *********************************************************************//
IXMLError = interface(IUnknown)
['{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}']
function GetErrorInfo(var pErrorReturn: TGUID): HResult; stdcall;
end;
// *********************************************************************//
// The Class CoDOMDocument provides a Create and CreateRemote method to
// create instances of the default interface IXMLDOMDocument exposed by
// the CoClass DOMDocument. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDOMDocument = class
class function Create: IXMLDOMDocument;
class function CreateRemote(const MachineName: string): IXMLDOMDocument;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDOMDocument
// Help String : W3C-DOM XML Document
// Default Interface: IXMLDOMDocument
// Def. Intf. DISP? : No
// Event Interface: XMLDOMDocumentEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDOMDocumentProperties= class;
{$ENDIF}
TDOMDocument = class(TOleServer)
private
FOnondataavailable: TNotifyEvent;
FOnonreadystatechange: TNotifyEvent;
FIntf: IXMLDOMDocument;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDOMDocumentProperties;
function GetServerProperties: TDOMDocumentProperties;
{$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;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?