ReadyVar])
else
Result :=
Format(''''#13#10
[Attrs]);
if Assigned(ParentLayout) and ParentLayout.GetInterface(ILayoutWebContent Intf) then
Result := Intf.LayoutButton(Result GetLayoutAttributes);
end;
{ TShowXMLButton }
constructor TShowXMLButton.Create(AOwner: TComponent);
begin
inherited;
DefaultCaption := sShowXML;
XMLMethodName := ''root'';
end;
{ TShowDeltaButton }
constructor TShowDeltaButton.Create(AOwner: TComponent);
begin
inherited;
DefaultCaption := sShowDelta;
XMLMethodName := ''getDelta()'';
end;
另一种方法使用msxml.dll 如下:
.
.
procedure TDHEDForm.OpenBtnClick(Sender: TObject);
var
pVIn : OleVariant;
Prompt : OleVariant;
begin
pVIn := '''';
Prompt := True;
DHtmlEdit1.LoadDocument(pVIn Prompt);
end;
procedure TDHEDForm.SaveBtnClick(Sender: TObject);
var
vo
vb : OleVariant;
begin
vo := DHTMLEdit1.CurrentDocumentPath;
if (vo <> '''') then
begin
vb := false;
end
else
begin
vo := '''';
vb := true;
end;
DHTMLEdit1.SaveDocument(vo vb);
end;
procedure TDHEDForm.SaveAsClick(Sender: TObject);
var
vo
vb : OleVariant;
begin
vo := '''';
vb := true;
DHTMLEdit1.SaveDocument(vo vb);
end;
2005-12-29 13:41:48
查看评语»»»
2005-12-29 13:44:23 Delphi 对XML的支持---TXMLDocument类
Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1)微软的MSXML SDK，这种方式是通过COM对象来实现;2) Apache 的Xerces的实现方式;3)另外一种是开源OpenXML实现方式。对于不同的接口实现方式可以通过设定TXMLDocument的DOMVender来进行控制。
支持XML的Delphi单元主要存在与…\Borland\Delphi7\Source\Xml目录下，主要包括：XMLIntf，XMLDoc，xmldom，msxmldom，xercesxmldom，xdom，oxmldom等单元。
l XMLIntf――包括了Borland自己定义的XML文档的接口;
l XMLDoc――是对XMLIntf中所定义接口的Borland实现;
l Xmldom――定义了DOM（文档对象模型）接口，这
