Página 1 de 2

Objeto Unidanfe

Enviado: 12 Mai 2022 11:49
por Alexandre Silva
Entao pessoal, pergunta meio basica,
mas porque nao consigo criar o objeto ?
precisa fivewin.ch ? tenho que instalar Five Win ?

Config:=CreateObject("Unimake.Unidanfe.Configurations.UnidanfeConfiguration")
*config:=TOLEAUTO():New("Unimake.Unidanfe.Configurations.UnidanfeConfiguration")

as duas opcoes acima retornam
Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW

na compilacao eu uso
-lxhb
-lhbct
-lhbwin
-lhbtip

Objeto Unidanfe

Enviado: 12 Mai 2022 12:37
por JoséQuintas
sua assinatura menciona Harbour 3.2
Troque CreateObject() por win_OleCreateObject()

Objeto Unidanfe

Enviado: 12 Mai 2022 14:09
por Alexandre Silva
nao deu o erro
mas o Obeto esta NIL, nao tem metodos

* Harbour 3.2 windows 7

Objeto Unidanfe

Enviado: 12 Mai 2022 16:56
por JoséQuintas
Não sei como dá pra ver se o componente está instalado e disponível pra uso.

Objeto Unidanfe

Enviado: 12 Mai 2022 17:55
por Alexandre Silva
Estou tentando compilar o que está no anexo

Objeto Unidanfe

Enviado: 12 Mai 2022 17:59
por JoséQuintas
Já instalou toda parte do unidanfe?
Se não instalou, não vai conseguir usar.

Objeto Unidanfe

Enviado: 12 Mai 2022 18:09
por Alexandre Silva
Sim claro, instalei, testei ok
O que se pretende é usar via DLL , independente de ter o aplicativo aberto.

Objeto Unidanfe

Enviado: 12 Mai 2022 18:27
por alxsts
Olá!

Você diz usar Harbour mas...
Alexandre Silva escreveu:na compilacao eu uso
-lxhb
Usa alguma função do xHarbour? Se não usa, retire esta lib. Talvez esteja causando algum conflito...

Objeto Unidanfe

Enviado: 12 Mai 2022 19:15
por JoséQuintas
win_OleCreateObject() é pra usar o que está instalado no Windows.
Se não estiver instalado e/ou liberado, não aparece.
Ou se depender de liberaçào, sei lá se eles fizeram isso de graça.
Como a DLL mistura COM e NET FRAMEWORK, pode ter necessidades especiais.

Objeto Unidanfe

Enviado: 12 Mai 2022 19:19
por JoséQuintas
alxsts escreveu:Usa alguma função do xHarbour? Se não usa, retire esta lib. Talvez esteja causando algum conflito...
Lembro de ter visto conflito no XHarbour, ao usar dois tipos ao mesmo tempo, que fazem o mesmo que win_OleCreateObject().
No Harbour, as duas tem o mesmo destino, mesmo a de compatibilidade com XHarbour, então talvez não tenha conflito.

Mas...... as bost.as de LIBs feitas pra XHarbour costumam adicionar outra função, que pode conflitar com tudo.
Tá cheio de CreateObject() espalhado por aí, por causa do XHarbour.

Objeto Unidanfe

Enviado: 13 Mai 2022 10:17
por JoséQuintas
createobject.png
Só uma busca rápida.
HMG tem a função CreateObject()
HMG Extended, num mesmo exemplo usa CreateObject() e win_OleCreateObject()

Então...
Quando usa Harbour, a solução é uma só.
Mas quando usa XHarbour ou Harbour com LIB gráfica... aí cada um que veja com seus fornecedores de LIB.

Parece piada, mas fazer o que?

Aí vém as discussões de um dizer que funciona de um jeito, e outro dizer que funciona de outro, ou com Harbour ou com XHarbour, ou com bcc, msvc, mingw, etc.
Na prática, as LIBs continuam sem padrão.

Objeto Unidanfe

Enviado: 13 Mai 2022 15:11
por malcarli
Boa tarde, também não conseguir executar. Utilizando harbour x minigui extended. Pacote de dlls baixado e instalado conforme instruções do site.

Código: Selecionar todos

* ---------------------------------------------------------------------------------
* Carregar tela de configuração do UniDANFE
* ---------------------------------------------------------------------------------
Function TelaConfiguracao()
   Local TelaConfig
  
 * Criar objeto
 *  TelaConfig = CreateObject("Unimake.Unidanfe.UnidanfeServices")

   TelaConfig = win_oleCreateObject("Unimake.Unidanfe.UnidanfeServices")
   
 * Abrir tela de configuração  
   TelaConfig:ShowConfigurationScreen()
   
   Wait
RETURN nil

Compila, mas ao executar dá msg de método não exportado, conforme imagem em anexo. Também não entendi o porque, quem se habilita?

Objeto Unidanfe

Enviado: 13 Mai 2022 16:06
por JoséQuintas
Tente pelo Windows/VB.

Código: Selecionar todos

---arquivo vbs----
DIM oTela
SET oTela = createobject( "..." )
oTela.ShowConfigurationScreen

Objeto Unidanfe

Enviado: 13 Mai 2022 16:18
por JoséQuintas
malcarli escreveu:Pacote de dlls baixado e instalado conforme instruções do site.
E onde tem isso?
Cadê o link?

Objeto Unidanfe

Enviado: 13 Mai 2022 16:50
por malcarli