delphi.txt

xml delphi中读写XML文件。 例子中说明如何更加msxml类实现读xml文件

unit MSXML_TLB;



// ************************************************************************ //

// WARNING                                                                    

// -------                                                                    

// The types declared in this file were generated from data read from a       

// Type Library. If this type library is explicitly or indirectly (via        

// another type library referring to this type library) re-imported, or the   

// 'Refresh' command of the Type Library Editor activated while editing the   

// Type Library, the contents of this file will be regenerated and all        

// manual modifications will be lost.                                         

// ************************************************************************ //



// PASTLWTR : $Revision:   1.88  $

// File generated on 3/22/01 10:40:13 AM from Type Library described below.



// *************************************************************

class function CoXMLHTTPRequest.Create: IXMLHttpRequest;

begin

  Result := CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;

end;



class function CoXMLHTTPRequest.CreateRemote(const MachineName: string): IXMLHttpRequest;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTPRequest) as IXMLHttpRequest;

end;



class function CoXMLDSOControl.Create: IXMLDSOControl;

begin

  Result := CreateComObject(CLASS_XMLDSOControl) as IXMLDSOControl;

end;



class function CoXMLDSOControl.CreateRemote(const MachineName: string): IXMLDSOControl;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_XMLDSOControl) as IXMLDSOControl;

end;



class function CoXMLDocument.Create: IXMLDocument2;

begin

  Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2;

end;



class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2;

end;



end.