Foros Club Delphi - Probar conexión a Firebird

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Probar conexión a Firebird (https://www.clubdelphi.com/foros/showthread.php?t=69107)

mlara

27-07-2010 00:52:18

Probar conexión a Firebird

Me preguntaba si alguien habría probado conexión con el servidor Firebird sin necesidad de conectarse a una base de datos para verificarlo. Cómo se haría desde Delphi? Estoy usando los MDO.

mlara

27-07-2010 02:56:57

Terminé usando el componente MDOServerProperties. Después de fijar sus parámetros:

Código:

try

  try

    Active := True;

    Application.MessageBox('Prueba de conexión exitosa!', 'Información', mb_Ok);

  except

    on E: Exception do begin

      Application.MessageBox(PAnsiChar('Prueba de conexión no exitosa!'#13#10#10'Mensaje del sistema:'#13#10#10+E.Message), 'Información', mb_Ok);

    end

  end

finally

  Active := False;

end

La franja horaria es GMT +2. Ahora son las 11:50:54.