GTWVW do carvalho????

[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.

[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.

[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.

[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

[MSDN]

Sem querer ofender, mas GTWVW é gambiarra !

[asimoes]

Sem querer ofender, mas GTWVW é gambiarra !

Essa GT foi abandonada tá na contrib não sei porque

[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.

[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.

[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

[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.

[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

[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

[JoséQuintas]

De novo hoje.
Com aquela comunicação JSON que coloquei em outro post.

[JoséQuintas]

No caso do jason.... o problema não foi gtwvw.
Anotar no post de jason.