Q5/ws_objects/Ew_axmswinsock.pbl.src/uo_thread_ws.sru

$PBExportHeader$uo_thread_ws.sru
$PBExportComments$线程对象
forward
global type uo_thread_ws from nonvisualobject
end type
end forward

global type uo_thread_ws from nonvisualobject
end type
global uo_thread_ws uo_thread_ws

type prototypes
Subroutine Sleep (ulong dwMilliseconds) Library "KERNEL32.DLL"
end prototypes

type variables
//powerobject inv_pbcomm
powerobject inv_pbcomm
int ins_stopflag=0 //1-stop
end variables

forward prototypes
public subroutine of_start ()
public subroutine of_runue (string arg_uename)
public subroutine of_setparent (powerobject arg_pbcomm)
public subroutine of_runue (powerobject arg_powerobject, string arg_uename)
end prototypes

public subroutine of_start ();do while ins_stopflag=0
	inv_pbcomm.triggerevent("ue_thread")
	sleep(100)
loop
end subroutine

public subroutine of_runue (string arg_uename);inv_pbcomm.triggerevent(arg_uename)

end subroutine

public subroutine of_setparent (powerobject arg_pbcomm);inv_pbcomm = arg_pbcomm
end subroutine

public subroutine of_runue (powerobject arg_powerobject, string arg_uename);arg_powerobject.triggerevent(arg_uename)

end subroutine

on uo_thread_ws.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_thread_ws.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on