Usar o Activex com hwgui

[Wanderlei]

Bom dia Pessoal,
Estou querendo mostrar uma janela do html dentro do meu sistema e estou tentando usar o hhtml(), mas quando eu utilizo a activex.lib com um exemplo que pequei do samples o iesample.prg da erro.

estou usando o Bcc7 com xHarbour123 e hwgui 2.17

[Itamar M. Lins Jr.]

Ola!
ActiveX foi consertado na versão 2.19.

Código: Selecionar todos

2014-12-21 10:20 UTC+0300 Alexander Kresin <alex@belacy.ru>
  ! contrib/activex/htmlcore.c
    ! Errors and warnings fixed for Mingw
  * contrib/hbactivex.hbp
    * Unblocked building of activex library for Mingw
  * contrib/makefile.gcc
    * Added instructions to build activex library

2014-12-20 19:55 UTC+0300 Alexander Kresin <alex@belacy.ru>
  ! contrib/ext_controls/hctrlex.prg
    ! Yet another HWG_USE_POINTER_ITEM related fix
  * utils/dbc/dbchw.prg
    * A problem fixed with opening of ntx indexes.
      It is possible now to set them as default in ini file: 'Index = ntx'
  * source/winapi/hdialog.prg
    * Now :bActivate works even if a modal dialog is created without a main window.

Saudações,
Itamar M. Lins Jr.

[Wanderlei]

Oi Itamar, mas será que consigo compilar ele na versão 2.17, tentei atualizar a versão da Hwgui mas me faltou tempo para isso agora.

[asimoes]

Olá pessoal,

Estou tentando compilar um exemplo do rmchart usando activex e estou com este erro:
A compilação é com mingw 5.3 e harbour 3.4 atualizado

alguém sabe a solução ?

Erro compilando

[asimoes]

Cheguei a conclusão que rmchart com activex não funciona com a hwgui, funciona somente com a dll.
Com a minigui vai de boa, provavelmente o código em c esteja melhor escrito.

[alxsts]

Olá!

ActiveX foi consertado na versão 2.19.

Está com a versão mais atual da HwGUI? Pode ser problema nas libs dela...

[asimoes]

Alexandre,

Eu baixei do sourceforge a versão 2.19

Compilei com míngw 5.3 e harbour 3.4

Na versão 2.19 não tem mais os fontes para teste com rmchart e outros, então tentei compilar o exemplo que está na 2.17

Desde ontem, hoje e parei a pouco.

Usando a dll direto funciona, não sei se o ocx que eu tenho está desatualizado, enfim o ocx eu registrei no windows e consegui sucesso com a minigui compilada com mingw.

Então não é um problema de registro da rmchart.ocx é um problema no fonte activex da hwgui provavelmente no código c_activex.c e h_activex.prg,

Observação: os fontes rmchart, flash e outros não estão na versão 2.19

[asimoes]

Para quem quiser saber qual é o erro:

O erro ocorre aqui oChart:RMCStyle

Código: Selecionar todos

oChart := RmChart():New( oPanel, "RMChart.RMChartX", 0, 0, oPanel:nHeight, oPanel:nWidth )
oChart:Clear()
oChart:Reset()
oChart:Font             := "Tahoma"
nVersion := oChart:RMCVersion
oChart:RMCStyle         := RMC_CTRLSTYLEFLAT //aqui ocorre o erro
oChart:RMCUserWatermark := "Test Test Test"

Com minigui funciona.

Erro activex

[alxsts]

Olá!

Pelo jeito é um problema que ocorre há bastante tempo. Procurando por _hb_stack no Google encontra-se várias ocorrências, desde 2006, em Harbour, HwGui. GTWVW e principalmente em Fivewin. No fórum desta última, existe um tópico que tem o fonte da função, postado pelo Antonio Linares e transcrito abaixo:

Código: Selecionar todos

#pragma BEGINDUMP 

#include "hbstack.h" 
#include "hbapiitm.h" 

void * hb_stack = &HB_VM_STACK; 

PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) 
{ 
return pDynSym->pSymbol; 
} 

#pragma ENDDUMP

Fonte: FiveTech Software tech support forums

[asimoes]

Alexandre,

Essa solução é para fovewin veja os erros:

Código: Selecionar todos

D:/hb32fork/include/hbstack.h:84:4: error: unknown type name 'HB_ERRCODE'
    HB_ERRCODE uiFError;
    ^
D:/hb32fork/include/hbstack.h:85:4: error: unknown type name 'HB_ERRCODE'
    HB_ERRCODE uiErrorLast;
    ^
D:/hb32fork/include/hbstack.h:86:4: error: unknown type name 'HB_ERRCODE'
    HB_ERRCODE uiOsErrorLast;
    ^
D:/hb32fork/include/hbstack.h:87:4: error: unknown type name 'HB_ERRCODE'
    HB_ERRCODE uiSocketError;
    ^
rmsample.prg:141:20: error: 'HB_VM_STACK' undeclared here (not in a function)
rmsample.prg: In function 'hb_dynsymSymbol':
rmsample.prg:145:15: error: request for member 'pSymbol' in something not a stru
cture or union

[asimoes]

O interessante é que alguns métodos funcionam:

Até aqui funciona:

oChart:Clear()
oChart:Reset()
oChart:Font := "Tahoma"
nVersion := oChart:RMCVersion

Quando chama: dá o erro
oChart:RMCStyle:=RMC_CTRLSTYLEFLAT

[alxsts]

Olá!

Provavelmente a constante RMC_CTRLSTYLEFLAT não está definida em algum arquivo de cabeçalho da RMChart. Precisaria verificar isto e gerar novamente ela. Experimente trocar

Código: Selecionar todos

oChart:RMCStyle:=RMC_CTRLSTYLEFLAT

por

Código: Selecionar todos

oChart:RMCStyle:=0

No link tem as definições das constantes.

Mais um exemplo aqui: http://fivewin.com.br/index.php?/topic/13096-rmchart-posi%C3%A7%C3%A3o-do-gr%C3%A1fico-x-legenda-resolvido/

[asimoes]

Olá,

Alexandre,

Não é isso não, o arquivo rmchart.ch tem este define:

/* CtrlStyle */
#define RMC_CTRLSTYLEFLAT 0
#define RMC_CTRLSTYLEFLATSHADOW 1
#define RMC_CTRLSTYLE3D 2
#define RMC_CTRLSTYLE3DLIGHT 3
#define RMC_CTRLSTYLEIMAGE 4
#define RMC_CTRLSTYLEIMAGETILED 5

O problema deve estar na inicialização do objeto com toleauto:

::oOle := ToleAuto():New( ::hObj ) (fonte h_activex.prg)

O fonte do activex estou usando dentro do hbp.

[janio]

Wanderley,

Vc conseguiu mostrar o html??

Janio

[Wanderlei]

Ainda não.