小弟目前正試寫Delphi 2007內帶的Intraweb套件，該套件直接支援Ajax的技術，也就是說可以不用post page就直接跟Server溝通處理事件，然而目前碰到一個怪問題就是在IWEdit的非同步事件中，不論是OnAsyncChange或者OnAsyncExit中，我更新IWLabel上的資料，會發生英文正常顯示，可是中文就不會更新的怪問題，想來請教各位前輩是否有碰到類似的問題？


Example:

procedure TRegisterForm.PassWDAsyncChange(Sender: TObject;
EventParams: TStringList);
begin
if (PassWD.GetTextLen < 6) then
PasswordLength.Caption := 'too short'; ＜－－正常
PasswordLength.Caption := '請至少輸入六個字元'; ＜－－不會更新畫面
end;

編輯記錄

請問一下，如果您用一般的元件(win32)，可以顯示正常的中文嗎?
資料庫、及元件都有支援相同的編碼?


如果我用Delphi for php 而資料庫是使用mysql時要先下一行指令
function Unit1Create($sender, $params)
{
$this->dbcib1->execute("set names utf8");
}

1,在Win32下是正常的
2.我測過應該是只有在Intraweb的套件上有問題, 我如果把edit內的文字直接貼過去可以work, 所以是型態轉換問題?

procedure TIWForm1.IWEdit1AsyncChange(Sender: TObject;
EventParams: TStringList);
begin
IWLabel1.Caption := IWEdit1.Text; ＜－－這樣可以正常把Edit1裡我打的中文透過Async事件把字貼到Label上
IWLabel1.Caption := '不得低於六個字'; ＜－－這樣就不行, 完全不更新, 但事件似乎有觸發
end;

但接下來的測試又推翻我的想法, 所以應該是delphi的bug?
procedure TIWForm1.IWEdit1AsyncChange(Sender: TObject;
EventParams: TStringList);
begin
IWEdit2.Text := '不得低於六個字'; ＜－－照上面的例子如果是轉換問題, 那我就故意把中文塞進Edit2裡這樣應該可以貼上去
IWLabel1.Caption := IWEdit2.Text; ＜－－結果不管是Edit或者Label都沒反應不更新
end;

以上所有問題只會發生在中文的處理, 英文字一切都正常

編輯記錄

這是VCL For Web的一個Bug, 稍後的VCL For Web Update會修正.
目前要解決這個問題, 你可以使用
PasswordLength.Caption := Utf8Encode('請至少輸入六個字元');


===================引 用 yangtzuyi 文 章===================
小弟目前正試寫Delphi 2007內帶的Intraweb套件，該套件直接支援Ajax的技術，也就是說可以不用post page就直接跟Server溝通處理事件，然而目前碰到一個怪問題就是在IWEdit的非同步事件中，不論是OnAsyncChange或者OnAsyncExit中，我更新IWLabel上的資料，會發生英文正常顯示，可是中文就不會更新的怪問題，想來請教各位前輩是否有碰到類似的問題？


Example:

procedure TRegisterForm.PassWDAsyncChange(Sender: TObject;
EventParams: TStringList);
begin
if (PassWD.GetTextLen < 6) then
PasswordLength.Caption := 'too short'; ＜－－正常
PasswordLength.Caption := '請至少輸入六個字元'; ＜－－不會更新畫面
end;

試過了確實可以解決~感謝!