B
bundur
Unregistered / Unconfirmed
GUEST, unregistred user!
TWebConnection 连接的多线程是不是有BUG?
我做过一个简单的测试,服务端写一个方法叫:
function TrdmTest.ServerAddr: WideString;
begin
Result := Integer(Self);
end;
用来返回当前服务端的 RemoteDataModule 的指针
客户端测试代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(AppServer.ServerAddr));
end;
客户端可启动多个测试一下,
当客户用 TSocketConnection 和 TDCOMConnection 连接时,每个
实例返回的服务器模块指针是不一样的,这说明服务器为每个连接单独开了一个实例。
而当客户用 TWebConnection 连接时,情况就变了,每个实例返回的值是一样的!
即用 TWebConnection 时不是多线程模式——郁闷!
我做过一个简单的测试,服务端写一个方法叫:
function TrdmTest.ServerAddr: WideString;
begin
Result := Integer(Self);
end;
用来返回当前服务端的 RemoteDataModule 的指针
客户端测试代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(AppServer.ServerAddr));
end;
客户端可启动多个测试一下,
当客户用 TSocketConnection 和 TDCOMConnection 连接时,每个
实例返回的服务器模块指针是不一样的,这说明服务器为每个连接单独开了一个实例。
而当客户用 TWebConnection 连接时,情况就变了,每个实例返回的值是一样的!
即用 TWebConnection 时不是多线程模式——郁闷!