bestlong 怕失憶論壇

標題: Delphi + ZeosLib + Tnt + MySQL 使用 UTF-8 編碼 [打印本頁]
作者: bestlong    時間: 2011-12-14 17:25     標題: Delphi + ZeosLib + Tnt + MySQL 使用 UTF-8 編碼

首先要確實做好 MySQL 安裝設定與檢查
檢查 MySQL Server 的設定檔 my.ini (my.cnf) 內容
確認在 [mysql] 與 [mysqld] 兩個區段內都要有 default-character-set=utf8 的設定。
如果沒有就請在兩個區段都加上後，重新啟動 MySQL Server 一次讓有變更的設定生效。

然後用 MySQL 命令列工具連線檢查系統變數的狀況，請用 show variables like 'char%'; 命令來檢視：

MySQL-5-Character-Set-Check.png

如果得到如上方圖片中每個 character_set 除了 filesystem 為 binary 其他變數都是 utf8 的結果就可以了。

建立資料庫時需要注意必須使用 utf8 編碼。

建立資料表時也要注意必須使用 utf8 編碼。

在 MySQL 部分處理到這樣就可以了，再來進入到程式開發的部分。

開啟 Delphi 開發環境並建立一個新專案。

使用檔案總管，複製 libmysql.dll 到專案目錄下，然後回到 Delphi IDE。
(libmysql.dll 可以到 MySQL for windows 的安裝目錄下的 lib 子目錄內找到，要 32 bit 版本的)

在 Form1 上加入 TZConnection 元件並設定屬性：

  Name: zConn
  Protocol: 選擇 mysql-5
  HostName: MySQL 資料庫伺服器的名稱
  Database: 資料庫的名稱
  User: 連線到 MySQL 的使用者名稱
  Password: 連線到 MySQL 使用者的密碼

然後將 Connected 設為 True 進行連線
接著在 Form1 上增加 TZQuery 元件並設定屬性：

  Name: zqryM
  Connection: zConn
  SQL: select * from product

接著在 Form1 上增加 TDataSource 元件並設定屬性：

  Name: dsM
  DataSet: zqryM

接著在 Form1 上增加 TTntDbGrid 元件並設定屬性：

  DataSource: dsM

然後增加程式碼，使程式啟動後就開啟 ZQuery
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. begin
  3.   zqryM.Open;
  4. end;
複製代碼
結果文字欄位的內容卻是看到問號

zeos-mysql-utf8-1.png

再來檢查連線到 MySQL 的系統變數狀況，將 zqryM.SQL 改為 show variables like 'char%' 後執行程式：

zeos-mysql-utf8-2.png

可以看到 character_set_client 與 character_set_connection 以及 character_set_results 居然是 latin1 的狀況，當然有問題。

這個狀況有兩個解決方案，Zeos 設定參數方法與 MySQL 命令的方法。

Zeos 設定參數方法：
  在 TZConnection 設定 Properties 屬性加入一行 codepage=utf8 就可以了

MySQL 命令的方法：
  在網站開發環境最常用的解決方案就是執行 set names utf8 命令，所以在 OnAfterConnect 事件加入程式碼：
  1. procedure TForm1.zConnAfterConnect(Sender: TObject);
  2. var
  3.   qy: TZReadOnlyQuery;
  4. begin
  5.   qy := TZReadOnlyQuery.Create(nil);
  6.   qy.Connection := zConn;
  7.   qy.SQL.Text := 'SET NAMES UTF8';
  8.   qy.ExecSQL;
  9.   qy.Free;
  10. end;
複製代碼
選擇一種解決方案應用之後，再次執行程式看一下連線的系統變數狀況：

zeos-mysql-utf8-3.png

解決了連線參數的問題，再將 zqryM.SQL 改回 select * from product 後執行程式，居然這次變成顯示亂碼：

zeos-mysql-utf8-4.png

這又怎麼了?
因為此時的 TZQuery 元件內的欄位是基於 SQL 內容而動態產生的，所以是用 TStringField 元件來處理，遇上 UTF8 編碼當然就不支援了。

現在開啟 zqryM 的 Fields Editor 後 Add all fields 就會看到文字欄位都是用 TStringField 元件
  1. type
  2.   TForm1 = class(TForm)
  3.     zConn: TZConnection;
  4.     dsM: TDataSource;
  5.     zqryM: TZQuery;
  6.     TntDBGrid2: TTntDBGrid;
  7.     zsqlmntr: TZSQLMonitor;
  8.     Panel1: TPanel;
  9.     dbnvgr: TDBNavigator;
  10.     zqryShowVar: TZQuery;
  11.     dsShowVar: TDataSource;
  12.     zqryMproduct_id: TIntegerField;
  13.     zqryMprod_num: TStringField;
  14.     zqryMprod_name: TStringField;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure zConnAfterConnect(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
複製代碼
進入 unit 檔手動將 TStringField 改成 TTntStringField 元件，然後還要同時修改 .dfm 內也就是 Form 原始碼的部分
  1.   object zqryM: TZQuery
  2.     Connection = zConn
  3.     SQL.Strings = (
  4.       'select * from product')
  5.     Params = <>
  6.     Left = 164
  7.     Top = 300
  8.     object zqryMproduct_id: TIntegerField
  9.       FieldName = 'product_id'
  10.       Required = True
  11.     end
  12.     object zqryMprod_num: TStringField
  13.       FieldName = 'prod_num'
  14.       Size = 135
  15.     end
  16.     object zqryMprod_name: TStringField
  17.       FieldName = 'prod_name'
  18.       Size = 300
  19.     end
  20.   end
複製代碼
同樣手動將 TStringField 改成 TTntStringField 元件，然後儲存後執行程式：

zeos-mysql-utf8-5.png

經過幾番波折，終於看到正常的中文字了。

圖片附件: MySQL-5-Character-Set-Check.png (2011-12-14 17:21, 54.2 KB) / 下載次數 532
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzIzfDJmNWQxMjhhfDE3NjY0ODMyOTF8MA%3D%3D



圖片附件: zeos-mysql-utf8-1.png (2011-12-14 17:25, 17.66 KB) / 下載次數 523
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzI0fDk0ZjIzYWI1fDE3NjY0ODMyOTF8MA%3D%3D



圖片附件: zeos-mysql-utf8-2.png (2011-12-14 17:48, 22.4 KB) / 下載次數 515
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzI1fDQ5ODdhYzQ4fDE3NjY0ODMyOTF8MA%3D%3D



圖片附件: zeos-mysql-utf8-3.png (2011-12-14 18:04, 22.38 KB) / 下載次數 518
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzI2fDRiYWFmZjEwfDE3NjY0ODMyOTF8MA%3D%3D



圖片附件: zeos-mysql-utf8-4.png (2011-12-14 18:07, 15.9 KB) / 下載次數 516
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzI3fDcxOGZhNTYyfDE3NjY0ODMyOTF8MA%3D%3D



圖片附件: zeos-mysql-utf8-5.png (2011-12-14 22:07, 16.16 KB) / 下載次數 525
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MzI4fDZhZTY3NTQwfDE3NjY0ODMyOTF8MA%3D%3D





歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5