Arquivo INI Zeos Mysql

09/12/2015

0

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

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar