Para muitos programadores Delphi, salvar as configurações está associado ao uso INI arquivos em seus programas. A utilização desse método, em projetos mais ou menos sérios, deve ser evitada, pois limita a flexibilidade, o que impede maior expansão do programa. Deve-se dizer que essa abordagem é bastante popular devido à sua facilidade de uso e à presença de ferramentas integradas no ambiente de desenvolvimento.

No entanto, estruturado XML arquivos. Sua vantagem é que o número de parâmetros não pode ser fixo. Para entender isso melhor, considere um exemplo específico.

No programa USearch, quando você clica em uma entrada, um menu de contexto é exibido, no qual uma lista de itens é exibida. Esses itens são comandos, que por sua vez são carregados do arquivo de configurações. Caso as configurações tenham sido armazenadas em INI, então o programa pode salvar e carregar um certo número de comandos, por exemplo 10 ou 50. Assim que um valor maior for necessário, você terá que reescrever o código e recompilá-lo de acordo.

Aplicando uma abordagem usando XML arquivos, seremos capazes de carregar todos os parâmetros da seção dinamicamente. Além disso, o arquivo de configuração ficará mais elegante, sem numeração redundante de parâmetros. Mas, meios padrão trabalhar com XML Delphi tem muitas desvantagens, então eu recomendo usar biblioteca padrão MSXML... Normalmente, é incluído por padrão em sistemas operacionais Família Windows.

Conectar MSXML, precisamos gerar um arquivo de interface com uma lista de todas as funções, importando-o do servidor COM. Muitos artigos detalhados foram escritos sobre como importar a interface, mas eu sugiro que você baixe o arquivo MSXML2_TLB.PAS pronto para usar. Após o download do arquivo, coloque-o próximo ao seu projeto ou solte-o na pasta lib do ambiente Delphi. Assim, todos os programas criados poderão utilizar o módulo MSXML, você só precisa adicionar a linha MSXML2_TLB para usar.

Para maior clareza, considere o seguinte exemplo de uso desta biblioteca:

Procedimento LoadData; var XMLDoc: DOMDocument; Raiz: IXMLDOMElement; começar XMLDoc: = CoDOMDocument.Create; XMLDoc.Load ("settins.xml"); Raiz: = XMLDoc.DocumentElement; ShowMessage (Root.SelectSingleNode ("tamanho / largura"). Texto); Raiz: = nulo; XMLDoc: = nulo; fim;

Primeiro, uma instância da classe DOMDocument é criada e, em seguida, o conteúdo do arquivo settings.xml é carregado na memória. Uma vez que, de acordo com o padrão, qualquer XML o arquivo deve conter a marca raiz (em nesse caso config), então precisamos obtê-lo usando a função DocumentElement... Em seguida, o conteúdo é exibido entre as tags. , que por sua vez estão entre as tags ... Assim, a partir do arquivo settings.xml, nosso método irá mostrar o texto na MessageBox "100px".

500px 100px

Aqui, o método SelectSingleNode é aplicado, que leva uma string como parâmetro

Apesar de o tópico de trabalho com XML em Delphi ter sido amplamente discutido na Internet, muitas vezes surgem dúvidas sobre esse tópico em todos os tipos de fóruns.

Eu também escrevi isso, mas gostaria de voltar ao caso real de analisar rapidamente um arquivo XML e extrair dados, o que fiz no trabalho hoje. Não demorei mais de 5 minutos para obter os dados necessários.

Fundo. Hoje eu precisava processar dados sobre programas instalados nos computadores dos usuários (sim, sim, identificamos piratas :)). O departamento técnico me forneceu essas informações obtidas de usuários desavisados ​​em uma rede usando WMI. O programa que eles usaram gera relatórios em Formato XML... Conseqüentemente, eles me trouxeram uma montanha de arquivos XML com uma estrutura bastante complexa, da qual eu só tive que extrair o nome dos produtos de software instalados.

Tratamento. Depois de olhar alguns arquivos à mão, percebi que não demoraria muito para envelhecer e decidi escrever um pequeno conversor. Tendo iniciado o Delphi, selecionei o objeto XML DataBinding do repositório e alimentei-o com um dos arquivos. Deixei todas as configurações e parâmetros por padrão e, como resultado, um módulo com grande quantia classes e interfaces para acessar os elementos deste arquivo XML. Não me preocupei em lidar com a estrutura das classes por um longo tempo, imediatamente comecei a escrever um conversor.

Em um novo aplicativo de console, escrevi um código bem simples:

usa
Formulários,
Classes, SysUtils,
SoftwareXML em "SoftwareXML.pas";

procedimento CovertXML2Text;
var
softbase: IXMLSTDSoftwareType;
i: inteiro;
sr: TSearchRec;
CurDir: string;
ExportFile: TStringList;
começar
CurDir: = IncludeTrailingPathDelimiter (ExtractFilePath (Application.ExeName));
se FindFirst (CurDir + "*. xml", faAnyFile, sr) = 0, então
repetir
ExportFile: = TStringList.Create;
softbase: = LoadSTDSoftware (Pchar (CurDir + sr.Name));
para i: = 0 para softbase.InstalledSoftware.source.software.Count - 1 faça
ExportFile.Add (softbase.InstalledSoftware.source.software [i] .DisplayName);
ExportFile.Sort;
ExportFile.SaveToFile (CurDir + softbase.InstalledSoftware.Source.servername + ". Txt");
ExportFile.Free;
até FindNext (sr) 0;
fim;

começar
Application.Initialize;
CovertXML2Text;
fim.

Como resultado, obtive um editor de texto para cada computador da grade, contendo uma lista dos softwares instalados.

Acho que este código exigirá alguma explicação. Por exemplo, por que usei o módulo Formulários em um aplicativo de console e chamei o procedimento Application.Initialize;?

Na verdade, é simples - este é um pequeno hack que permite usar XML Data Binding em um aplicativo de console. Porque ele teimosamente se recusou a inicializar a classe para trabalhar com XML. Ainda não descobri os verdadeiros motivos - o tempo de hoje foi importante, já gastei 4 em 5 minutos lutando contra esse erro. :) Acho que depois vou tratar desse problema e escrever qual é o verdadeiro motivo.

A estranha classe softbase foi criada a partir de um arquivo XML - esse é o nome do elemento raiz, e softbase.InstalledSoftware.source.software [i] .DisplayName é apenas navegar pelos elementos aninhados até o desejado e obter seu valor.

É assim que um dos mais maneiras rápidas trabalhando com XML em Delphi.

O XML é cada vez mais usado para armazenar informações e trocá-las entre aplicativos e sites. Muitos aplicativos usam essa linguagem como linguagem base para armazenar dados, enquanto outros a usam para exportar e importar dados XML. Portanto, é hora de os desenvolvedores começarem a pensar sobre como os dados XML podem ser usados ​​em seus próprios aplicativos.

Neste artigo, veremos o XML Document Object Model (DOM) e a implementação da Microsoft do XML DOM.

O XML DOM é um modelo de objeto que fornece a um desenvolvedor objetos para carregar e processar arquivos XML. O modelo de objeto consiste nos seguintes objetos principais: XMLDOMDocument, XMLDOMNodeList, XMLDOMNode, XMLDOMNamedNodeMap e XMLDOMParseError. Cada um desses objetos (exceto XMLDOMParseError) contém propriedades e métodos que permitem obter informações sobre o objeto, manipular os valores e a estrutura do objeto e navegar na estrutura de um documento XML.

Vamos dar uma olhada nos principais objetos XML DOM e mostrar alguns exemplos de seu uso no Borland Delphi.

Usando XML DOM no Borland Delphi

Para usar o Microsoft XML DOM em aplicativos Delphi, você precisa conectar a biblioteca de tipos apropriada ao projeto. Para isso, executamos o comando Projeto | Import Type Library e na caixa de diálogo Import Type Library, selecione a biblioteca Microsoft XML versão 2.0 (Versão 2.0), que geralmente está localizada no arquivo Windows \ System \ MSXML.DLL

Após clicar no botão Criar Unidade, será criado o módulo de interface MSXML_TLB, que nos permitirá utilizar os objetos XML DOM: DOMDocument, XMLDocument, XMLHTTPRequest e vários outros, implementados na biblioteca MSXML.DLL. A referência ao módulo MSXML_TLB deve estar na lista de Usos.

Dispositivo XML DOM

O Document Object Model representa um documento XML em uma estrutura de árvore de ramos. APIs XML DOM permitem que os aplicativos naveguem na árvore do documento e manipulem suas ramificações. Cada ramo pode ter um tipo específico (DOMNodeType), de acordo com o qual os ramos pai e filho são determinados. A maioria dos documentos XML contém ramificações de elemento de tipo, atributo e texto. Os atributos são um tipo especial de ramificação e não são ramificações secundárias. Para gerenciar atributos, use métodos especiais fornecido por objetos XML DOM.

Além de implementar as interfaces recomendadas do World Wide Web Consortium (W3C), o Microsoft XML DOM contém métodos que oferecem suporte a XSL, padrões XSL, namespaces e tipos de dados. Por exemplo, o método SelectNodes permite usar a sintaxe de padrão XSL para localizar ramificações em um contexto específico, e o método TransformNode oferece suporte ao uso de XSL para realizar transformações.

Documento XML de teste

Como um exemplo de documento XML, vamos pegar um diretório de CD-ROM de música, que tem a seguinte estrutura:

Bob dylan EUA Columbia 10.90 1985 Bonnie Tylor Reino Unido CBS Records 9.90 1988 ... Joe Cocker EUA EMI 8.20 1987

Agora estamos prontos para começar a examinar o modelo de objeto XML DOM, começando com o objeto XMLDOMDocument.

Documento XML - objeto XMLDOMDocument

Trabalhar com um documento XML começa com seu carregamento. Para isso, usamos o método Load, que possui apenas um parâmetro que especifica a URL do documento carregado. Ao carregar arquivos de um disco local, apenas o nome completo do arquivo é especificado (o protocolo file: /// pode ser omitido neste caso). Se o documento XML for armazenado como uma string, use o método LoadXML para carregar o documento.

A propriedade Async é usada para controlar como o documento é carregado (síncrono ou assíncrono). Por padrão, esta propriedade é configurada para True, indicando que o documento é carregado de forma assíncrona e o controle é retornado ao aplicativo antes que o documento seja totalmente carregado. Caso contrário, o documento carrega de forma síncrona e, em seguida, você deve verificar o valor da propriedade ReadyState para saber se o documento foi carregado ou não. Você também pode criar um manipulador para o evento OnReadyStateChange que assumirá o controle quando o valor da propriedade ReadyState for alterado.

O seguinte mostra como carregar um documento XML usando o método Load:

Usa ... MSXML_TLB ... procedure TForm1.Button1Click (Sender: TObject); var XMLDoc: IXMLDOMDocument; começar XMLDoc: = CoDOMDocument.Create; XMLDoc.Async: = False; XMLDoc.Load (‘C: \ DATA \ DATA.xml’); // // Aqui é onde está o código que manipula // o documento XML e suas ramificações // XMLDoc: = Nil; fim;

Depois que o documento é carregado, podemos acessar suas propriedades. Portanto, a propriedade NodeName conterá o valor #document, a propriedade NodeTypeString conterá o valor do documento e a propriedade URL conterá o valor file: /// C: /DATA/DATA.xml.

Manipulação de erros

De particular interesse são as propriedades relacionadas ao processamento de documentos no carregamento. Por exemplo, a propriedade ParseError retorna um objeto XMLDOMParseError contendo informações sobre um erro que ocorreu durante o processamento do documento.

Para escrever um gerenciador de erros, você pode adicionar o seguinte código:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load (‘C: \ DATA \ DATA.xml’); XMLError: = XMLDoc.ParseError; If XMLError.ErrorCode<>0 Então // // Aqui tratamos do erro // Else Memo1.Lines.Add (XMLDoc.XML); ... XMLDoc: = Nil;

Para descobrir quais informações são retornadas em caso de erro, altere a seguinte entrada do diretório:

Bob dylan EUA Columbia 10.90 1985

removendo o elemento de fechamento .

Agora vamos adicionar um novo branch. Abaixo está o código que mostra como adicionar uma nova entrada de CD-ROM de música:

Var NewNode: IXMLDOMNode; Filho: IXMLDOMNode; ... // Crie um novo ramo - NewNode: = XMLDoc.CreateNode (1, ‘CD’, ‘’); // Adicione um elemento Bob dylan EUA Columbia 10.90 1985 Bonnie Tylor Reino Unido CBS Records 9.90 1988 ... Joe Cocker EUA EMI 8.20 1987

Agora estamos prontos para começar a examinar o modelo de objeto XML DOM, começando com o objeto XMLDOMDocument.

Documento XML - objeto XMLDOMDocument

Trabalhar com um documento XML começa com seu carregamento. Para isso, usamos o método Load, que possui apenas um parâmetro que especifica a URL do documento carregado. Ao carregar arquivos de um disco local, apenas o nome completo do arquivo é especificado (o protocolo file: /// pode ser omitido neste caso). Se o documento XML for armazenado como uma string, use o método LoadXML para carregar o documento.

A propriedade Async é usada para controlar como o documento é carregado (síncrono ou assíncrono). Por padrão, esta propriedade é configurada para True, indicando que o documento é carregado de forma assíncrona e o controle é retornado ao aplicativo antes que o documento seja totalmente carregado. Caso contrário, o documento carrega de forma síncrona e, em seguida, você deve verificar o valor da propriedade ReadyState para saber se o documento foi carregado ou não. Você também pode criar um manipulador para o evento OnReadyStateChange que assumirá o controle quando o valor da propriedade ReadyState for alterado.

O seguinte mostra como carregar um documento XML usando o método Load:

Usa ... MSXML_TLB ... procedure TForm1.Button1Click (Sender: TObject); var XMLDoc: IXMLDOMDocument; começar XMLDoc: = CoDOMDocument.Create; XMLDoc.Async: = False; XMLDoc.Load (‘C: \ DATA \ DATA.xml’); // // Aqui é onde está o código que manipula // o documento XML e suas ramificações // XMLDoc: = Nil; fim;

Depois que o documento é carregado, podemos acessar suas propriedades. Portanto, a propriedade NodeName conterá o valor #document, a propriedade NodeTypeString conterá o valor do documento e a propriedade URL conterá o valor file: /// C: /DATA/DATA.xml.

Manipulação de erros

De particular interesse são as propriedades relacionadas ao processamento de documentos no carregamento. Por exemplo, a propriedade ParseError retorna um objeto XMLDOMParseError contendo informações sobre um erro que ocorreu durante o processamento do documento.

Para escrever um gerenciador de erros, você pode adicionar o seguinte código:

Var XMLError: IXMLDOMParseError; ... XMLDoc.Load (‘C: \ DATA \ DATA.xml’); XMLError: = XMLDoc.ParseError; If XMLError.ErrorCode<>0 Então // // Aqui tratamos do erro // Else Memo1.Lines.Add (XMLDoc.XML); ... XMLDoc: = Nil;

Para descobrir quais informações são retornadas em caso de erro, altere a seguinte entrada do diretório:

Bob dylan EUA Columbia 10.90 1985

removendo o elemento de fechamento .

Agora vamos adicionar um novo branch. Abaixo está o código que mostra como adicionar uma nova entrada de CD-ROM de música:

Var NewNode: IXMLDOMNode; Filho: IXMLDOMNode; ... // Crie um novo ramo - NewNode: = XMLDoc.CreateNode (1, ‘CD’, ‘’); // Adicione um elemento