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);
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)