delphi Linux 上连接到 SQL Server

将 Linux 上的 Delphi 连接到 SQL Server

RAD Studio 使您能够为 Windows 和 Linux 平台构建 Delphi 应用程序。例如，您可以构建一个 ODBC 应用程序，该应用程序在 Windows 上使用 Microsoft ODBC 驱动程序，在 Linux 上使用 Easysoft ODBC 驱动程序。以下教程描述了如何为 Linux 创建一个检索 SQL Server 数据的控制台应用程序，其中的组件包括：

Windows Machine

---------------

RAD Studio

Linux Machine

-------------

Platform Assistant Server

Delphi Application

unixODBC Driver Manager

SQL Server ODBC Driver

Windows Machine

---------------

SQL Server

program SQLServer;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils, 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.ODBC, FireDAC.Phys.ODBCDef,

  FireDAC.DApt, Data.DB, FireDAC.Comp.Client, FireDAC.ConsoleUI.Wait;

var

    RHConnection: TFDConnection;

    RHQuery: TFDQuery;

    sValue: String;

begin

  try

    RHConnection:=TFDConnection.Create(nil);

    RHConnection.Params.Add('DriverID=ODBC');

    RHConnection.Params.Add('DataSource=SQLSERVER_SAMPLE');

    RHConnection.Connected:=true;

    sValue := RHConnection.ExecSQLScalar('select ''SQL Server from Linux'' as test_col');

    Writeln(sValue);

    ReadLn;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.

1. 下载适用于 64 位 Linux 平台的 SQL Server ODBC 驱动程序。（需要注册。）

在已安装或将要安装 Platform Assistant（PA 服务器）的机器上安装 SQL Server ODBC 驱动程序并获得许可。

有关安装说明，请参阅ODBC 驱动程序文档。

注意您需要在您的机器上安装 unixODBC Driver Manager。Easysoft 发行版包括一个版本的 unixODBC Driver Manager，Easysoft SQL Server ODBC 驱动程序已经过测试。Easysoft 驱动程序安装程序为您提供安装 unixODBC 的选项。

在 /etc/odbc.ini 中创建一个 ODBC 数据源，该数据源连接到您要从 Delphi 访问的 SQL Server 数据库。例如：

[SQLSERVER_SAMPLE]

Driver          = Easysoft ODBC-SQL Server

Server          = my_machine\SQLEXPRESS

User            = my_domain\my_user

Password        = my_password

# If the database you want to connect to is the default

# for the SQL Server login, omit this attribute

Database        = Northwind

使用 isql 测试新数据源。例如：

cd /usr/local/easysoft/unixODBC/bin 

./isql.sh -v SQLSERVER_SAMPLE

在提示符下，键入“帮助”以显示表格列表。要退出，请在空提示行中按回车键。

如果您无法连接，请参阅本文和SQL Server ODBC 驱动程序知识库以获得帮助。

如果您还没有这样做，请在安装了 SQL Server ODBC 驱动程序的机器上安装 PA 服务器。

在这台机器上设置环境，以便您的 Delphi 程序可以加载 SQL Server ODBC 驱动程序。例如：

LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/local/easysoft/sqlserver:/usr/local/easysoft/lib:
/usr/local/easysoft/unixODBC/lib
export $LD_LIBRARY_PATH

启动 PA 服务器。例如：

cd ~/PAServer-19.0 

./paserver

如果您没有安装 SQL Server ODBC 驱动程序分发中包含的 unixODBC 驱动程序管理器，请/usr/local/easysoft/unixODBC/lib从环境变量值中省略。

在 RAD Studio 中，创建一个新的 Delphi 控制台应用程序。

将应用程序的目标平台设置为 64 位 Linux。

编辑目标平台的配置文件属性以指定 PA 服务器的详细信息。

将本教程开头显示的代码插入应用程序。

运行应用程序。