Bei Setup mit InnoSetup festellen ob Datenbank lokal

[norwegen60]

Hallo zusammen,

bei der Installation eines Programms gebe ich die Möglichkeit eine lokale MsSQL-Datenbank und eine zentrale MsSQL-Datenbank anzugeben. Wie kann ich feststellen ob:

• die erste Datenbank wirklich lokal liegt
• die beiden Datenbanken nicht dieselben sind

Man könnte die Hostverbindung ja einmal mit LOCALHOST und einmal mit PC-03-TEST angeben und beides ist der lokale PC

Vielen Dank für schnelle Hilfe

Gerd

[mkinzler]

Einfach sämtlich lokalen IP-Adressen ermitteln und mit aufgelösten Servernamen vergleichen.

[norwegen60]

Und wie mache ich das in InnoSetup?

[mkinzler]

Mit einem externen Programm, welches vom Setup temporär entpackt und ausgeführt wird.

[norwegen60]

Ich glaube ich habe eine einfachere Möglichkeit gefunden.

Delphi-Quellcode:

sPcName = lowercase(GetComputerNameString);  
if (pos(sPcName, lowercase(sServerName)) > 0) or      // PC-Name Teil des Servernamens
   (pos('local', lowercase(sServerName)) > 0) or      // LOCAL Teil des Servernamens, z.B. LOCALHOST
   (pos('127.0.0.1', sServerName) > 0) then               // 127.0.0.1 des Servernamens
      MsgBox('Angegebener Server ist lokaler Server', mb_Infomation, MB_OK);

Oder spricht da was dagegen?