First, I need thank for your excellent component!
Below is my demo code.
*************************************************************
type
TForm2 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TTestThread = class(TThread)
protected
procedure Execute;override;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TTestThread }
procedure TTestThread.Execute;
var
sslHttpCli1 :TSslHttpCli;
begin
inherited;
sslHttpCli1 := TSslHttpCli.Create(nil);
while not Terminated do
Sleep(1000);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
with TTestThread.Create(true) do Resume;
end;
end.
***********************************************
These codes are OK when in xp(English) + English input method. When you
change input method to Chinese or any East Asian input method. You will find
application will halt. Just comment "sslHttpCli1 :=
TSslHttpCli.Create(nil);". All will be OK. So I think it maybe a bug, Can
you check it? I find just user a TWSocket replace TSslHttpCli in thread. You
will get the same problem. too.
Please let me know if you need any help debug.
--
Frank
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
