Hi
ja ich habe 2 connection :
die zur Embedded
Delphi-Quellcode:
If FileExists(ExtractFilePath(Application.ExeName)+'fbembed.dll') then
begin
IBCPoolConnectionlog.ClientLibrary:=ExtractFilePath(Application.ExeName)+'fbembed.dll';
IBCPoolConnectionlog.Server:='';
//IBCPoolConnectionlog.ClientLibrary:=ExtractFilePath(Application.ExeName)+'fbclient.dll';
IBCPoolConnectionlog.Database:=ExtractFilePath(Application.ExeName)+'THREADLOG.FDB';
//IBCPoolConnection.Username:='SYSDBA';
//IBCPoolConnection.Password:='masterkey';
IBCPoolConnectionlog.Connect;
if IBCPoolConnectionlog.Connected then
begin
IBCPoolQuerylog.Connection:= IBCPoolConnectionlog;
Fconnected:= true;
end
und die zum eigentlich Server:
Delphi-Quellcode:
begin
ThDatabase.LoginPrompt := FALSE;
ThDatabase.Database := TFB_Server_Form(Thtag).connect_L.Alias;
ThDB.Fdblog.Fserverpfad:= TFB_Server_Form(Thtag).connect_L.Alias;
ThDatabase.Server := TFB_Server_Form(Thtag).connect_L.server;
ThDB.Fdblog.Fserver:= TFB_Server_Form(Thtag).connect_L.server;
//ThDatabase.DatabaseName := TFB_Server_Form(Thtag).connect_L.Server+':'+
// TFB_Server_Form(Thtag).Connect_L.Alias;
ThDatabase.Username := TFB_Server_Form(Thtag).connect_L.user;
ThDB.Fdblog.Fuser:= TFB_Server_Form(Thtag).connect_L.user;
ThDatabase.Password := TFB_Server_Form(Thtag).connect_L.PW;
ThDB.Fdblog.Fpasword:= TFB_Server_Form(Thtag).connect_L.PW;
if Params <> nil then
ThDatabase.Params := Params;
[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]