Скачать: CL | DM;

работа с XML   Найти похожие ветки 

← →
likeanangel   (2003-08-21 14:57) [0]

Добрый всем день! Подскажите, please, как работать с XML через msxml.dll (COM-объект)? Как создавать XML, как получать/сохранять какие-то его свойства(атрибуты) ?

---

← →
Yakudza ©   (2003-08-21 16:17) [1]

Вот тебе маленький пример как создать XML файло.

procedure TForm1.Button1Click(Sender: TObject);
var
rootNode,companyNode, employeesNode : IXMLDOMNode;
companyName,companyEmail,employeeName, employeeEmail : IXMLDOMNode;
XMLStream : TFileStream;
S : String;
i,k : integer;
begin
XMLStream := TFileStream.Create("2test.xml",fmCreate or fmOpenWrite);
XMLDoc := CreateOleObject("Msxml2.DOMDocument.4.0") as IXMLDOMDocument;
rootNode := XMLDoc.createElement("ROOT");
XMLDoc.appendChild(rootNode);
with Query do
begin
Close;
SQL.Text := "SELECT id, weekly_email, cn FROM general WHERE status = 1 ORDER by cn";
Open;
First;
for i := 0 to qEmails.RecordCount - 1 do
begin
companyNode := XMLDoc.createElement("COMPANY");
rootNode.appendChild(companyNode);
companyName := XMLDoc.createElement("NAME");
companyEmail := XMLDoc.createElement("EMAIL");
companyNode.appendChild(companyName);
companyNode.appendChild(companyEmail);
companyName.text := qEmails.FieldByName("cn").Value;
if not qEmails.FieldByName("weekly_email").IsNull then companyEmail.text := qEmails.FieldByName("weekly_email").Value;
companyNode.appendChild(CreateEmployeesNode(qEmails.FieldByName("id"). Value));
Next;
end;
end;

S := XMLDoc.xml;
XMLStream.Write(PChar(S)^,Length(S));
XMLStream.Free;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c