Thema: Delphi Zugriff auf ADS Server

Einzelnen Beitrag anzeigen

Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
620 Beiträge
 
Delphi 10.3 Rio
 
#11

AW: Zugriff auf ADS Server

  Alt 18. Aug 2023, 08:53
Dann probier es mal so:
Delphi-Quellcode:
//units:
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
  FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
  FireDAC.Phys.ADS, FireDAC.Phys.ADSDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
  FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  FireDAC.Phys.ADSWrapper, FireDAC.Comp.UI

// code:
con1.DriverName := 'ADS';
TFDPhysADSConnectionDefParams(con1.Params).ServerTypes := stRemote;
con1.Params.DataBase := '\\Db2\data\xxx.add';
//con1.Params.DataBase := '\\Db2:6262\data\xxx.add'; <-- alternativ mit port
con1.Params.Username := 'xxx';
con1.Params.Password := 'xxx';

con1.LoginPrompt := false;

con1.Connected := true;
Keine Angaben als Strings, keine weiteren Angaben.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat