Delphi 连接mysql 的功能， 去除乱码， 需要设置字符集

vDataBaseName := aConfiginiFile.ReadString('DataBaseConfig', 'DataBase', CH_IPC712Db);

vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server', CH_Server);

vPort := aConfiginiFile.ReadString('DataBaseConfig', 'Port', CH_Port);

vUserName := aConfiginiFile.ReadString('DataBaseConfig', 'Username', CH_UserName);

vPassword := aConfiginiFile.ReadString('DataBaseConfig', 'PassWord', CH_PassWord);

G_SaveDebug := (aConfiginiFile.ReadString('Debug', 'Debug', '1') = '1');

G_SQLitePath := vPath + vDataBaseName;

//在创建时连上数据库

// UniConnection1.ProviderName := 'SQLite';//这里确定为interbase 但是可以支持firebird

// UniConnection1.Password := '';//数据库密码

// UniConnection1.Username := '';//数据库密码

// UniConnection1.Server := '';

// UniConnection1.Database := G_SQLitePath;//数据库文件的位置，这里在当前目录

// UniConnection1.Connected := True;

// UniConnection1.Connect;

// 在创建时连上数据库

UniConnection1.ProviderName := CH_ProviderName;//这里确定为interbase 但是可以支持firebird

UniConnection1.Password := vPassword;//数据库密码

UniConnection1.Username := vUserName;//数据库密码

UniConnection1.Server := vServer;

UniConnection1.Database := vDataBaseName;//数据库文件的位置，这里在当前目录

UniConnection1.Connected := True;

UniConnection1.Connect;

UniQuery1.Close();

UniQuery1.SQL.Text := 'SET NAMES GB2312;';

UniQuery1.ExecSQL();

//当将此句注释掉的话,存入数据库的内容变为乱码

UniQuery1.Close();

UniQuery1.SQL.Text := 'SET character_set_client = GB2312;';

UniQuery1.ExecSQL();

//当将此句注释掉得话,从数据库中读取的内容为乱码

UniQuery1.Close();

UniQuery1.SQL.Text := 'SET character_set_results = GB2312;';

UniQuery1.ExecSQL();

//当将此句注释掉的话,存入数据库的内容变为乱码

UniQuery1.Close();

UniQuery1.SQL.Text := 'SET character_set_connection = GB2312;';

UniQuery1.ExecSQL();

RunSQL := TRunSQL.Create;

RunSQL.NewProvider := True;

RunSQL.ZConnection := UniConnection1;