function Main()
Local oWnd
PUBLIC oApp
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd MAXIMIZED;
ON INIT ( oApp := Tapp():New( oWnd ), StartThread(@StartServer(), oApp), WaitForThreads() ) ;
return nil
procedure StartServer(oApp )
local oSocket
LOCAL pMutex := HB_MutexCreate()
oSocket = TSocket():New( 8083 )
oApp:oSocket := oSocket
oSocket:bAccept := { || StartThread( {|| Tserver():New( TSocket():Accept( oSocket:nSocket ), pMutex, oApp )} ) }
oSocket:Listen()
LogFile( "thread.log",{"Inicia Server Thread: ", Str( GetSystemThreadID() )} ) // thread 2
return
METHOD End()
self := nil
return nil
Function Main()
local oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd;
ON INIT Tobjeto():New(oWnd)
return nil
CLAS Tobjeto
METHOD New(oWnd)
METHOD End()
ENDCLASS
METHOD New(oWnd) CLASS Tobjeto
local oTimer := Ttimer():New( 3000, { || ::End() }, oWnd)
oTimer:Activate()
return self
METHOD End() CLASS Tobjeto
hb_gcall()
return nil
ACTIVATE WINDOW oWnd;
ON INIT Tobjeto():New(oWnd)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 40 guests