Muchos programadores de Delphi asocian guardar configuraciones con el uso INI archivos en sus programas. Solicitud este método, en proyectos más o menos serios, debe evitarse, ya que limita la flexibilidad, lo que impide una mayor expansión del programa. Vale la pena decir que este enfoque es bastante popular debido a su facilidad de uso y la disponibilidad de herramientas integradas en el entorno de desarrollo.

Sin embargo, la opción ideal para almacenar la configuración del programa está estructurada XML archivos. Su ventaja es que es posible que el número de parámetros no sea fijo. Para entender mejor esto, veamos un ejemplo específico.

En el programa USearch, cuando hace clic en una entrada, aparece un menú contextual que muestra una lista de elementos. Estos elementos son comandos, que a su vez se cargan desde el archivo de configuración. Si la configuración se almacenó en INI archivo, entonces el programa podría guardar y cargar una cierta cantidad de comandos, por ejemplo 10 o 50. Tan pronto como se necesite un valor mayor, el código deberá reescribirse y recompilarse en consecuencia.

Usando el enfoque usando XML archivos, podremos cargar todos los parámetros de la sección dinámicamente. Además de todo esto, el archivo de configuración será más elegante, sin numeración redundante de parámetros. Sin embargo, medios estándar trabajar con XML Delphi tiene muchas desventajas, por lo que recomiendo usar la biblioteca estándar. MSXML. Suele venir incluido por defecto sistemas operativos Familia Windows.

Para conectar MSXML, necesitamos generar un archivo de interfaz con una lista de todas las funciones, importándolo desde el servidor COM. Se ha escrito bastante sobre cómo importar una interfaz. artículos detallados, te sugiero que descargues el archivo MSXML2_TLB.PAS ya listo para usar. Una vez descargado el archivo, colóquelo junto a su proyecto o suéltelo en la carpeta lib del entorno Delphi. Así, todos los programas creados podrán utilizar el módulo. MSXML, sólo necesitas agregar la línea MSXML2_TLB a uses.

Para mayor claridad, considere el siguiente ejemplo del uso de esta biblioteca:

Procedimiento LoadData; var XMLDoc: DOMDocumento; Raíz: IXMLDOMElement; comenzar XMLDoc:= CoDOMDocument.Create; XMLDoc.Load("settins.xml"); Raíz:= XMLDoc.DocumentElement; ShowMessage(Root.SelectSingleNode("tamaño/ancho").Texto); Raíz:= nulo; XMLDoc:= nulo; fin;

Primero, se crea una instancia de la clase DOMDocument y luego el contenido del archivo settings.xml se carga en la memoria. Dado que según la norma cualquier XML el archivo debe contener una etiqueta raíz (en este caso configuración), entonces necesitamos obtenerlo usando la función Elemento de documento. Luego se genera el contenido entre las etiquetas. , que a su vez se encuentran entre las etiquetas . Por lo tanto, desde el archivo settings.xml, nuestro método mostrará texto en el cuadro de mensaje. "100px".

500px 100px

Aquí se utiliza el método SelectSingleNode, que toma una cadena como parámetro

A pesar de que el tema del trabajo con XML en Delphi se ha discutido ampliamente en Internet, a menudo surgen preguntas sobre este tema en varios foros.

También escribí sobre esto, pero me gustaría volver al caso real de un análisis rápido. archivo XML y extracción de datos que hice hoy en el trabajo. No me tomó más de 5 minutos obtener los datos necesarios.

Fondo. Hoy necesitábamos procesar datos sobre programas instalados en los ordenadores de los usuarios (sí, sí, detectamos piratas :)). El departamento técnico me proporcionó esta información, despojada de usuarios desprevenidos a través de la red mediante WMI. El programa que utilizaron produce informes en formato XML. En consecuencia, me trajeron una montaña de archivos XML con una estructura bastante compleja de la que sólo necesitaba extraer el nombre de los productos de software instalados.

Tratamiento . Después de revisar un par de archivos manualmente, me di cuenta de que no tardaría en envejecer y decidí escribir un pequeño convertidor. Después de iniciar Delphi, seleccioné el objeto XML DataBinding en el repositorio y le introduje uno de los archivos. Dejé todas las configuraciones y parámetros por defecto y como resultado creé un módulo con una gran cantidad de clases e interfaces para acceder a los elementos de este archivo XML. No dediqué mucho tiempo a descubrir la estructura de clases e inmediatamente pasé a escribir un convertidor.

En la nueva aplicación de consola escribí un código bastante simple:

usos
Formularios
Clases, SysUtils,
SoftwareXML en "SoftwareXML.pas";

procedimiento CovertXML2Text;
var
base blanda: IXMLSTDSoftwareType;
yo: entero;
Sr: TSearchRec;
CurDir: cadena;
Exportar archivo: TStringList;
comenzar
CurDir:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
si FindFirst(CurDir+"*.xml", faAnyFile, sr) = 0 entonces
repetir
ExportFile:= TStringList.Create;
basesoft:= LoadSTDSoftware(Pchar(CurDir+sr.Name));
para i:= 0 a softbase.InstalledSoftware.source.software.Count - 1 hacer
ExportFile.Add(softbase.InstalledSoftware.source.software[i].DisplayName);
ExportFile.Ordenar;
ExportFile.SaveToFile(CurDir + softbase.InstalledSoftware.Source.servername+".txt");
ExportFile.Free;
hasta FindNext(sr) 0;
fin;

comenzar
Aplicación.Inicializar;
Texto XML2 encubierto;
fin.

Como resultado, tuve un archivo de texto para cada computadora en la red, que contenía una lista del software instalado.

Siento que este código requiere alguna explicación. Por ejemplo, ¿por qué utilicé el módulo Formularios en una aplicación de consola y llamé al procedimiento Application.Initialize;

En realidad, es simple: es un pequeño truco que le permite utilizar el enlace de datos XML en una aplicación de consola. Porque se negó obstinadamente a inicializar la clase para trabajar con XML. Aún no he descubierto las verdaderas razones: hoy el tiempo era importante, ya pasé 4 de 5 minutos luchando contra este error. :) Creo que abordaré este problema más adelante y escribiré cuál es el verdadero motivo.

La extraña clase de base blanda fue creada en basado en XML file: ese era el nombre del elemento raíz, y softbase.InstalledSoftware.source.software[i].DisplayName: simplemente navegue a través de los elementos anidados hasta el deseado y obtenga su valor.

En realidad, así es como se ve uno de los más maneras rápidas trabajando con XML en Delphi.

XML se utiliza cada vez más para almacenar información e intercambiarla entre aplicaciones y sitios web. Muchas aplicaciones utilizan este lenguaje como lenguaje base para almacenar datos, mientras que otras lo utilizan para exportar e importar datos XML. Esto significa que es hora de que los desarrolladores piensen en cómo pueden utilizar datos XML en sus propias aplicaciones.

En este artículo veremos el modelo de objetos de documento (DOM) XML y su implementación por parte de Microsoft: Microsoft XML DOM.

XML DOM es un modelo de objetos que proporciona al desarrollador objetos para cargar y procesar archivos XML. El modelo de objetos consta de los siguientes objetos principales: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap y XMLDOMParseError. Cada uno de estos objetos (excepto XMLDOMParseError) contiene propiedades y métodos que le permiten obtener información sobre el objeto, manipular los valores y la estructura del objeto y navegar a través de la estructura del documento XML.

Veamos los principales objetos XML DOM y demos algunos ejemplos de su uso en Borland Delphi.

Usando XML DOM en Borland Delphi

Para utilizar Microsoft XML DOM en aplicaciones Delphi, debe conectar la biblioteca de tipos adecuada al proyecto. Para ello ejecutamos el comando Proyecto | Importar biblioteca de tipos y en el cuadro de diálogo Importar biblioteca de tipos, seleccione la biblioteca Microsoft XML versión 2.0 (Versión 2.0), que normalmente se encuentra en el archivo Windows\System\MSXML.DLL.

Después de hacer clic en el botón Crear unidad, se creará el módulo de interfaz MSXML_TLB, que nos permitirá utilizar objetos XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest y varios otros implementados en la biblioteca MSXML.DLL. Se debe incluir una referencia al módulo MSXML_TLB en la lista de Usos.

dispositivo DOM XML

El modelo de objetos de documento representa un documento XML como una estructura de árbol que consta de ramas. Las interfaces de programación XML DOM permiten a las aplicaciones navegar por el árbol de documentos y manipular sus ramas. Cada rama puede tener un tipo específico (DOMNodeType), según el cual se determinan las ramas principal y secundaria. En la mayoría de los documentos XML encontrará ramas como elemento, atributo y texto. Los atributos son un tipo especial de rama y no son ramas secundarias. Los atributos se manipulan utilizando métodos especiales proporcionados por objetos XML DOM.

Además de implementar las interfaces recomendadas por el World Wide Web Consortium (W3C), Microsoft XML DOM contiene métodos que admiten XSL, patrones XSL, espacios de nombres y tipos de datos. Por ejemplo, el método SelectNodes le permite usar la sintaxis de patrón XSL para buscar ramas dentro de un contexto específico, y el método TransformNode admite el uso de XSL para realizar transformaciones.

Documento XML de prueba

Como ejemplo de documento XML, tomemos un directorio de CD-ROM de música, que tiene la siguiente estructura:

Bob Dylan EE.UU Columbia 10.90 1985 Bonnie Tylor Reino Unido Registros CBS 9.90 1988 ... Joe Cocker EE.UU EMI 8.20 1987

Ahora estamos listos para comenzar a observar el modelo de objetos XML DOM, que comenzaremos con el objeto XMLDOMDocument.

Documento XML: objeto XMLDOMDocument

Trabajar con un documento XML comienza con cargarlo. Para ello utilizamos el método Load, que tiene un solo parámetro que indica la URL del documento a cargar. Al cargar archivos desde un disco local, solo se especifica el nombre completo del archivo (en este caso se puede omitir el protocolo file:///). Si el documento XML se almacena como una cadena, debe utilizar el método LoadXML para cargar el documento.

Para controlar cómo se carga el documento (síncrono o asíncrono), utilice la propiedad Async. De forma predeterminada, esta propiedad está establecida en Verdadero, lo que indica que el documento se carga de forma asincrónica y el control se devuelve a la aplicación antes de que el documento se cargue por completo. De lo contrario, el documento se carga sincrónicamente y luego debe verificar el valor de la propiedad ReadyState para saber si el documento se ha cargado o no. También puede crear un controlador de eventos OnReadyStateChange que recibirá control cuando cambie el valor de la propiedad ReadyState.

A continuación se muestra cómo cargar un documento XML utilizando el método Load:

Utiliza... MSXML_TLB... procedimiento TForm1.Button1Click(Sender: TObject); var XMLDoc: IXMLDOMDocumento; comenzar XMLDoc:= CoDOMDocument.Create; XMLDoc.Async:= Falso; XMLDoc.Load('C:\DATA\DATA.xml'); // // Aquí está el código que manipula // el documento XML y sus ramas // XMLDoc:= Nil; fin;

Una vez cargado el documento podremos acceder a sus propiedades. Por lo tanto, la propiedad NodeName contendrá el valor #document, la propiedad NodeTypeString contendrá el valor document y la propiedad URL contendrá el valor file:///C:/DATA/DATA.xml.

Manejo de errores

De particular interés son las propiedades asociadas con el procesamiento del documento cuando se carga. Por tanto, la propiedad ParseError devuelve un objeto XMLDOMParseError que contiene información sobre un error ocurrido durante el procesamiento del documento.

Para escribir un controlador de errores, puede agregar el siguiente código:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load('C:\DATA\DATA.xml'); XMLError:= XMLDoc.ParseError; Si XMLError.ErrorCode<>0 Entonces // // Aquí manejamos el error // De lo contrario Memo1.Lines.Add(XMLDoc.XML); ... XMLDoc:= Nulo;

Para ver qué información se devuelve en caso de error, cambiemos la siguiente entrada del directorio:

Bob Dylan EE.UU Columbia 10.90 1985

quitando el elemento de cierre .

Ahora agreguemos una nueva rama. A continuación se muestra el código que muestra cómo agregar una nueva entrada de CD-ROM de música:

Var NuevoNodo: IXMLDOMNodo; Hijo: IXMLDOMNode; ... // Crea una nueva rama - NuevoNodo:= XMLDoc.CreateNode(1, 'CD', ''); // Agrega un elemento