Директива анализатора XML

← →
stelius © (2004-03-25 09:20) [0]

Мастера, нужна помощь.
Как при создании XML файла записать в него директиву анализатора:
<?xml version="1.0"?>

Пишу в 5 Delphi. С XML работаю через импортированную библиотеку типов MSXML

← →
Digitman © (2004-03-25 09:31) [1]

> С XML работаю через импортированную библиотеку типов MSXML

поставь себе пакет компонентов JEDI
среди многих замечательных компонентов/утилит там есть TJvSimpleXMLParser, он прост, нагляден, удобен в управлении и автоматически записывает упомянутую директиву

← →
stelius © (2004-03-25 09:37) [2]

А где его взять?

← →
stelius © (2004-03-25 09:38) [3]

И все-таки хотелось бы знать как это реализуется в MSXML

← →
Digitman © (2004-03-25 09:55) [4]

а ты загляни в библ-ку типов любым вьюером (например, OLEView)
ты увидишь, что каждый метод и каждое св-во каждого интерфейса там снабжен кратким комментарием

← →
just me (2004-03-25 12:29) [5]

DOMDocument.createProcessingInstruction

у меня это так

CLASS FUNCTION TXml._AddProcessingInstruction( const aDoc: Xml.DOMDocument; const aNode: Xml.IXMLDOMNode; const aName: WideString; const aValue: WideString): IXMLDOMProcessingInstruction; VAR kProcInstr: IXMLDOMProcessingInstruction; BEGIN kProcInstr := aDoc.CreateProcessingInstruction(aName, aValue); aNode.AppendChild(kProcInstr); Result := kProcInstr; END; CLASS FUNCTION TXml._AddProcessingInstruction_XML( const aDoc: Xml.DOMDocument; const aNode: Xml.IXMLDOMNode): IXMLDOMProcessingInstruction; BEGIN Result := _AddProcessingInstruction(aDoc, aNode, "xml", "version="1.0" encoding = "UTF-8""); END;

думаю, разберетесь

Thanks.
А как добавить к узлу attribute?

у меня это так

TXmlDataType = (xdtNotSet, xdtStr, xdtDate, xdtDec, xdtInt);

CLASS
FUNCTION TXml._AddTypedAttribute(
const aDoc: Xml.DOMDocument;
const aNode: IXMLDOMElement;
const aName: WideString;
const aValue: Variant;
const aType: TXmlDataType): IXMLDOMAttribute;
CONST
cTypeNames: array [TXmlDataType] of String =
("", "string", "date", "number", "int");
VAR
kAttr: IXMLDOMAttribute;
BEGIN
kAttr := aDoc.CreateAttribute(aName);
if aType <> xdtNotSet then kAttr.Set_DataType(cTypeNames[aType]);
kAttr.NodeTypedValue := aValue;
aNode.SetAttributeNode(kAttr);
Result := kAttr;
END;

вызов
TXml._AddTypedAttribute(kDoc, kRoot, "CurrencyName", kCurrCode);

Директива анализатора XML Найти похожие ветки