Отправлено: 16.01.06 18:00. Заголовок: Павел! В твой xharbour\keySec вкрали ошибку

ChangeLog,v 1.4750 2006/01/16 03:38:24


...
nHandle := HB_IdleAdd({|| doKeySec()})
? ValType(nHandle) // P

 Отправлено: 16.01.06 22:20. Заголовок: Re:

Дык сам KeySec вроде бы работает

keysec(27, 3)
? inkey(0)

через 3 секунды покажет 27

а HB_IdleAdd и раньше пойнтер возвращал
я в октябрьских сырцах глянул - там hb_retptr стоит
а с чем проблема ?

 Отправлено: 17.01.06 13:00. Заголовок: а вот так попробуй

PROC Main
? 'Жми пипку'
KeySec(13,5)
? Inkey(0)
KeySec(13,3) // вылет тут
? Inkey(0)
/*
Error BASE/1072 Argument error: <> Arguments: ( [ 1] = Type: P Val: ADC870 [ 2]
= Type: N Val: 0)
Error at ...: KEYSEC(59) in Module: keysec.prg
*/

 Отправлено: 17.01.06 18:12. Заголовок: Re:

спасибо, дошло наконец-то до меня
поправлю

 Отправлено: 18.01.06 19:55. Заголовок: ждем-с...

примерно так, а?

Static _nHandle //:= 0
...

If _nHandle <> Nil
HB_IdleDel(_nHandle)
_nHandle := Nil
endif

 Отправлено: 19.01.06 11:55. Заголовок: Re:

Да, я вчера уже залил