Platform Assistant服务器是否需要运行fireDAC应用程序才能连接到Informix?

时间:2014-03-26 05:48:50

标签: delphi informix delphi-xe5 firedac

我正在尝试使用fireDAC将我的Delphi应用程序连接到Informix数据库。我在连接编辑器中提供的所有参数。但我必须运行PA Server才能使其正常工作。

因此,必须运行PA服务器以连接到Informix db。

1 个答案:

答案 0 :(得分:0)

我可以使用以下代码来解决它而不是拖动删除控件:

procedure TForm1.FormCreate(Sender: TObject);
var
Params: TStringList;
begin
 FDManager := TFDManager.Create(self);
 FDconnection := TFDConnection.Create(self);
 FDQuery := TFDQuery.Create(self);
 FDataSOurce := TDataSource.Create(self);
 Params := TStringList.create;
 Params.Values['User_Name'] := paramstr(3);
 Params.Values['Database'] := paramstr(2);
 Params.Values['Password'] := paramstr(4);
 Params.Values['DriverName'] := 'Informix';
 Params.Values['HostName'] := paramstr(1);
 Params.Values['RDBMS'] := 'OTHER';
 Params.Values['DriverID'] := 'TDBX';
 FDManager.AddConnectionDef('BOSSConnection', 'TDBX', Params);
 FDConnection.DriverName := 'TDBX';
 FDConnection.ConnectionDefName:='BOSSConnection';
 FDConnection.Connected := True;
 FDQuery.SQL.Add('select first 10 cust_code, bus_name, status from strcustr;');
 FDQuery.Connection := FDConnection;
 FDataSource.DataSet := FDQuery;
 FDQuery.Active := True;
 DBGrid1.DataSource := FDataSource;
 FDConnection.LoginPrompt := False;
end;