nSeconds: quantos segundos no máximo esperar pela resposta de um CallFunction ou CallMethod.
retorno: lógico
.T. execução com sucesso
.F. execução com erro
Esse exemplo tem o objetivo de forçar um estouro de tempo de espera. A função timeout da DLL vai gastar mais tempo do que a aplicação TLPP decide esperar. Certamente, o teste vai gerar exceção e a sua thread será finalizada, porém de forma graciosa.
#include "tlpp-core.th"
Function U_DynCall()
Local oDll as Object
Local nValue as Numeric
If (IsSrvUnix())
oDll := tRunDll():New("./dllc.so")
Else
oDll := tRunDll():New("dllc.dll")
EndIf
oDll:SetTimeout(10) // só espero 10 segundos
oDll:callFunction("timeout", "V", nil)
Conout("Ufa! Consegui esperar")
// Vamos Sanitizar?
oDll:Free()
Return