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;