2016-01-15 13:42 GMT+01:00 Martin Schreiber <mse00...@gmail.com>:
> On Friday 15 January 2016 13:33:22 Julio Jiménez wrote:
> > 2016-01-15 13:22 GMT+01:00 Martin Schreiber <mse00...@gmail.com>:
> > > Please call tfbservice.cancel() if you don't want to close the
> > > connection. "tfbservice.connected:= false" stops the service for me.
> What
> > > means "the program hangs"? In "tfbservice.connected:= false"? Please
> send
> > > the updated test program.
> >
> > The program hangs means it stops responding... frozen.... Have to kill
> it.
> >
> But where? Please try 'Target'-'Interrupt'.
>
To reproduce, press Restore button then while restoring.. press Stop
service button
#0 B7FDCCB0 :0 ??()
#1 0810CC9D msethread.pas:300 TMSETHREAD__WAITFOR(this=<error reading
variable>)
#2 080FB25D mseapplication.pas:1371
TCUSTOMAPPLICATION__WAITFORTHREAD(ATHREAD=0xb7c32140, this=<error reading
variable>)
#3 0824410D msefbservice.pas:520 TFBSERVICEMONITOR__DESTROY(vmt=0x1,
this=<error reading variable>)
#4 0805CF92 :0 SYSTEM$_$TOBJECT_$__$$_FREE()
#5 080DAD4F :0 SYSUTILS_$$_FREEANDNIL$formal()
#6 08244A18 msefbservice.pas:716 TFBSERVICE__CANCEL(this=<error reading
variable>)
#7 08093DBB main.pas:62 TMAINFO__DOCANCELAR(SENDER=0xb7c525b0, this=<error
reading variable>)
#8 080EA19C mseact.pas:421 DOACTIONEXECUTE1(SENDER=0xb7c525b0,
INFO={ACTION = 0x0, CAPTIONTEXT = 0xb7c42b0c 'Stop service', CAPTION1 =
{TEXT = 0xb7c42b6c 'Stop service', FORMAT = 0x0, FLAGS = []}, STATE =
[AS_LOCALCAPTION, AS_LOCALONEXECUTE], OPTIONS = [], SHORTCUT = 0x0,
SHORTCUT1 = 0x0, GROUP = 0, IMAGENR = -1, IMAGENRDISABLED = -2, COLORGLYPH
= 2147483649, COLOR = 2147483649, IMAGECHECKEDOFFSET = 0, IMAGELIST = 0x0,
HINT = 0x0, TAG = 0, TAGPOINTER = 0x0, ONEXECUTE = 0x8093da0
<TMAINFO__DOCANCELAR>, ONBEFOREEXECUTE = 0x0, ONAFTEREXECUTE = 0x0},
CHANGED=false, NOCHECKBOX=false, NOCANDEFOCUS=false, BEFOREEXECUTE=0x0)
#9 080EA21C mseact.pas:440 DOACTIONEXECUTE(SENDER=0xb7c525b0, INFO={ACTION
= 0x0, CAPTIONTEXT = 0xb7c42b0c 'Stop service', CAPTION1 = {TEXT =
0xb7c42b6c 'Stop service', FORMAT = 0x0, FLAGS = []}, STATE =
[AS_LOCALCAPTION, AS_LOCALONEXECUTE], OPTIONS = [], SHORTCUT = 0x0,
SHORTCUT1 = 0x0, GROUP = 0, IMAGENR = -1, IMAGENRDISABLED = -2, COLORGLYPH
= 2147483649, COLOR = 2147483649, IMAGECHECKEDOFFSET = 0, IMAGELIST = 0x0,
HINT = 0x0, TAG = 0, TAGPOINTER = 0x0, ONEXECUTE = 0x8093da0
<TMAINFO__DOCANCELAR>, ONBEFOREEXECUTE = 0x0, ONAFTEREXECUTE = 0x0},
NOCHECKBOX=false, NOCANDEFOCUS=false, BEFOREEXECUTE=0x0)
#10 081F195A msesimplewidgets.pas:869 TCUSTOMBUTTON__DOEXECUTE(this=<error
reading variable>)
#11 0818345D msewidgets.pas:2182
TACTIONSIMPLEBUTTON__INTERNALEXECUTE(this=<error reading variable>)
#12 08183478 msewidgets.pas:2189
TACTIONSIMPLEBUTTON__DOSHAPEEXECUTE(ATAG=0, INFO={EVENTKIND =
EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12}, EVENTSTATE =
[ES_CLIENT], TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, this=<error reading
variable>)
#13 081A3BA5 mseshapes.pas:437 UPDATEMOUSESHAPESTATE(INFO={CA = {DIM = {X
= 0, Y = 0, CX = 146, CY = 21, POS = {X = 0, Y = 0}, SIZE = {CX = 146, CY =
21}}, CAPTION = {TEXT = 0xb7c42b6c 'Stop service', FORMAT = 0x0, FLAGS =
[]}, FONT = 0xb7639260, TEXTFLAGS = [TF_XCENTERED, TF_YCENTERED], IMAGEPOS
= IP_CENTER, CAPTIONDIST = 2, IMAGENR = -1, COLORGLYPH = 2147483649,
IMAGELIST = 0x0, IMAGEDIST = 0, IMAGEDISTTOP = 0, IMAGEDISTBOTTOM = 0,
CAPTIONCLIPPED = false}, FOCUSRECTDIST = 1, STATE = [SHS_MOUSE,
SHS_SHOWFOCUSRECT..SHS_SHOWDEFAULTRECT], TABPOS = 0, GROUP = 0, COLOR =
2147483651, COLORACTIVE = 0, IMAGENRDISABLED = -2, IMAGECHECKEDOFFSET = 0,
FACE = 0x0, FRAME = 0x0, CHECKBOXFRAME = 0x0, MOUSEFRAME = {LEFT = 0, TOP =
0, RIGHT = 0, BOTTOM = 0, TOPLEFT = {CX = 0, CY = 0}, BOTTOMRIGHT = {CX =
0, CY = 0}}, TAG = 0, DOEXECUTE = 0x8183460
<TACTIONSIMPLEBUTTON__DOSHAPEEXECUTE>}, MOUSEEVENT={EVENTKIND =
EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12}, EVENTSTATE =
[ES_CLIENT], TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, WIDGET=0xb7c525b0,
AFRAME=0x0, INFOARPO=0x0, CANCLICK=true)
#14 08183516 msewidgets.pas:2203
TACTIONSIMPLEBUTTON__CLIENTMOUSEEVENT(INFO={EVENTKIND = EK_BUTTONRELEASE,
SHIFTSTATE = [], POS = {X = 85, Y = 12}, EVENTSTATE = [ES_CLIENT],
TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, this=<error reading variable>)
#15 0807E0A9 msegui.pas:10168 DOCLIENTMOUSEEVENT(parentfp=0xbfffef44)
#16 0807DF68 msegui.pas:10285 TWIDGET__MOUSEEVENT(INFO={EVENTKIND =
EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12}, EVENTSTATE =
[ES_CLIENT], TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, this=<error reading
variable>)
#17 0818A318 msewidgets.pas:5089 TACTIONWIDGET__MOUSEEVENT(INFO={EVENTKIND
= EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12}, EVENTSTATE =
[ES_CLIENT], TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, this=<error reading
variable>)
#18 08088E15 msegui.pas:15067 TWINDOW__DISPATCHMOUSEEVENT(INFO={MOUSE =
{EVENTKIND = EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12},
EVENTSTATE = [ES_CLIENT], TIMESTAMP = 2186870112, BUTTON = MB_LEFT}, WHEEL
= {EVENTKIND = EK_BUTTONRELEASE, SHIFTSTATE = [], POS = {X = 85, Y = 12},
EVENTSTATE = [ES_CLIENT], TIMESTAMP = 2186870112, WHEEL = MW_UP, DELTA =
0}}, CAPTURE=0xb7c525b0, this=<error reading variable>)
#19 0808CE09 msegui.pas:16814
TINTERNALAPPLICATION__PROCESSMOUSEEVENT(EVENT=0xb7c42b90, this=<error
reading variable>)
#20 0808ED99 msegui.pas:17773 TINTERNALAPPLICATION__EVENTLOOP(ONCE=false,
this=<error reading variable>)
#21 08090308 msegui.pas:18443
TINTERNALAPPLICATION__DOEVENTLOOP(ONCE=false, this=<error reading variable>)
#22 080FBAE6 mseapplication.pas:1619 TCUSTOMAPPLICATION__RUN(this=<error
reading variable>)
#23 0804BFBF backup.pas:11 main()
>
> > BTW, for testing if a service is running what's the way, busy function?
> >
> Yes, tfbservice.busy() returns true if a service is running on the
> connection.
>
So yes, it's 'busy' function.
>
>
>
--
Julio Jiménez Borreguero
------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=267308311&iu=/4140
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
