为什么在线程中使用TCLIENTSOCKET,关闭线程时总是报错?

Question

我在在线程中做SOCKET通讯,并且做客户端,用的TCLIENTSOCKET控件,在关闭线程时,始终报错,不知是不是TCLIENTSOCKET这个控件不能用于线程中?
线程中的创建:construncor TCSThread.create;
begin
  myclientsocket:= Tclientsocket.create(nil);
 ...
  myclientsocket.active:= true;
  inherited create(false);
end;线程中释放:
destructor destroy;
begin
  myclientsocket.close;
  myclientsocket.free;//如果不加这句就不会在后面报错
  inherited;
end;//报错,

Answer 1

你的Tclientsocket的clienttype设成阻塞模式就可以了，如果是非阻塞的话，这样写：
begin
myclientsocket.close;
while true do
  if myclientsocket.active=false then
    break;
myclientsocket.free;
inherited;
end;