1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

function SQLConnect(_Object: TComponent; dbID: string; var _SQLConnection: TSQLConnection): boolean;
begin
  _SQLConnection := TSQLConnection.Create(_Object);
  with _SQLConnection do
  begin
    Name := 'SQLConnection' + dbID;
    ConnectionName := 'MySQLConnection';
    // hier evtl. andere Datenbanken prüfen oder über Ini-Datei gehen
    DriverName := 'MySQL';
    GetDriverFunc := 'getSQLDriverMYSQL';
    LibraryName := 'dbexpmysql.dll';
    LoadParamsOnConnect := False;
    LoginPrompt := False;
    KeepConnection := true;
    params.Values['DriverName'] := 'MySQL';
    params.Values['HostName'] := 'localhost'; 
    params.Values['Database'] := 'db_name';
    params.Values['User_Name'] := 'user';
    params.Values['Password'] := 'pw'; 
    params.Values['BlobSize'] := '-1';
    params.Values['LocaleCode'] := '0000';
    params.Values['Compress'] := 'True';
    params.Values['Reconnect'] := 'True';
    params.Values['LoginTimeout'] := '60';
    params.Values['ReadTimeout'] := '15';
    params.Values['WriteTimeout'] := '15';
    VendorLib := 'libmysql.dll';
    try
      Connected := true;
    except
     on e:Exception do Protokoll(DateTimeToStr(now)+' ' + e.Message,'service.log');
    end;
  end;
  Result := _SQLConnection.Connected;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TOnlineThread.Execute;
begin

  Protokoll(DateTimeToStr(now)+' Dienst wird gestartet -1 !','service.log');

  if SQLConnect(PZOnline, '1', PSPSQLConnection) = false then // Datenbank-Verbindung aufbauen!
  begin
    Protokoll('Verbindung zum Datenbank-Server nicht möglich!' + #13 + #10 + 'Programm wird beendet!','service.log');
    Terminate;
  end;

  Protokoll(DateTimeToStr(now)+' Dienst wird gestartet -1a !','service.log');


//... weiterer Quellcode

  while not Terminated do
  begin
     Protokoll(DateTimeToStr(now)+' Dienst läuft!','service.log');
     Sleep(500);
  end;

end;					

1:

params.Values['LibraryName'] := 'dbxmys.dll';