我举个例子吧
把你的计算GetConntResult()写在线程中
然后:
1.定义一个事件
type
TBSDataReadEvent = procedure(你的回调的参数) of object;
private
FOnDataRead : TBSDataReadEvent;
public
property OnDataRead : TBSDataReadEvent read FOnDataRead write FOnDataRead;
2.线程中的函数 procedure CreateDataReadEvent;
procedure TBSTCPClientThread.CreateDataReadEvent;
begin
if Assigned(OnDataRead) then
FOnDataRead(你的回调的参数);
end;
3. 在Execute中
//得到数据后
Synchronize(CreateDataReadEvent);
这样在主线程调用这个事件就行了
我讲明白了吗?