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

procedure Tsrvc_EMServer.ServiceCreate(Sender: TObject);
begin
  //Variablen aus .ini initialisieren
  windir := GetWinDir;
  settings := TInifile.Create(windir + '/EMServer.ini');
  ServerSocket1.Port  := settings.ReadInteger('Connection','Port',12345);
  datapath            := Settings.ReadString('Database','Path' + '\',GetCurrentDir + '\data\');
  databasename        := settings.ReadString('Database','Filename','EMServer.mdb');
  logfile             := settings.ReadString('Filenames','Logfile','C:\log.txt');
  transferfile        := settings.ReadString('Filenames','Transferfile','C:\transfer.xml');

  //Connection-String aufbauen
  constring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
              +  datapath + databasename
              + ';Persist Security Info=False';
  //Connection-String zuweisen 
  con_EMServer.ConnectionString := constring;
  //Connection aufbauen
  con_EMServer.Connected := True; 
  //Tabelle aktivieren
  tbl_sdaEM.Active := True;
end;					

1:
2:
3:
4:

  //Connection-String aufbauen
  constring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
              +  datapath + databasename
              + ';Persist Security Info=False';					

1:
2:

  //Connection-String zuweisen 
  con_EMServer.ConnectionString := constring;					

1:
2:
3:
4:
5:
6:
7:
8:

[Connection]
Port=12345
[Database]
Path=D:\Eigene Dateien\Ausbildung\Abschlussprüfung\Programmierung\dev\serverapp\data\
Filename=EMServer.mdb
[Filenames]
Logfile=C:\log.txt
Transferfile=C:\transfer.xml