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;