Desenvolvi uma aplicação que usa o FireDAC para se conectar ao MySQL. Porém quando tento abri-la em uma estação, no momento em que é setado o Connected := True
, a aplicação é fechada, sem retornar nenhuma Exception. Envolvi o código em um try...except
, mas mesmo assim não mostra nenhuma mensagem de erro. Aqui está o código que uso para a conexão
procedure TfrmServidor.confConnection;
begin
with conMySQL do begin
DriverName := LeXML.Strings[5];
Params.Add('Server=' + LeXML.Strings[3]);
Params.Add('Port=' + LeXML.Strings[4]);
Params.Add('Database=' + LeXML.Strings[0]);
Params.Add('User_Name=' + LeXML.Strings[1]);
Params.Add('Password=' + LeXML.Strings[2]);
ShowMessage(Params.Text);
end;
try
conMySQL.Connected := True;
except
on e : Exception do
ShowMessage(e.Message);
end;
end;
Onde LeXML
é uma função que lê um arquivo XML com as propriedades de conexão e retorna os valores em uma TStringList.
O que fiz de errado? O ShowMessage
com o Params.Text
retorna o seguinte:
[Window Title]
Servidor
[Content]
DriverID=MySQL
Server=10.1.1.16
Port=3306
Database=treinamentos
User_Name=treinamentos
Password=masterkey
[OK]
Alguém pode me ajudar?