Arquivo INI Zeos Mysql

MySQL

Delphi

09/12/2015

Boa tarde, criei um novo aplicativo com Delphi 2010 com conexão Zeos e arquivo .ini, conectou perfeitamente, contudo se a senha estiver errada o sistema abre mas não conecta no banco. Gostaria que o sistema exibisse a mensagem configurada e não abrisse.

begin
try
fConfig := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
conexaoMY.Connected := False;
conexaoMY.HostName := fConfig.ReadString('conexao', 'Hostname', '');
conexaoMY.Port := fConfig.ReadInteger('conexao', 'Port', 0);
conexaoMY.Protocol := fConfig.ReadString('conexao', 'Protocol', '');
conexaoMY.LibraryLocation := fConfig.ReadString('conexao', 'LibraryLocation', '');
conexaoMY.User := fConfig.ReadString('conexao', 'User', '');
conexaoMY.Password := fConfig.ReadString('conexao', 'Password', '');
conexaoMY.Database := fConfig.ReadString('conexao', 'Database', '');
conexaoMY.ClientCodepage := fConfig.ReadString('conexao', 'Charset', '');

except on
E:Exception do MessageDlg('Erro ao conectar!'#13'Erro: ' + e.Message, mtError, [mbOK], 0);
end;
FreeAndNil(fConfig);
Wilter Porto

Wilter Porto

Curtidas 0
POSTAR