在delphi中使用xml文档有两种方法
Broker xml, 是delphi 内置的。例:
satuan TampilkanXML;
antarmuka
menggunakan Kelas HTTPApp Db DbClient Midas
XMLBrokr WebComp MidItem;
jenis
TCustomShowXMLButton = kelas(TXMLButton IScriptComponent)
Terlindung
XMLMethodName: string;
{ Komponen Skrip }
prosedur AddElements(AddIntf: IAddScriptElements);
fungsi GetSubComponents: TObject;
{ Implementasi IWebContent }
fungsi ImplContent(Opsi: TWebContentOptions;
Tata Letak Induk: TLayout): string; mengesampingkan;
akhir;
TShowXMLButton = kelas(TCustomShowXMLButton)
publik
Buat konstruktor (Pemilik: TComponent); mengesampingkan;
diterbitkan
properti Adat;
Gaya properti;
properti StyleRule;
keterangan properti;
properti XMLBroker;
properti XMLUseParent;
akhir;
TShowDeltaButton = kelas(TCustomShowXMLButton)
publik
Buat konstruktor(Pemilik: TComponent); mengesampingkan;
diterbitkan
properti Adat;
Gaya properti;
properti StyleRule;
keterangan properti;
properti XMLBroker;
properti XMLUseParent;
akhir;
pelaksanaan
menggunakan sysutils MidProd;
string sumber daya
sShowXML = 'Tampilkan XML';
sShowDelta = 'Tampilkan Delta';
prosedur TCustomShowXMLButton.AddElements(
AddIntf: IAddScriptElements);
mulai
AddIntf.AddIncludeFile('xmlshow.js');
akhir;
fungsi TCustomShowXMLButton.GetSubComponents: TObject;
mulai
Hasil := nihil;
akhir;
fungsi TCustomShowXMLButton.ImplContent(Opsi: TWebContentOptions;
Tata Letak Induk: TLayout): string;
var
Attr: string;
Intf: ILayoutWebContent;
NamaVarForm: string;
RowSetVarName: string;
mulai
AddQuotedAttrib(Attrs 'NAMA' Nama);
AddQuotedAttrib(Attrs 'GAYA' Gaya);
AddQuotedAttrib(Attrs 'CLASS' StyleRule);
AddQuotedAttrib(Attrs 'VALUE' Self.Caption);
AddCustomAttrib(Attrs Kustom);
jika Ditugaskan(XMLData.XMLBroker) lalu
mulai
FormVarName := XMLData.XMLBroker.SubmitFormVarName;
RowSetVarName := XMLData.XMLBroker.RowSetVarName(nil); // Baris baris mengatur nama var
akhir;
jika tidak (coNoScript di Options.Flags) maka
Hasil :=
Format(''#13#10
[Attrs RowSetVarName XMLMethodName sXMLReadyVar])
kalau tidak
Hasil :=
Format(''#13#10
[Attr]);
jika Ditugaskan(ParentLayout) dan ParentLayout.GetInterface(ILayoutWebContent Intf) maka
Hasil := Intf.LayoutButton(Hasil GetLayoutAttributes);
akhir;
{ TShowXMLButton }
konstruktor TShowXMLButton.Create(Pemilik: TComponent);
mulai
diwariskan;
Teks Default := sShowXML;
XMLMethodName := 'root';
akhir;
{ TShowDeltaButton }
konstruktor TShowDeltaButton.Create(Pemilik: TComponent);
mulai
diwariskan;
Caption Default := sShowDelta;
XMLMethodName := 'getDelta()';
akhir;
另一种方法使用msxml.dll
....
....
prosedur TDHEDForm.OpenBtnClick(Pengirim: TObject);
var
pVIn : OleVariant;
Perintah: OleVariant;
mulai
pVIn := '';
Perintah := Benar;
DHTMLEdit1.LoadDocument(pVIn Prompt);
akhir;
prosedur TDHEDForm.SaveBtnClick(Pengirim: TObject);
var
vo vb : OleVarian;
mulai
vo := DHTMLEdit1.CurrentDocumentPath;
jika (vo <> '') maka
mulai
vb := salah;
akhir
kalau tidak
mulai
kamu := '';
vb := benar;
akhir;
DHTMLEdit1.SimpanDokumen(vo vb);
akhir;
prosedur TDHEDForm.SaveAsClick(Pengirim: TObject);
var
vo vb : OleVarian;
mulai
kamu := '';
vb := benar;
DHTMLEdit1.SimpanDokumen(vo vb);
akhir;
...
//本文为转贴,作者不详,仅供大家参考