Delphi-PRAXiS - Delphi Suche nach MySQL im Netzwerk (bevorzugt Zeos)

Da ich davon keine Ahnung habe, hab' ich mal meinen Lieblingschatbot gefragt ;-)

Zitat:

Zitat von Frage

Wie kann man in einem Netzwerk MySQL-Server finden?

Zitat:

Zitat von ChatBot

Um einen MySQL-Server in einem Netzwerk zu finden, können Sie folgende Schritte ausführen:

1. **Konfigurieren Sie den SQL-Dienst**: Starten Sie den SQL Server Konfigurations-Manager Ihres SQL-Servers über das Windows Startmenü². Stellen Sie sicher, dass im Reiter "Protokoll" bei "aktiviert" "Ja" eingestellt ist². Vergeben Sie im Reiter IP-Adressen ganz unten bei "IPAll" einen festen Port².

2. **Firewall-Freigaben erstellen**: Damit der SQL Server von anderen PCs im Netzwerk aus erreichbar ist, müssen einige Ports freigegeben werden². Geben Sie den TCP-Port 1433 sowie den im vorigen Abschnitt eingestellten festen Port ein².

3. **MySQL-Server starten**: Ein MySQL-Server hört auf den Port TCP 3306¹. Wenn netstat diesen Port nicht aufführt, läuft der MySQL-Server nicht¹. Das Control Panel von XAMPP sollte das eigentlich auch anzeigen¹.

4. **Zugriff erlauben**: Wenn der MySQL-Server läuft, wird der Zugriff ggf. durch die Windows-Firewall geblockt¹. Da müssen Sie den Zugriff von außen dann genehmigen¹.

Bitte beachten Sie, dass Sie während der Konfiguration des SQL Servers den SQL Server-Dienst neu starten müssen, damit die Einstellungen wirksam werden². Während des Neustarts dürfen keine Clients (Wawi, LS-POS, ...) mit der Datenbank verbunden sein, da sonst Datenverlust droht².

Quelle: Unterhaltung mit Bing, 29.1.2024
(1) SQL-Datenbank im Netzwerk verwenden - luwosoft-support.de.

https://www.luwosoft-support.de/6419...werk-verwenden.
(2) MySQL Server im lokalen Netzwerk erreichen. Wie? - Gutefrage.

https://www.gutefrage.net/frage/mysq...-erreichen-wie.
(3) Wie kann ich mich von meinem Rechner mit einem MySQL-Server verbinden?.

https://www.variomedia.de/faq/Wie-ka...en/article/244.

Zitat:

Zitat von Frage

Welche Windows-API muss ich in Delphi nutzen um zu erfahren, welcher Server im Netz auf dem Port 3306 und / oder dem Port 1433 lauscht?

Zitat:

Zitat von ChatBot

Um herauszufinden, welcher Server in einem Netzwerk auf den Ports 3306 (MySQL) und/oder 1433 (SQL Server) lauscht, können Sie die Windows Sockets API (Winsock) verwenden. In Delphi können Sie die `TIdStack`-Klasse aus der Indy-Bibliothek verwenden, die eine High-Level-Abstraktion für Netzwerkoperationen bietet.

Hier ist ein einfacher Codeausschnitt, der zeigt, wie Sie einen offenen Port auf einem bestimmten Host überprüfen können:

Delphi-Quellcode:

			uses

  IdStack;

function IsPortOpen(const AHost: string; const APort: Integer): Boolean;

var

  LIdStack: TIdStack;

begin

  LIdStack := TIdStack.Create;

  try

    try

      LIdStack.Connect(AHost, APort);

      Result := True;

    except

      Result := False;

    end;

  finally

    LIdStack.Free;

  end;

end;

Zitat:

Zitat von ChatBot

In diesem Code wird versucht, eine Verbindung zum angegebenen Host und Port herzustellen. Wenn die Verbindung erfolgreich ist, gibt die Funktion `True` zurück, was bedeutet, dass der Port offen ist. Andernfalls gibt die Funktion `False` zurück.

Bitte beachten Sie, dass dieser Code nur überprüft, ob ein Port offen ist. Es kann nicht bestimmen, welcher Dienst (z.B. MySQL oder SQL Server) auf diesem Port läuft. Um den spezifischen Dienst zu ermitteln, der auf einem Port läuft, müssten Sie eine tiefere Inspektion des Netzwerkverkehrs durchführen, was normalerweise über den Anwendungslayer hinausgeht¹².

Quelle: Unterhaltung mit Bing, 29.1.2024
(1) Where can I find Delphi Declarations for Windows API calls?.

https://stackoverflow.com/questions/...dows-api-calls.
(2) Can we call Native Windows API from Delphi? - Stack Overflow.

https://stackoverflow.com/questions/...pi-from-delphi.
(3) 3 Programmierung der seriellen Schnittstelle - Elektronik-Labor.

https://www.elektronik-labor.de/RS232/RS232_3_4.htm.
(4) Herstellen einer Verbindung zu MySQL Server (FireDAC).

https://docwiki.embarcadero.com/RADS..._%28FireDAC%29.
(5) TMS WEB Core: Entwicklung von Webanwendungen mit Delphi.

https://learndelphi.org/de/tms-web-c...t-with-delphi/.

Zitat:

Zitat von Frage

Welche Windows-API muss ich mit Delphi nutzen um zu erfahren welche Server im Netzwerk verfügbar sind?

Zitat:

Zitat von ChatBot

Um herauszufinden, welche Server in einem Netzwerk verfügbar sind, können Sie die Windows Networking API (WNet) verwenden. In Delphi können Sie die Funktionen `WNetOpenEnum`, `WNetEnumResource` und `WNetCloseEnum` verwenden, um durch die verfügbaren Netzwerkressourcen zu iterieren¹.

Hier ist ein einfacher Codeausschnitt, der zeigt, wie Sie die verfügbaren Netzwerkressourcen auflisten können:

Delphi-Quellcode:

			uses

  Winapi.Windows, Winapi.Winnetwk;

procedure ListNetworkResources;

var

  NetResource: TNetResource;

  EnumHandle: THandle;

  Buffer: array[0..1023] of TNetResource;

  Entries: DWORD;

  i: Integer;

begin

  FillChar(NetResource, SizeOf(NetResource), 0);

  NetResource.dwScope := RESOURCE_GLOBALNET;

  NetResource.dwType := RESOURCETYPE_ANY;

  if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @NetResource, EnumHandle) = NO_ERROR then

  try

    repeat

      Entries := DWORD(-1);

      if WNetEnumResource(EnumHandle, Entries, @Buffer, SizeOf(Buffer)) = NO_ERROR then

        for i := 0 to Entries - 1 do

          if Buffer[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then

            WriteLn(Buffer[i].lpRemoteName);

    until Entries < DWORD(-1);

  finally

    WNetCloseEnum(EnumHandle);

  end;

end;

Zitat:

Zitat von ChatBot

In diesem Code wird die Funktion `WNetOpenEnum` verwendet, um einen Enumerator für Netzwerkressourcen zu erstellen. Dann wird `WNetEnumResource` in einer Schleife aufgerufen, um die Ressourcen einzeln abzurufen. Jede Ressource, die als Server angezeigt wird (d.h., `dwDisplayType` ist `RESOURCEDISPLAYTYPE_SERVER`), wird dann auf der Konsole ausgegeben¹.

Bitte beachten Sie, dass dieser Code nur die Namen der verfügbaren Server auflistet. Es kann nicht bestimmen, welche Dienste auf diesen Servern laufen¹².

Quelle: Unterhaltung mit Bing, 29.1.2024
(1) Delphi WinAPI verfügbare Domains auflisten - Delphi-PRAXiS.

https://www.delphipraxis.net/204432-...auflisten.html.
(2) Where can I find Delphi Declarations for Windows API calls?.

https://stackoverflow.com/questions/...dows-api-calls.
(3) Can we call Native Windows API from Delphi? - Stack Overflow.

https://stackoverflow.com/questions/...pi-from-delphi.
(4) undefined.

http://www.delphigroups.info/2/72/169815.html.

Zitat:

Zitat von Frage

Wie kann ich in Delphi, unter Nutzung der Zeos-Bibliothek, prüfen ob auf einem Server eine MySQL-Datenbank zur Verfügung steht?

Zitat:

Zitat von ChatBot

Um zu überprüfen, ob eine MySQL-Datenbank auf einem Server verfügbar ist, können Sie die Zeos-Bibliothek in Delphi verwenden. Sie können eine Verbindung zur Datenbank herstellen und dann überprüfen, ob die Verbindung erfolgreich war. Hier ist ein einfacher Codeausschnitt, der zeigt, wie Sie das tun können:

Delphi-Quellcode:

			uses

  ZConnection;

var

  Connection: TZConnection;

begin

  Connection := TZConnection.Create(nil);

  try

    Connection.HostName := 'IhrServer';  // Ersetzen Sie 'IhrServer' durch den tatsächlichen Servernamen

    Connection.Port := 3306;

    Connection.Protocol := 'mysql';

    Connection.Database := 'IhreDatenbank';  // Ersetzen Sie 'IhreDatenbank' durch den tatsächlichen Datenbanknamen

    Connection.User := 'IhrBenutzername';  // Ersetzen Sie 'IhrBenutzername' durch den tatsächlichen Benutzernamen

    Connection.Password := 'IhrPasswort';  // Ersetzen Sie 'IhrPasswort' durch das tatsächliche Passwort

    Connection.Connect;

    if Connection.Connected then

      WriteLn('Verbindung erfolgreich')

    else

      WriteLn('Verbindung fehlgeschlagen');

  finally

    Connection.Free;

  end;

end;

Zitat:

Zitat von ChatBot

In diesem Code wird versucht, eine Verbindung zur angegebenen MySQL-Datenbank auf dem angegebenen Server herzustellen. Wenn die Verbindung erfolgreich ist, gibt der Code "Verbindung erfolgreich" aus. Andernfalls gibt er "Verbindung fehlgeschlagen" aus¹².

Bitte beachten Sie, dass Sie die entsprechenden Werte für `IhrServer`, `IhreDatenbank`, `IhrBenutzername` und `IhrPasswort` durch die tatsächlichen Werte ersetzen müssen¹².

Quelle: Unterhaltung mit Bing, 29.1.2024
(1) MySQL mit ZeosLib - Delphi-Treff.

https://www.delphi-treff.de/tutorial...l-mit-zeoslib/.
(2) MYSQL Abfrage mit ZEOS? Datensatz vorhanden? - Delphi-PRAXiS.

https://www.delphipraxis.net/43731-m...vorhanden.html.
(3) Delphi Mysql Datenbank erzeugen mit Zeos - Delphi-PRAXiS.

https://www.delphipraxis.net/50698-m...-mit-zeos.html.

Eventuell kannst Du Dir daraus ja was brauchbares zusammenbauen. Vom Prinzip, denkt ich, müsste alles Wesentliche dabei sein.