Criei um metodo que tem como parametro um ponteiro de uma determinada funcao, conforme abaixo:
Method setGetF (tag, formatFunc, ...) Class TCadClassificacaoProjetos
local pos, varget, conteudo
::getCadastroTag (tag, @pos)
varget = ::getCadastro [pos,1]
conteudo = HB_Exec (formatFunc, nil, ::getCadastro [pos,1], ...)
::getCadastro [pos,1] = Eval (&(::dictTags [tag]['transform']), conteudo)
return varget
Estou tentando utilizar quando vou utilizar o metodo conforme abaixo, o metodo é envolcado porem passando parametros nil. Alguem saberia me dizer o que estou fazendo de errado?
::setGetF ('05', @::formatPathAtual, nivel) // 05=path atual
Obrigado!
rgds,
Problema no uso da HB_exec do harbour
Moderador: Moderadores
Problema no uso da HB_exec do harbour
Esqueci de colocar o metodo da chamada formatPathAtual :
Method formatPathAtual (path_atual, nivel) Class TCadClassificacaoProjetos
local novaMascara := ::mascaras [val (nivel)]
// nova mascara aumentou? de 9 => 99
if len (novaMascara) > len (path_atual)
path_atual = Replicate ('0', len (novaMascara) - len (path_atual)) + path_atual
else
// nova mascara diminuiu? de 999 => 9
path_atual = right (path_atual, len (novaMascara))
end
return path_atual
Method formatPathAtual (path_atual, nivel) Class TCadClassificacaoProjetos
local novaMascara := ::mascaras [val (nivel)]
// nova mascara aumentou? de 9 => 99
if len (novaMascara) > len (path_atual)
path_atual = Replicate ('0', len (novaMascara) - len (path_atual)) + path_atual
else
// nova mascara diminuiu? de 999 => 9
path_atual = right (path_atual, len (novaMascara))
end
return path_atual
Problema no uso da HB_exec do harbour
Tentei refaturar o codigo para utilizar a HB_ObjMsgPtr mas ao compilar apresenta erro: undefined reference to `HB_FUN_HB_OBJMSGPTR'
verifiquei que esta é uma funcao do xharbour, mesmo assim procurei ela com hbmk2 -find HB_OBJMSGPTR e nao encontrei. Encontrei apenas a HB_EXEC na xhb.hbc.
Alguem poderia me ajudar nesta questao?
verifiquei que esta é uma funcao do xharbour, mesmo assim procurei ela com hbmk2 -find HB_OBJMSGPTR e nao encontrei. Encontrei apenas a HB_EXEC na xhb.hbc.
Alguem poderia me ajudar nesta questao?
Problema no uso da HB_exec do harbour
Acabei contornando o problema. Ao inves de passar o ponteiro do metodo estou passando um codigo de bloco.
