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）。 軟體開發網

[@more@]