Event от внешней библиотеки

[Дед Пахом]

я бы заменил *cstring uri2 в прототипе на long url2, и юзал memcpy. Подозреваю, что невозможность объявить атрибут RAW у клашиной процедуры здесь как раз узкое место.

[Дед Пахом]

не, не вариант, для memcpy нужен размер строки. Может так?

Код: Выделить всё

slen long, auto
saddr long, auto
  slen = len(url2)
  saddr = address(url2)
  memcpy(address(callurl), saddr, slen)

[Дед Пахом]

а хотя... с прототипом "long url2":

Код: Выделить всё

sref &cstring
  sref &= (url2)
  slen = len(sref)
  memcpy(address(callurl), url2, slen)

[RaFaeL]

Через указатель валится уже на sref &= (url2)
Просто через memcpy работает, но действительно нужна длина. Т.е. если взять например 80 то будет с запасом и по шаблону лишнее обрезать. Насколько вероятность большая что это приведет к чему-то неприятному?

[RaFaeL]

Вот так работает

Код: Выделить всё

my_callincoming  procedure(LONG l1, long uri2)
 code
 call1=l1
 calllong=uri2
 slen = strlen(uri2)
 memcpy(address(calluri), calllong, slen)
 return 0

[Yufil]

Попробуй вместо процедур передавать их адреса.

Код: Выделить всё

     SIP_onRegStateCallback(Long),Long,RAW,C,name('onRegStateCallback')
     SIP_onCallStateCallback(Long),long,RAW,C,name('onCallStateCallback')
... 
 SIP_onRegStateCallback(ADDRESS(my_regstate))
 SIP_onCallStateCallback(ADDRESS(my_callstate))
 SIP_onCallIncoming(ADDRESS(my_callincoming)) 

[RaFaeL]

Сделал так, упростило код но фрагменту со строкой не помогло )) Оставлю пока через strlen

[Yufil]

Там могут быть проблемы с управлением памятью, в том числе и для строк.
Перед вызовом программы на сях надо вызвать Unlockthread, а внутри обработчика сначала сказать Lockthread, а на выходе снова Unlockthread, может быть, после этого и прокатит. Или не...

[RaFaeL]

Выяснил, что внутри обработчика не работают никакие кларионовские процедуры (кроме присваивания переменных), сразу вылет. При этом strlen и memcpy работают