Usar DLL no Harbour

por **Eduardo Pinho** » 13 Mar 2019 07:07

Amigos,

Uso Harbour 3.0 e quero usar uma DLL que um amigo gerou pra mim pelo Visual Fox.

Só que nao funciona de jeito nenhum...

Essa funciona bem:
Ret:= hb_DynCall( { "MessageBoxA", "user32.dll", HB_DYN_CALLCONV_STDCALL }, 0, "Isto é uma MessageBOX !", "Teste DLL", 0 )

Mas a que ele gerou no Fox nao funciona. Ja tentei carregando primeiro com hb_libload mas nao adiantou.

Ele fez uma pesquisa e disse que descobriu o problema. Disse que o Fox gera DLL orientada a objeto e que o Harbour nao consegue ler dessa forma.

Sabem, por acaso, se isso procede? Se é realmente isso, e se tem alguma forma de fazer ela funcionar?

Agradeço a ajuda. Abcs.

por **Mario Mesquita** » 13 Mar 2019 10:51

Bom dia.

Não sei se ajuda, mas outro dia precisei usar uma DLL e consegui baseado num post de um colega.

No Main:

DECLARE DLL_TYPE_HBITMAP FastQRCode (DLL_TYPE_LPCSTR file, DLL_TYPE_LPCSTR path) IN QrCodeLib.dll

A função:

FUNCTION Gera_FastQRCode(nArq, nTxt)

cTexto := nTxt
cFile  := _xPht + nArq + ".jpg"
FastQRCode(cTexto, cFile)
//msginfo('gerou no fast a imagem '+cfile)

RETURN NIL

Essa função "FastQRCode" está na DLL.

Sds,
Mario.

por **janio** » 13 Mar 2019 12:11

O que pode estar acontecendo tbm eh que algumas dll's retornam um ponteiro para um endereço de memória, e precisamos de uma função pra traduzir esse negocio, tipo:

#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"
#include "hbapierr.h"

HB_FUNC( RETORNATAMANHOBUFFER )
{
   hb_retni( strlen( (const char *) hb_parni(1) ) );
}

#pragma ENDDUMP
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/

Function Dll_ConsultarMFE
Local nRandom := HB_RANDOMINT(1,999999)
Local cRet

If nDllMfe != Nil
   cRet := Hb_dynCall( { "ConsultarSAT", nDllMfe, HB_DYN_CALLCONV_STDCALL}, nRandom )
   cRet := HB_Pointer2String( cRet, RetornaTamanhoBuffer(cRet) )
   If Empty(cRet)
      cRet := "ERRO ConsultarMFE: SEM RESPOSTA DO MFE|"   
   Endif
Else
   cRet := "ERRO ConsultarSAT: MFe.Dll nao carregada|"
Endif

Return cRet

por **JoséQuintas** » 14 Mar 2019 11:25

DLL específica de Visual Fox só funciona no Visual Fox
DLL específica de Harbour só funciona no Harbour
DLL que contém componente instalável, só funciona instalada
etc.

por **Eduardo Pinho** » 22 Mar 2019 22:38

Obrigado a todos pelas dicas. Vou analisar uma solucao depois.. Valeu mesmo!!!!!

por **JoséQuintas** » 23 Mar 2019 03:41

janio escreveu:O que pode estar acontecendo tbm eh que algumas dll's retornam um ponteiro para um endereço de memória, e precisamos de uma função pra traduzir esse negocio, tipo:

Ué... se precisa ponteiro, é passar ponteiro.
O que normalmente precisa é espaço suficiente na variável.

x:= Space(50000)
FuncaoDll( @x )

por **Eric.Developer** » 24 Mar 2019 20:18

todos vocês estão olhando para a direção errada. Primeiro compreender a geração de DLL no VFP. Em menos de 2 minutos de pesquisa no "guugou", confirmei a minha teoria.
Você gera a DLL COM Server, registra no Windows e acessa a DLL pelo Harbour via OLE.

Outro dia testei com sucesso, criei uma classe para somar 2 número, gerei a DLL no VFP.... acessei pelo Xailer. Estou fazendo outros testes...
A partir de arquivos, exibir formulários (VFP) no IDE Xailer, é o início para auxiliar desenvolvedores na conversão Xailer. Quem sabe no futuro eu consiga converter estes arquivos direto para o formato nativo designer Xailer.

JoséQuintas escreveu:
janio escreveu:O que pode estar acontecendo tbm eh que algumas dll's retornam um ponteiro para um endereço de memória, e precisamos de uma função pra traduzir esse negocio, tipo:

Ué... se precisa ponteiro, é passar ponteiro.
O que normalmente precisa é espaço suficiente na variável.

x:= Space(50000)
FuncaoDll( @x )

por **JoséQuintas** » 25 Mar 2019 01:44

Outra opção: usar diretamente o Visual Foxpro, e nem precisar criar DLL

 vfp = win_oleCreateObject("VisualFoxPro.Application")

por **vagucs** » 26 Jun 2019 18:13

Ola Janio, conseguiu usar a DLL MFE.DLL da sefaz do cerá?

Estou usando hblibload do harbour e nao carrega a dll.

por **lucimauro** » 26 Jun 2019 23:04

Qual a mensagem de erro que retorna vagucs?

por **vagucs** » 27 Jun 2019 06:21

Poxa, consegui, eu setei o path para o diretório da DLL e foi. Isso se deve a ela usar outras DLLs no diretório.

por **janio** » 27 Jun 2019 08:15

Poxa, consegui, eu setei o path para o diretório da DLL e foi. Isso se deve a ela usar outras DLLs no diretório.

Exato. Sabemos de alguns casos que so funciona se setar o path onde a dll está (senão da erro de dependência de outras dll's).

No meu caso não precisou disso. Foi so carregar a dll e pronto

por **vagucs** » 27 Jun 2019 10:17

Janio,

E conseguiu homologar?

Compramos DIMEP, mas os cara da DIMEP mesmo nao sabem dar suporte, precisamos fazer homologação ainda la, teve algum entrave?

Vi comentários sobre a dll, que tem as mesmas chamadas do SAT, ai fica transparente, porém também vi gente reclamando, que algumas operações não funcionam, como cancelamento, o que sentiu a respeito da DLL? ta fluindo?

por **janio** » 27 Jun 2019 10:36

Homologamos no início, beeeeem no início. Com relação ao Cfe e a dll ta tudo funcionando e muito bem. O que não funciona é NFCe (até onde testei não conseguia cancelar uma NFCe)

Outro detalhe eh que pra NFCe obrigatoriamente tem que usar o Integrador. Eh um balaio de gato do cao. So quem vem acompanhando desde o início pra entender

por **vagucs** » 27 Jun 2019 10:49

Faço ideia, nosso PDV está homologado e rodando em todos os estados, com NFE, NFCE, SAT e agora mais essa inhaca, fora homologação de PAF-ECF que vamos ter que fazer agora só por causa de SC, é fogo esse brasil, tinhamos que fazer um abaixo assinado para acabar com esse PAF-ECF que é só para dar dinheiro para escolas de ensino que sempre tem um deputado ou senador por trás.

Veja os arquivos que o PDF tem que gerar, tem 8 anos que fazemos a homologação e os arquivos até hoje não tem validador, cada homologador valida como bem entende, tudo no olho e comem todo ano 2 a 3 dias com isso, todo ano temos que adequar ao que o homologador pensa.

Quem está online