Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Redundanz Connection (https://www.delphipraxis.net/184650-redundanz-connection.html)

strom 12. Apr 2015 09:37

Datenbank: mariadb • Version: 8.3.0.4694 • Zugriff über: MyConnect

Redundanz Connection
 
hallo,

möchte gerne über eine "dyndns" Adresse eine Verbindung zur MariaDB
aufbauen. Dieses ist auch kein Problem!

Sollte die Internetverbindung mal gestört sein, möchte ich eine
lokale Verbindung benutzen als Redundanz.

Diese Überwachung bzw. Funktion soll ohne Fehlermeldung ausgeführt werden!
Zum Beispiel:

"Cannot connect to Server........."

Hat einer eine Idee?

Hier ein Beispiel mit einem Button zum testen:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if SQL1.Connected = false then
  begin
   SQL1.Connect;
  end;
end;

procedure TForm1.SQL1Error(Sender: TObject; E: EDAError;
  var Fail: Boolean);
begin
 SQL1.Disconnect;
 if SQL2.Connected = false then
  begin
    SQL2.Connect;
  end;
end;

himitsu 12. Apr 2015 09:41

AW: Redundanz Connection
 
Schonmal nachgesehn, wofür der Fail-Paramater da ist? :stupid:

oder
Delphi-Quellcode:
if not SQL1.Connected then // wenn du auch if x = true then benutzt, dann bekommst du paar auf die Finger (das Warum kann man überall nachlesen)
begin
  try
    //SQL2.Disconnect; ?
    SQL1.Connect;
  except
    SQL2.Connect;
  end;
end;

Bernhard Geyer 12. Apr 2015 09:44

AW: Redundanz Connection
 
Soll diese Redundanz nur beim Verbindungsaufbau oder bei jeder Query zur DB wirken?
Aber wenn du eine lokale Kopie hast, wieso nicht immer diese Verwenden und die beiden DB per Datenbankreplikation synchron halten?


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz