DELPHI 10.2 TOKYO搭建LINUX MYSQL开发环境

时间:2024-07-18 12:05:15

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('DriverID=MySQL');
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;