Página 1 de 1
GTWVW do carvalho????
Enviado: 20 Abr 2020 14:05
por JoséQuintas
Tô a manhã inteira tentando resolver um problema.
É uma comunicação com webservice.
Acabo de resolver o problema mas.......
Tirem suas próprias conclusões.
Assim não funciona
test.prg
gtwvw.hbc
Assim funciona
test.prg
gtwvg.hbc
Diferença: tava fazendo testes, e ficou gtwvw como lib gráfica.
Sim, fiz e refiz compilação pra confirmar: com GTWVW a comunicação com webservice NÃO funciona.
GTWVW do carvalho????
Enviado: 20 Abr 2020 14:14
por JoséQuintas
Nada de diferente no GTWVW.HBC, até pensei na compatibilidade XHarbour...
Código: Selecionar todos
description=GTWVW (a GTWVG alternative with multi-window support, win-only)
skip={!allwin}
incpaths=.
gt=${_HB_DYNPREF}${hb_name}${_HB_DYNSUFF}
libs=hbwin.hbc
gui=yes
Apenas adiciona a hbwin, e indica que é GUI.
E dá a alternativa pra usar GTWVW em DLL.
Depois dessa, NÃO recomendo ninguém usar GTWVW.
A propósito... provavelmente aonde não funcionou Sefazclass deve usar GTWVW.
GTWVW do carvalho????
Enviado: 20 Abr 2020 14:41
por JoséQuintas
Tentei encontrar alguma coisa contra... mas não deu.
É realmente GTWVW.
NENHUM recurso especial no fonte, é console mesmo.
Apenas por isso dá pra escolher entre gtwvw ou gtwvg ou gtwin.
Com gtwvw a comunicação com webservice não vai.
Não faz sentido que a GT cause interferência nisso, por isso tentei encontrar algum outro motivo.
o mais provável seria o uso de xhb.hbc, mas não encontrei nada disso.
GTWVW do carvalho????
Enviado: 20 Abr 2020 20:58
por JoséQuintas
Faltou dizer: Isso foi com Harbour 3.4
Precisaria fazer o teste com Harbour 3.2 pra ver se acontece o mesmo.
Ou até com XHarbour
GTWVW do carvalho????
Enviado: 21 Abr 2020 17:49
por MSDN
Sem querer ofender, mas GTWVW é gambiarra !
GTWVW do carvalho????
Enviado: 21 Abr 2020 18:11
por asimoes
MSDN escreveu:Sem querer ofender, mas GTWVW é gambiarra !
Essa GT foi abandonada tá na contrib não sei porque
GTWVW do carvalho????
Enviado: 21 Abr 2020 21:31
por JoséQuintas
Essa LIB é até "mais Windows", foi uma das primeiras.
O programador que criou fazia parte dos principais colaboradores.
O programador faleceu.
Ficou como uma espécie de homenagem, e continua porque há usuários da LIB.
GTWVW do carvalho????
Enviado: 21 Abr 2020 21:45
por Itamar M. Lins Jr.
Ola!
O programador faleceu.
Tá vivo, Budjanto!
O que morreu foi o que criou a outra baseada na do Budjanto. WvwTools.
E como sempre se apossaram do código dele... e depois jogaram no esquecimento. Ficava com bordas e outros efeitos melhores, o visual era melhor.
Saudações,
Itamar M. Lins Jr.
GTWVW do carvalho????
Enviado: 21 Abr 2020 22:22
por JoséQuintas
Encontrei mensagens de 2010, onde o Itamar tentava convencer pra mexerem na GTWVW, pra trazer usuários do XHarbour para o Harbour.
Por coincidência, março/2010, 10 anos atrás.
http://harbour-devel.1590103.n2.nabble. ... 17934.html
GTWVW do carvalho????
Enviado: 21 Abr 2020 22:31
por Itamar M. Lins Jr.
Ola!
Pois é, e ele corrigiu muita coisa.
O problema é que a WVW é limitada. A WVG é melhor.
Parace que não tem thread... Tem umas explicações do Pritpal. O Budyanto caiu fora pois pegaram o trabalho dele e venderam...
http://cch4clipper.blogspot.com/2009/06 ... ation.html
Saudações,
Itamar M. Lins Jr.
GTWVW do carvalho????
Enviado: 22 Abr 2020 14:50
por Ruben Dario
Saludos
Ejecuto el codigo de este link
http://harbour-devel.1590103.n2.nabble. ... 17934.html y me da este error
Este es el error
Lo compile con Harbour 3.3 y bcc74
https://www.4shared.com/photo/ZN0T9ztoea/error.html
GTWVW do carvalho????
Enviado: 22 Abr 2020 15:02
por JoséQuintas
Ajustei os erros da compilação -w3 -es2, e assim foi:
Código: Selecionar todos
// Experiment for Emulating gtwvw with gtwvt/gtwvg/XWC /gtqtc
#ifdef __PLATFORM__WINDOWS
REQUEST HB_GT_WVT_DEFAULT
#define THREAD_GT "WVT"
#else
REQUEST HB_GT_STD_DEFAULT
#define THREAD_GT "XWC"
#endif
#command DEFAULT <v1> TO <x1> [, <vN> TO <xN> ] => IF((<v1>)=NIL,<v1>:=<x1>,NIL) [; IF((<vN>)=NIL,<vN>:=<xN>,NIL)]
STATIC S_Ocrt:={}
STATIC S_setmaincoord:=.f.
#XTRANSLATE setpos( => setpos2(
FUNCTION main
LOCAL X_Number:=9, GetList := {}, windo
CLS
wvw_setmaincoord(.t.)
WINDO=WVW_nOpenWindow("", 5, 5, 7, 40)
@ 5,5 ,7,40 box ""
@ 6,6 SAY "Number" GET x_number
READ
WVW_lCloseWindow(WINDO)
RETURN NIL
FUNCTION WVW_nOpenWindow(X_title,x_top,x_left,x_bottom,x_right)
LOCAL x_Ret, x_ocrt
hb_gtCreate( THREAD_GT )
setmode(x_bottom-x_top+1,x_right-x_left+1)
// ? x_bottom-x_top,x_right-x_left
x_oCrt := hb_gtSelect()
AAdd(s_ocrt,{x_ocrt,X_title,x_top,x_left,x_bottom,x_right})
x_ret=len(s_ocrt)
RETURN x_ret
FUNCTION WVW_lCloseWindow(x_pos)
DEFAULT x_pos to Len(s_ocrt)
s_ocrt[x_pos,1]=nil
adel(s_ocrt,x_pos,.t.)
RETURN NIL
FUNCTION wvw_setmaincoord(x_coord)
s_setmaincoord:=x_coord
RETURN NIL
#XUNTRANSLATE setpos( =>
FUNCTION SetPos2( x_row, x_col )
LOCAL x_pos:=len(s_ocrt)
// altd()
IF s_setmaincoord
setpos(x_row-s_ocrt[x_pos,3],x_col-s_ocrt[x_pos,5])
ELSE
setpos(x_row,x_col)
ENDIF
RETURN NIL
GTWVW do carvalho????
Enviado: 01 Jun 2020 20:58
por JoséQuintas
De novo hoje.
Com aquela comunicação JSON que coloquei em outro post.
GTWVW do carvalho????
Enviado: 01 Jun 2020 22:31
por JoséQuintas
No caso do jason.... o problema não foi gtwvw.
Anotar no post de jason.