PC Toledo

Em homenagem a Paulo Cesar Toledo
https://www.pctoledo.org/

Usar GTWVG

https://www.pctoledo.org/viewtopic.php?t=13221

Página 1 de 5

Usar GTWVG

Enviado: 18 Jun 2012 17:09
por JoséQuintas
Por enquanto estou apenas tentando usar gtwvg, mas sem sucesso.
Só uma tela com say/get e nada mais.
Compila mas na hora de executar não faz nada.
Uma vez que o get tem a pausa, acho que deveria pelo menos parar na tela até teclar ENTER.
Será que entendi errado o uso da GTWVG?

pra compilar estou usando hbmk2 teste -lgtwvg

o fonte que usei foi este, retirando partes do demowvg.

Código: Selecionar todos

#include "inkey.ch"
#include "common.ch"
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"

Procedure Main
Local GetList := {}
Local mVar := Space(10)

@ 1, 0 Say "xxx" Get mVar
Read

Function HB_GTSYS()
   REQUEST HB_GT_WVG_DEFAULT
   REQUEST HB_GT_WVT
   REQUEST HB_GT_WGU
   Return NIL

Usar GTWVG

Enviado: 18 Jun 2012 18:03
por Jairo Maia
Olá José Quintas,

Acrescente na função HB_GTSYS() o comando REQUEST HB_GT_WIN_DEFAULT e teste novamente.

Usar GTWVG

Enviado: 18 Jun 2012 18:10
por marcosgambeta
JoséQuintas escreveu:pra compilar estou usando hbmk2 teste -lgtwvg
GTWVG é modo gráfico. Deve compilar assim:

Código: Selecionar todos

hbmk2 teste -lgtwvg -gtgui
Se não usar o parâmetro -gtgui, vai abortar a execução e criar um arquivo hb_out.log com a mensagem abaixo:

Código: Selecionar todos

Application Internal Error - D:\hb300\mytests\teste.exe
Terminated at: 2012.06.18 18:02:04
Unrecoverable error 10001: It's not a GUI program

Usar GTWVG

Enviado: 18 Jun 2012 18:51
por Jairo Maia
Olá Marcos,
marcosgambeta escreveu:Se não usar o parâmetro -gtgui, vai abortar a execução
Usando o comando REQUEST HB_GT_WIN_DEFAULT, também funciona.

Usar GTWVG

Enviado: 18 Jun 2012 23:38
por Imatech
Seu exemplo esta correto:

porem ao inves de usar -lgtwvg

Deve usar somente: -gtwvg

Motivo: O HBMK2 precisa de pelo menos 01 driver GT declarado nos parametros...

Código: Selecionar todos


FUNCTION HB_GTSYS()
   REQUEST HB_GT_WVG_DEFAULT
   REQUEST HB_GT_WVT
   REQUEST HB_GT_WGU
RETURN NIL

Código: Selecionar todos


#
# $Id: demowvg.hbp 14956 2010-06-29 19:30:26Z vszakats $
#

-3rd=hbide_version=1.0
-3rd=hbide_title=Demo&GTWVG
-3rd=hbide_output=demowvg

-inc
-mt
-w3
-es2
-gtwvg

demowvg.prg
wvgwvtclasses.prg
wvgtbrowser.prg
wvgutilities.prg
wvgdyndialogs.prg
wvgmodal.prg
wvgcuigdialog.prg
wvgxbp.prg
wvgactivex.prg
wvgqt.prg

Usar GTWVG

Enviado: 19 Jun 2012 21:18
por JoséQuintas
Obrigado. resolvido
-gui -gtwvg -gtwin

Usar GTWVG

Enviado: 27 Set 2012 12:40
por andersoncamilo
Bom dia

Quando tento compilar o exemplo DEMOWVG.PRG que esta dentro da pasta samples da GTWVG, aparece o seguinte erro: Error: Unresolved external '_hb_stack_ready' referenced from D:\XHARBOUR\LIB\GTWVG.LIB|gtwvg

O que preciso mudar para poder compilar

Utilizo para compilar

Xharbour 1.21 / HBMAKE / windows 7 64

Arquivo bc que estou utilizando para compilar

Código: Selecionar todos

#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif
 
RECURSE= NO 
 
SHELL = 
COMPRESS = NO
EXTERNALLIB = YES
XFWH = NO
FILESTOADD =  5
WARNINGLEVEL =  0
USERDEFINE = 
USERINCLUDE = 
USERLIBS = 
EDITOR = notepad
GTWVT = 
CGI = NO
GUI = YES
MT = NO
SRC02 = obj 
PROJECT = demowvg.exe $(PR) 
OBJFILES = $(SRC02)\DEMOWVG.obj $(OB) 
PRGFILES = DEMOWVG.PRG $(PS) 
OBJCFILES = $(OBC) 
CFILES = $(CF)
RESFILES = 
RESDEPEN = 
TOPMODULE = DEMOWVG.PRG
LIBFILES =  lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtwvt.lib gtwvg.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib  gtgui.lib gtwvg.lib gtwvw.lib
EXTLIBFILES = gtgui.lib gtwvg.lib gtwvw.lib
DEFFILE = 
HARBOURFLAGS =  -w0
CFLAG1 =  -OS $(SHELL)  $(CFLAGS) -d -c -L$(HB_DIR)\lib 
CFLAG2 =  -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS = 
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -aa
IFLAGS = 
LINKER = ilink32
 
ALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend
 
#DEPENDS
 
#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
 
.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**
 
.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -o$* $**
 
.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<
 
#BUILD
 
$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
    $(CC_DIR)\BIN\$(LINKER) @&&!  
    $(LFLAGS) +
    $(ALLOBJ), +
    $(PROJECT),, +
    $(ALLLIB), +
    $(DEFFILE), +
    $(ALLRES) 
!
Obrigado

Anderson Camilo

Usar GTWVG

Enviado: 08 Dez 2015 14:38
por microvolution
pessoal boa tarde!
no tópico:
O professor Jquintas, me ofereceu uma solução para modo gráfico com aparência de CONSOLE (mas é GUI mesmo), pois fiz o teste do "alô mundo".
O tópico que começou (sem querer a discussão) está em https://pctoledo.org/forum/viewto ... 00#p101100.

Como o assunto começou a desvirtuar do tema de lá, resolvemos mudar para este aqui que é semelhante ao que precisamos.

Bom, tentei compilar (como teste) usando o "braço a braço" do harbour através do CMD em modo administrador da seguinte forma:

Código: Selecionar todos

hbmk2 sicca35gt.hbp SICCA35GT.EXE
O meu arquivo .hbp é:

Código: Selecionar todos

pci10000gt.prg
dci10000.prg
dci10001.prg
dci10002.prg
enviarerro.prg
ext.prg
impresso.prg
pci10001.prg
pci10002.prg
pci10003.prg
pci10004.prg
pci10005.prg
pci10006.prg
pci10007.prg
pci10008.prg
pci10009.prg
pci10012.prg
pci10013.prg
pci10014.prg
pci10015.prg
pci10016.prg
pci10017.prg
pci10018.prg
pci10019.prg
pci10020.prg
pci10021.prg
pci10022.prg
pci10024.prg
pci10025.prg
pci10026.prg
pci10027.prg
pci10028.prg
pci10031.prg
pci10032.prg
pci10033.prg
pci10034.prg
pci10035.prg
pci10038.prg
pci10039.prg
pci10040.prg
pci10041.prg
pci10042.prg
pci10043.prg
pci10044.prg
pci10045.prg
pci10046.prg
pci10047.prg
pci10100.prg
pci10102.prg
pci10127.prg
pci10130.prg
pci10131.prg
pci10132.prg
pci10133.prg
pci10135.prg
pci10136.prg
pci10140.prg
pci10151.prg
pci10152.prg
pci10110.prg
pci10115.prg
pci10116.prg
pci10120.prg
pci10121.prg
pci10122.prg
pci10123.prg
pci10124.prg
pci10125.prg
pci10126.prg
pci10200.prg
pci10202.prg
pci10203.prg
pci10204.prg
pci10210.prg
pci10211.prg
pci10212.prg
pci10213.prg
pci10215.prg
pci10216.prg
pci10217.prg
pci10220.prg
pci10221.prg
pci10222.prg
pci10225.prg
pci10226.prg
pci10227.prg
pci10228.prg
pci10229.prg
pci10230.prg
pci10231.prg
pci10240.prg
pci10250.prg
pci10251.prg
pci10252.prg
pci10254.prg
pci10255.prg
pci10256.prg
pci10260.prg
pci10270.prg
pci10272.prg
pci10273.prg
pci10995.prg
pci10996.prg
pci10997.prg
pci10998.prg
pci10999.prg
pcterror.prg
pimpr105.prg
pimpr110.prg
pimpr115.prg
pimpr120.prg
pimpr121.prg
pimpr125.prg
pimpr130.prg
rci10000.prg
rimpr000.prg
rotinas5.prg
-m
-gtwvg.hbc
O erro ao compilar é:

Código: Selecionar todos

Application Internal Error - C:\MVinfo\hb32\migrar\SiCCA3421\sci10000\SICCA3421.exe
Terminated at: 2015.05.23 09:17:33
Unrecoverable error 9003: Too many recursive error handler calls
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2632) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from DBCREATE(0)
Called from CRIA_ARQUIVO(191) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10998.prg
Called from CRIA_TODOS(129) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10998.prg
Called from (b)PCI10998(64) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10998.prg
Called from MONTAMENU_ARQUIVOS(119) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10998.prg
Called from PCI10998(82) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10998.prg
Called from (b)GERACAO_DE_ARQUIVOS(2329) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from EXECUTA_PROGRAMA(1810) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from GERACAO_DE_ARQUIVOS(2329) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOVIMENTO_BANCARIO_AUTOMATICO(2041) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MCI10000(1725) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MAIN(942) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
------------------------------------------------------------------------
Application Internal Error - C:\MVinfo\hb32\migrar\SiCCA3421\sci10000\SICCA3421.exe
Terminated at: 2015.05.24 23:07:18
Unrecoverable error 9003: Too many recursive error handler calls
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from MOSTRAERROR(208) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from DEFERROR(90) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pcterror.prg
Called from (b)ERRORSYS(2633) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from ENVIARLOGDEERRO(7) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/enviarerro.prg
Called from ERRORSYS(2634) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from CLIPINIT(0) in ../../../harbinit.prg
------------------------------------------------------------------------
Application Internal Error - C:\MVinfo\hb32\migrar\SiCCA3421\sci10000\SICCA3421.exe
Terminated at: 2015.05.24 23:08:06
Unrecoverable error 9002: No ERRORBLOCK() for error
Called from ENVIARLOGDEERRO(7) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/enviarerro.prg
Called from ERRORSYS(2634) in C:/MVinfo/hb32/migrar/SiCCA3421/sci10000/pci10000.prg
Called from CLIPINIT(0) in ../../../harbinit.prg
------------------------------------------------------------------------
Lembrando que já consegui migrar de clipper para harbour usando a HMG 3.0.46 e já estou até testando em windows 10 64 bits e funciona "tinin tinin".
Mas, como no link acima que disse que precisava de algumas facilidades como mouse, gráfico, o JQuintas me ofereceu esta GTWVG.

Usar GTWVG

Enviado: 09 Dez 2015 21:53
por JoséQuintas
Esses erros não são de compilar...

Vamos lá:

pra compilar é apenas o nome do HBP

Código: Selecionar todos

hbmk2 sicca35gt.hbp
pci10000gt.prg é o primeiro da lista. Ele é o programa principal?

Se vai gerar com outro nome, seja na linha de comando ou dentro do hbp, só acrescentar

Código: Selecionar todos

-osicca35gt
Ao que parece, do jeito que usou já compilou e executou, e os erros são em execução.
Retire temporariamente a ERRRORSYS.PRG.
Está acusando algum erro nela, o que significa que a rotina de erros contém erro, e fica chamando ela mesma indefinidamente, até gerar o erro de estourar o limite de chamadas.


O arquivo hb_out.log nunca zera. Se não apagar, vai sempre acumular a lista de erros.
Olhando o log, o que começou os erros foi na linha 942 do programa principal.

Mas... essa errorsys tá grande assim, ou é parte de outro fonte?
A errorsys normal tem umas 200 linhas, e aí acusou erro na linha 2.633

Importante: não deveria precisar entrar como administrador pra compilar, a não ser que esteja usando um usuário com acesso muito restrito.

Usar GTWVG

Enviado: 09 Dez 2015 22:12
por asimoes
Estou achando interessante essa mensagem de erro, até parece que não é o hbmk2 oficial.

Curioso isso:

hbmk2 sicca35gt.hbp SICCA35GT.EXE

O certo seria:

hbmk2 sicca35gt.hbp -oSICCA35GT

Qualquer duvida digita na pasta \bin do harbour:

hbmk2 -? |more

ou

hbmk2 /? |more

A instrução -o é para informar ao compilador o nome do executável que será gerado.

ex.:

-oSEUEXECUTAVEL

Não precisa informar a extensão .exe

Usar GTWVG

Enviado: 09 Dez 2015 22:20
por JoséQuintas
No Clipper eu usava uma rotina de erros fora do aplicativo, pra enviar um "savescreen" junto com o email de erro.
Em ambiente gráfico isso é impossível.

Se quer erro por email, o melhor negócio é enviar o erro ao ENTRAR no aplicativo.
Deu erro... salva. Na próxima carga... envia.
Isso evita problemas com a errorsys.

Como comentei também no outro post, convém uma errorsys diferente da padrão, pra usar modo GUI.
Mas não muito diferente.

O motivo é simples: como deixa de ser console, se a janela fechar não vai conseguir ver o erro.

Usar GTWVG

Enviado: 10 Dez 2015 13:02
por microvolution
Caros professores, bom dia!
Em primeiro lugar (devido ao meu cansaço mental estremo) quero pedir desculpas em ter passado a mensagem de erro do arquivo HB_OUT (pois só agora pude observá-la) que está com data de maio/2015, ou seja, não é real esta mensagem.

Bom, abri o CMD agora de manhã e tentei compilar do jeito que os Srs. "asimoes" e "JQuintas" ensinaram. O erro é o mesmo para ambas. Tirei um prtScreen da tela para que todos vejam o erro de verdade:
15-1210 - erro compilar hbmk2.jpg
Aqui na tela observei 2 coisas:
1 - está escrito: "Atenção: Opção -gt inválida sendo ignorada: gtwvg.hbc
2 - cannot Open PCI100gt.PRG, assumed external (era PCI10000GT.PRG - mudei o nome pensado que não aceita com nomes maiores, mas, o erro foi o mesmo).

É isso aí...

Usar GTWVG

Enviado: 10 Dez 2015 19:46
por JoséQuintas
Ok isso é um erro comum, e não reparei no seu HBP.

Não se coloca sinal de menos em gtwvg.hbc

Usar GTWVG

Enviado: 10 Dez 2015 20:41
por asimoes
Com relação ao nome do fonte não existe no harbour a limitação de nome com tamanho 8.3 (ms-dos)

Usar GTWVG

Enviado: 10 Dez 2015 21:03
por JoséQuintas
2 - cannot Open PCI100gt.PRG, assumed external (era PCI10000GT.PRG - mudei o nome pensado que não aceita com nomes maiores, mas, o erro foi o mesmo).
Não entendi.
Colocou o nome certo e deu qual erro?
Todos os horários são UTC-03:00
Página 1 de 5

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB