DELPHI 10.2 TOKYO搭建LINUX MYSQL开发环境

DELPHI 10.2 TOKYO搭建LINUX MYSQL开发环境

笔者使用ubuntu64位LINUX

首先必须保证LINUX可以连互联网。

安装MYSQL

sudo apt-get update

sudo apt-get install mysql-server

sudo apt-get install mysql-client

sudo apt-get install libmysqlclient-dev

复制MYSQL的驱动到程序的安装目录下面，去掉后面的版本号，MYSQL的版本号视安装的为准。

/usr/lib/x86_64-linux-gnu/libmysqlclient.so.20.3.4

安装libmidas.so

sudo apt-get install eso-midas

测试DATASETPROVIDER+CLIENTDATASET+OLEVARIANT，笔者在LINUX里面没有调通，在WIN32下面是没有问题的。

编译LINUX程序的前提条件：LinuxPAServer19.0.tar.gz

在 Delphi 的安装目录下，找到 PAServer 的安装包，对就是那个带 Linux 字样的那个 LinuxPAServer19.0.tar.gz。

将LinuxPAServer19.0.tar.gz上传到LINUX，解压，运行PASERVER程序。

FIREDAC数据库引擎连接MYSQL

procedure TdmMySql.ConnectDB;

begin

try

FDConnection1.Close;

FDConnection1.Params.Clear;

FDConnection1.Params.Add('Driver);

FDConnection1.Params.Add('Server=' + dbparam.ip);

FDConnection1.Params.Add('Database=' + dbparam.database);

FDConnection1.Params.Add('User_Name=' + dbparam.username);

FDConnection1.Params.Add('Password=' + dbparam.password);

FDConnection1.Params.Add('CharacterSet=' + dbparam.characterset);

FDConnection1.Connected := True;

Log.WriteLog('连接数据库成功');

except

on E: Exception do

begin

Log.WriteLog('连接数据库失败 ' + E.Message);

end;

end;

end;

procedure TdmMySql.DataModuleCreate(Sender: TObject);

begin

FDConnection1.LoginPrompt := False;

FDGUIxWaitCursor1.Provider := 'Console'; // 此属性的值必须是控制台

{$IFDEF MSWINDOWS}

FDPhysMySQLDriverLink1.VendorLib := 'libmysql.dll'; // MYSQL FOR WINDOWS驱动

{$ENDIF}

{$IFDEF POSIX}

FDPhysMySQLDriverLink1.VendorLib := 'libmysqlclient.so'; // MYSQL FOR LINUX驱动

{$ENDIF}

Self.ConnectDB;

end;