Delphi7中存儲unicode的BUG？
近日，在用delphi7做unicode的程序時發現了這樣一個問題，就是使用TADOCommand組件執行sql語句時，如果sql語句中有unicode字符，存儲在數據庫裡會出現亂碼，使用TTntADOQuery也是一樣（使用參數方式不會出現亂碼，這裡只討論純sql的方式）。但是TADOCommand本身是支持widestring的呀，CommandText屬性也是widestring類型的，為什麼會出現這個問題呢？我試著改變TADOCommand的幾個屬性值，發現了一個怪現象，只要把ParamCheck屬性置為false就可以正常的存儲unicode字符，而置為true時就出現亂碼。為什麼會出現這種情況？這個屬性看起來和unicode本身沒有任何關係，究竟是什麼原因導致了亂碼的發生呢？我通過研究TADOCommand所在的adodb.pas文件，發現了問題的所在，我們看一下bug所在的過程：
PRocedure TADOCommand.AssignCommandText(const Value: WideString; Loading: Boolean);
procedure InitParameters;
var
I: Integer;
List: TParameters;
NativeCommand: string;
begin
List := TParameters.Create(Self, TParameter);
try
NativeCommand := List.ParseSQL(Value, True);
{ Preserve existing values }
List.AssignValues(Parameters);
CommandObject.CommandText := NativeCommand;
if not Loading and (Assigned(Connection) or (ConnectionString <> '')) then
begin
try
SetConnectionFlag(cfParameters, True);
try
{ Retrieve additional parameter info from the server if supported }
Parameters.InternalRefresh;
{ Use additional parameter info from server to initialize our list }
if Parameters.Count = List.Count then
for I := 0 to List.Count - 1 do
begin
List[I].DataType := Parameters[I].DataType;
List[I].Size := Parameters[I].Size;
List[I].NumericScale := Parameters[I].NumericScale;
List[I].Precision := Parameters[I].Precision;
List[I].Direction := Parameters[I].Direction;
List[I].Attributes := Parameters[I].Attributes;
end
finally
SetConnectionFlag(cfParameters, False);
end;
except
{ Ignore error if server cannot provide parameter info }
end;
if List.Count > 0 then
Parameters.Assign(List);
end;
finally
List.Free;
end;
end;
begin
if (CommandType = cmdText) and (Value <> '') and ParamCheck then
InitParameters
else
begin
CommandObject.CommandText := Value;
if not Loading then Parameters.Clear;
end;
end;
看看這一條語句：
if (CommandType = cmdText) and (Value <> '') and ParamCheck then
InitParameters
也就是當ParamCheck為true時，會執行InitParameters過程，我們看看這個InitParameters過程中發生了什麼：
首先它定義個一個變量：NativeCommand: string;，注意，是stirng不是widestring；我們接著往下看：
NativeCommand := List.ParseSQL(Value, True);
{ Preserve existing values }
List.AssignValues(Parameters);
CommandObject.CommandText := NativeCommand;
在這裡，Value是widestring類型的，而List.ParseSQL返回的是string類型的，同時NativeCommand也是string類型的，就這樣，一個好好的widestring的變量被放到了string類型的變量當中，然後又把NativeCommand賦給了CommandObject.CommandText，因此導致了CommandObject.CommandText並沒有得到應該賦給它的widesting值，這也就最終導致了存儲unicode時亂碼的發生。
解決方法也很簡單，（如果你不願意修改delphi源程序的話）只需要把ParamCheck置為false就可以了（delphi默認把ParamCheck置為true）。