Clipper On Line • Ver Tópico - Problema no uso da HB_exec do harbour

Problema no uso da HB_exec do harbour

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Problema no uso da HB_exec do harbour

Mensagempor lwinter » 14 Jun 2020 19:05

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,
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Problema no uso da HB_exec do harbour

Mensagempor lwinter » 14 Jun 2020 19:13

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
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Problema no uso da HB_exec do harbour

Mensagempor lwinter » 15 Jun 2020 12:09

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?
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Problema no uso da HB_exec do harbour

Mensagempor lwinter » 15 Jun 2020 20:02

Acabei contornando o problema. Ao inves de passar o ponteiro do metodo estou passando um codigo de bloco.
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro