在有线程程序中不能打开输入法

[dancedance]

这个线程是无限循环读取数据，一直在工作。
我想在一个界面的文本框里输入汉字，那里知道一打开输入法整个程序就是死了，不过是微软自带的输入法还是紫光输入法。奇怪就是，我在其他地方copy汉字粘贴上去又没事。在没有打开汉字输入法而输入英文字母就没事。
如何在无限循环线程的程序的文本框内输入汉字呢？

[aiirii]

>>如何在无限循环线程的程序的文本框内输入汉字呢？

表達不清楚, 我的不少程序都帶有線程, 從沒發生這種問題

[postren]

我也碰到这样的问题，aiirii等等，我整理出来代码

[postren]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
ServerSocket1: TServerSocket; //ServerType := stThreadBlocking;
Button1: TButton;
Memo1: TMemo; //在其中切换输入法就会死程序
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TClientThread = class(TServerClientThread)
private
FRBuf: array [0..4095] of Char;
protected
procedure ClientExecute; override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
Socket.Close;
end;

procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
var
A: DWORD;
begin
SocketThread := TClientThread.Create(False, ClientSocket);
A := ClientSocket.Handle; //如果没有这个语句就不会死
//（这也是我整理这段代码的时候发现的，我原来程序中是在另外的
// 一个列表中保存了该Handle的值，在此却发现只要读取了ClientSocket
// 的Handle，程序就会死掉，现象为当客户端连接到该服务器后，在Memo中
// 切换输入法，我默认的是Ctrl + Space，程序就会没有任何响应【Delphi 6/7】）
end;

{ TClientThread }


procedure TForm1.Button1Click(Sender: TObject);
begin
Self.ServerSocket1.Open;
end;

{ TClientThread }

procedure TClientThread.ClientExecute;
var
SocketStream : TWinSocketStream;
BytesRead, iPos: Integer;
begin
while not Terminated do
begin
SocketStream := TWinSocketStream.Create(ClientSocket, 5 * 1000);
try
try
iPos := 0;
while (SocketStream.WaitForData(5 * 1000)) do
begin
BytesRead := SocketStream.Read(FRBuf[iPos], SizeOf(LongWord));
end;
except
raise;
end;
finally
SocketStream.Free;
ClientSocket.Close;
Terminate;
end;
end;
end;

end.

[suuare]

的确！ 我也遇见这个问题！ 奇怪的是 这种情况不是每次都发生..... 严重关注中！

[dancedance]

我是每次都发生，没有办法打开输入法来输入汉字！郁闷

[aiirii]

看不出问题，也许要用代码实际测试下