RAD Studio vám umožňuje vytvořit aplikaci Delphi pro platformy Windows i Linux. Můžete například vytvořit aplikaci ODBC, která používá ovladač Microsoft ODBC v systému Windows a ovladač Easysoft ODBC v systému Linux. V následujícím kurzu, který popisuje, jak vytvořit konzolovou aplikaci pro Linux, která načítá data SQL Serveru, jsou tyto součásti:
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.
- Stáhněte si ovladač SQL Server ODBC pro 64bitové platformy Linux. (Je nutná registrace.)
- Nainstalujte a licencujte ovladač SQL Server ODBC na počítači, kde je nebo bude nainstalován Platform Assistant (PA Server).
Pokyny k instalaci naleznete v dokumentaci ovladače ODBC.
Poznámka Na vašem počítači potřebujete nainstalovaný unixODBC Driver Manager. Distribuce Easysoft obsahuje verzi unixODBC Driver Manager, se kterou byl testován ovladač Easysoft SQL Server ODBC. Instalační program ovladače Easysoft vám dává možnost nainstalovat unixODBC.
- Vytvořte zdroj dat ODBC v /etc/odbc.ini, který se připojí k databázi SQL Server, ke které chcete přistupovat z Delphi. Například:
[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
- K testování nového zdroje dat použijte isql. Například:
cd /usr/local/easysoft/unixODBC/bin ./isql.sh -v SQLSERVER_SAMPLE
Na výzvu zadejte "help" pro zobrazení seznamu tabulek. Pro ukončení stiskněte return v prázdném řádku s výzvou.
Pokud se nemůžete připojit, vyhledejte pomoc v tomto článku a ve znalostní databázi SQL Server ODBC Driver Knowledge Base.
- Pokud jste tak ještě neučinili, nainstalujte server PA do počítače, kde jste nainstalovali ovladač SQL Server ODBC.
- Nastavte prostředí na tomto počítači tak, aby váš program Delphi mohl načíst ovladač SQL Server ODBC. Například:
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/local/easysoft/sqlserver:/usr/local/easysoft/lib: /usr/local/easysoft/unixODBC/lib export $LD_LIBRARY_PATH
Spusťte server PA. Například:
cd ~/PAServer-19.0 ./paserver
Pokud jste nenainstalovali unixODBC Driver Manager, který je součástí distribuce ovladačů SQL Server ODBC, vynechejte
/usr/local/easysoft/unixODBC/lib
z hodnoty proměnné prostředí. - V RAD Studiu vytvořte novou konzolovou aplikaci Delphi.
- Nastavte cílovou platformu aplikace na 64bitový Linux.
- Upravte vlastnosti profilu pro vaši cílovou platformu a určete podrobnosti pro váš server PA.
- Vložte do aplikace kód zobrazený na začátku tohoto výukového programu.
- Spusťte aplikaci.