Criando um arquivo XML: Delphi

Nessa quick tips iremos aprender a utilizar o XML como parâmetros para conexão do dbExpress.

Vamos criar um projeto, e adicionar os seguintes componentes.

·         4 Edits;

·         4 Labels;

·         3 Buttons;

Altere as seguintes propriedades dos seguintes componentes:

Feito isso nosso formulário ira ficar conforme a imagem abaixo.

Após isso iremos adicionar um SQLConnection e alterar as propriedades:

·         Name = sqlConn;

·         ConnectionName = MSSQLConnection (No meu caso, estou usando SQL Server 2008);

·         Driver = MSSQL;

·         GetDriverFunc = getSQLDriverMSSQL;

·         LoginPrompt = false;

·         VendorLib =sqlncli10.dll (Delphi 2010) .

Observações: Como estou utilizando o Delphi 2010, você necessitara preencher somente as propriedades Name e ConnectionName, pois o resto o Delphi já configura.

Agora vamos criar nosso XML com as propriedades que precisamos. (Nesse caso, podemos preencher todos os parâmetros exigidos no sqlConnection, porem, vamos preencher somente os principais que são: HOST, DATABASE, USER_NAME, PASSWORD).

XML:

<?xml version="1.0" encoding="UTF-8"?>

<conexao>

            <host>.\SqlExpress</host>

            <database>Crm</database>

                       <username>sa</username>

            <password>a1b2c3d4e5</password>

</conexao>

Após a criação do XML, vamos voltar ao Delphi e criar as funções para leitura desse XML. Isso é muito simples, basta você ir em file->new->other. Vá em XML-> XML Data Binding e Ok.

Agora vamos aos passos.

1)    Selecione o arquivo XML que criamos.

Observação:

Quando você for selecionar o arquivo, mude a opção de filtro de extensão para XML Files *.xml.

Depois de selecionado o Arquivo de conexão, iremos clicar em next.

Notamos que o Delphi identificou o XML, e criou nomes para ele. Podemos clicar em next novamente.

Observação: Se houve algum erro, verifique a estrutura do seu XML.

Após isso ele faz um preview sobre o código que ele ira gerar para a leitura desse arquivo XML. Podemos clicar em finish.

Logo após clicarmos em finish, o Delphi criou uma nova Unit, no qual vamos salva-la com o nome uConexaoXml.pas.

Veja a próxima parte onde finalizo o exemplo.

Um abraço
William Galleti.