RAD Studio giver dig mulighed for at bygge en Delphi-applikation til både Windows- og Linux-platforme. Du kan for eksempel bygge en ODBC-applikation, der bruger en Microsoft ODBC-driver på Windows og en Easysoft ODBC-driver på Linux. I følgende selvstudie, som beskriver, hvordan man opretter en konsolapplikation til Linux, der henter SQL Server-data, er komponenterne:
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.
- Download SQL Server ODBC-driveren til 64-bit Linux-platforme. (Registrering påkrævet.)
- Installer og licenser SQL Server ODBC-driveren på den maskine, hvor Platform Assistant (PA Server) er eller vil blive installeret.
Se ODBC-driverdokumentationen for installationsinstruktioner.
Bemærk Du skal have unixODBC Driver Manager installeret på din maskine. Easysoft-distributionen inkluderer en version af unixODBC Driver Manager, som Easysoft SQL Server ODBC-driveren er blevet testet med. Easysoft-driveropsætningsprogrammet giver dig mulighed for at installere unixODBC.
- Opret en ODBC-datakilde i /etc/odbc.ini, der forbinder til den SQL Server-database, du vil have adgang til fra Delphi. For eksempel:
[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
- Brug isql til at teste den nye datakilde. For eksempel:
cd /usr/local/easysoft/unixODBC/bin ./isql.sh -v SQLSERVER_SAMPLE
Ved prompten skal du skrive "hjælp" for at få vist en liste over tabeller. For at afslutte skal du trykke på retur i en tom promptlinje.
Hvis du ikke kan oprette forbindelse, skal du se denne artikel og SQL Server ODBC Driver Knowledge Base for at få hjælp.
- Hvis du ikke allerede har gjort det, skal du installere PA-serveren på den maskine, hvor du har installeret SQL Server ODBC-driveren.
- Indstil miljøet på denne maskine, så dit Delphi-program kan indlæse SQL Server ODBC-driveren. For eksempel:
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/local/easysoft/sqlserver:/usr/local/easysoft/lib: /usr/local/easysoft/unixODBC/lib export $LD_LIBRARY_PATH
Start PA-serveren. For eksempel:
cd ~/PAServer-19.0 ./paserver
Hvis du ikke installerede unixODBC Driver Manager, der er inkluderet i SQL Server ODBC-driverdistributionen, skal du udelade
/usr/local/easysoft/unixODBC/lib
fra miljøvariabelværdien. - Opret en ny Delphi-konsolapplikation i RAD Studio.
- Indstil målplatformen for applikationen til at være 64-bit Linux.
- Rediger profilegenskaberne for din målplatform for at angive detaljerne for din PA-server.
- Indsæt koden vist i starten af denne øvelse i applikationen.
- Kør applikationen.