Entao vendo a documentacao do site da NFE-CAMPINAS decidi baixar a LOTENFSE.DLL para usa-la com xHarbour (esta DLL foi feita em Delphi). Não sei se por isso nao consigo usar nenhum modulo dela, consigo carrega-la, mais sempre ao chamar o primeiro modulo, ocorre erro e exibe o opcao de debug com o VS2008 pois tenho instalado aqui na maquina.
Tem no pacote de exemplos, exemplos em CSharp, porem nem mesmo este funciona corretamente, sempre ocorre uma exceção e aborta o sistema.
Veja meu codigo inicial
Código: Selecionar todos
#define DC_CALL_STD 0x0020
procedure main()
local hdDLL:=LoadLibrary("c:\windows\system32\lotenfse.dll")
if hdDLL=0
FreeLibrary( hdDLL )
?"Erro na DLL"
return
else
?"Dll carregada"
endif
//faz declaracao sobre a url do webservice
pFunc:= GetProcAddress( hdDLL, "setURL" )
? pFunc
//---aqui pFunc me traz o ponteiro da funcao setURL dentro da DLL, ou seja, ele encontra a funcao
************************* O ERRO ACONTECE AQUI *******************************
cURL:=CallDLL( pFunc, 0, "setURL","http://treinamento.dsfweb.com.br/WsNFe2/LoteRps.jws",;
"http://treinamento.dsfweb.com.br/WsNFe2/LoteRps.jws?wsdl")
if cURL>0
? "Erro no endereco do WebService"+alltrim(str(cURL)))
*** CHEGA A EXIBIR ESTA MENSAGEM POREM O PROGRAMA É ABORTADO.
FreeLibrary( hdDLL )
return
else
? "WebService encontrado"
endif
Detalhe: ja tentei em modo console e tambem usando a HwGui e ocorrem os mesmos problemas. Creio que seja algo da DLL em si, mais conto com ajuda de todos.
Alguem tem ideia do que pode estar ocorrendo?
Abraços
) 
