在delphi使用xml文档.docVIP

在delphi中使用xml文档.txt心态决定状态，心胸决定格局，眼界决定境界。当你的眼泪忍不住要流出来的时候，睁大眼睛，千万别眨眼，你会看到世界由清晰到模糊的全过程。在delphi中使用xml文档 [ 2006-3-16 10:33:00 | By: chys ] 在delphi中使用xml文档有两种方法 使用xml broker, 是delphi 内置的。例: unit ShowXML; interface uses Classes HTTPApp Db DbClient Midas XMLBrokr WebComp MidItems; type TCustomShowXMLButton = class(TXMLButton IScriptComponent) protected XMLMethodName: string; { IScriptComponent } procedure AddElements(AddIntf: IAddScriptElements); function GetSubComponents: TObject; { IWebContent implementation } function ImplContent(Options: TWebContentOptions; ParentLayout: TLayout): string; override; end; TShowXMLButton = class(TCustomShowXMLButton) public constructor Create(AOwner: TComponent); override; published property Custom; property Style; property StyleRule; property Caption; property XMLBroker; property XMLUseParent; end; TShowDeltaButton = class(TCustomShowXMLButton) public constructor Create(AOwner: TComponent); override; published property Custom; property Style; property StyleRule; property Caption; property XMLBroker; property XMLUseParent; end; implementation uses sysutils MidProd; resourcest*** sShowXML = Show XML; sShowDelta = Show Delta; procedure TCustomShowXMLButton.AddElements( AddIntf: IAddScriptElements); begin AddIntf.AddIncludeFile(xmlshow.js); end; function TCustomShowXMLButton.GetSubComponents: TObject; begin Result := nil; end; function TCustomShowXMLButton.ImplContent(Options: TWebContentOptions; ParentLayout: TLayout): string; var Attrs: string; Intf: ILayoutWebContent; FormVarName: string; RowSetVarName: string; begin AddQuotedAttrib(Attrs NAME Name); AddQuotedAttrib(Attrs STYLE Style); AddQuotedAttrib(Attrs CLASS StyleRule); AddQuotedAttrib(Attrs VALUE Self.Caption); AddCustomAttrib(Attrs Custom); if Assigned(XML