Hallo, ich habe eine Anwendung, welche auch außerhalb eines Firmennetzes mit einer NAT-
IP gestartet werden soll. Dazu haben wir die NAT-
IP in einem ini-File "verpackt" und im Quellcode bei 'on create'folgendes festgelegt:
Delphi-Quellcode:
ConnString :=
'
Provider=SQLOLEDB.1;Persist Security Info=False;' +
'
User ID=%s;Password=%s;Data Source=%s;Use Procedure for Prepare=1;' +
'
Initial Catalog=ABCDEF;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;'+
'
Tag with column collation when possible=False';
UserName := '
DMT#';
PassWord := '
dmt';
IP := GetIPfromINI('
NAT_IP.ini');
DM.AdoConnection1.CLOSE;
DM.ADOCon__DWH.Close;
try
Memo1.Lines.Append('
try connect to IP: ' +
IP);
Memo1.Lines.Append('
');
DM.AdoConnection1.ConnectionString := Format(ConnString,[UserName, PassWord,
IP]);
DM.AdoConnection1.Open;
DM.ADOCon__DWH.ConnectionString := Format(ConnString,[UserName, PassWord,
IP]);
DM.ADOCon__DWH.Open;
if IP = '
12.345.678.910'
then
Memo1.Lines.Append('
Connection to IP: 12.345.678.910')
else
Memo1.Lines.Append('
Connection to NAT IP: ' +
IP);
except
on E:
Exception do
begin
Memo1.Lines.Append('
No connection to database available, please check IP in the NAT_IP.ini!') ;
end;
end;
Warum aber, versucht das Programm trotzdem zuerst auf die 12.345.678.910 zuzugreifen?
Viele Grüße und Danke für jede Hilfe!