FiveTech Support Forums

Application
===========
   Path and name: C:\Mensajes\Mensajeria.exe (32 bits)
   Size: 1,707,520 bytes
   Time from start: 0 hours 40 mins 0 secs 
   Error occurred at: 13/08/10, 13:47:04
   Error description: Error BASE/1301  Object destructor failure: Reference to freed block

Stack Calls
===========

System
======
   CPU type: Pentium(R) Dual-Core  CPU      E5200  @ 2.50GHz 2500 Mhz
   Hardware memory: 2040 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: Harbour 2.0.0 (Rev. 13372)
   Windows version: 5.1, Build 2600 Service Pack 3

   Windows total applications running: 0

Variables in use
================
   Procedure     Type   Value
   ==========================

Linked RDDs
===========

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBDEBUGGER
     4 HBDBMENU
     5 HBDBMENUITEM
     6 HBDBWINDOW
     7 HBDBINPUT
     8 HBDBBROWSER
     9 HBDBCOLUMN
    10 HBOBJECT
    11 TAPP
    12 TWINDOW
    13 TBRUSH
    14 TFONT
    15 TXMLDOCUMENT
    16 TXMLNODE
    17 TXMLITERATOR
    18 TXMLITERATORSCAN
    19 WIN_OLEAUTO
    20 TOLEAUTO
    21 TTIMER
    22 TSOCKET
    23 TSERVER
    24 TREG32
    25 TSTRUCT

Memory Analysis
===============
      192 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


METHOD StartServer() CLASS Tapp
::oSockGps    := TSocket():New( ::nPuertoGps  )
::oSockGps:bAccept := { || hb_threadStart( @NuevoCliente(), Self )  }  
Return  nil

PROCEDURE NuevoCliente( oApp )
local oGps
if oApp:nActClients < MAX_CONNECTIONS
    oGps := Tserver():New( TSocket():Accept( oApp:oSockGps:nSocket ), oApp )
    oGps:Start()
    
    //espera que el cliente finalice la conexion
    do while !oGps:lKill
        threadsleep(1000) 
    enddo
    oGps := nil
    hb_gcall(.t.)
endif

return