Página 1 de 1
Imagens com a gtwvt
Enviado: 06 Jul 2014 23:10
por Nascimento
Amigos eu peguei esse arquivo nao lembro bem aonde mais acho que no grupo harbour é bem legal
mais nao consegui compila-lo com harbour 3.2 e mingw acho que ele foi feito em xharbour teria como passar pra o harbour e usa-lo?
segue em anexo o zip com o codigo
Imagens com a gtwvt
Enviado: 13 Jul 2014 17:19
por Nascimento
teria como?
Imagens com a gtwvt
Enviado: 16 Jul 2014 13:28
por Jairo Maia
Olá Josivan,
Com certeza, e totalmente em Harbour. Para mais detalhes veja em: C:\hb32\contrib\gtwvg\tests
Um exemplo extremamente simples com uma figura .Jpg. Para Compilar use: Hbmk2 exemplo -gtwvg -gui
Imagens com a gtwvt
Enviado: 16 Jul 2014 15:13
por Nascimento
Amigo Jairo se vc observar o exemplo que eu coloquei em anexo é com a gtwvT eu nao consegui compilar com o harbour3.2 + mingw
por isso fiquei achando que foi feito pra Xharbour e por isso postei pra ver se tinha condiçoes de passar pra harbour mais usando a mesma biblioteca a
gtwvT
e nao a gtwvG como vc sugeriu
Imagens com a gtwvt
Enviado: 17 Jul 2014 00:09
por Jairo Maia
Olá Josivam,
Desculpe... Foi mal...
Não sei se você sabe, mas WVT não exibe imagem. A função usada no exemplo para exibir imagem não é Wvt.
Mas se sua idéia é gravar uma imagem num campo Memo, depois recuperá-la para exibir, o exemplo abaixo faz a mesma coisa, apenas com a diferença que é com WVG e a imagem precisa ser .JPG.
Para Salvar a imagem no campo Memo, veja a função SalvaFoto() no arquivo .PRG. Não a usei no exemplo, já que gravei algumas imagens no DBF que acompanha o exemplo.
Igual a anterior, para Compilar use: Hbmk2 exemplo -gtwvg -gui
Imagens com a gtwvt
Enviado: 17 Jul 2014 13:56
por Nascimento
Amigo jairo vc baixou o anexo e leu os fontes?
se vc ainda nao fez isso baixe e leia vc vai ver que é gtwvT realmente so que como disse acho que foi compilada em xharbour e por isso nao consegui compilar no harbour
att:Josivan Nascimento
Imagens com a gtwvt
Enviado: 18 Jul 2014 02:04
por Jairo Maia
Olá Josivan,
Apenas respondendendo suas perguntas, e da minha parte para encerrar este assunto.
Josivan Nascimento escreveu:Amigo jairo vc baixou o anexo e leu os fontes?
Sim.
Josivan Nascimento escreveu:vc vai ver que é gtwvT realmente
Mil perdões... Isso não consigo ver mesmo!
Veja as funções usadas no exemplo para exibir a imagem:
Código: Selecionar todos
handle := OpenGraphic(x) // abre a imagem
DisplayGraphic( handle, 10,10 ) // exibe a imagem
CloseImage(handle) // fecha o handle da imagem
Veja o comentário que precede a função
DisplayGraphic(), usada para exibir a imagem:
/* * Exibe o grafico indicado em nHandle, nas coordenadas especificadas na tela.
* Ela converte ROW e COL para coordenadas em PIXELs e chama a rotina em C para
* exibir a imagem.
*/
Código: Selecionar todos
FUNCTION DisplayGraphic( nHandle, Row, Col )
LOCAL a := Wvt_GetXYFromRowCol( Row, Col )
DisplayGraphicEX( nHandle, WIN_GETDC(WVT_GETWINDOWHANDLE()), a[1], a[2] )
RETURN nil
No exemplo que passei, trato apenas o Chr(26) porque uso apenas imagens JPG, que são aproximadamente 11 vezes menores que as imagens BMP, mas se quiser também salvar imagens BMP, basta tratar também o caractere Chr(0), como as funções criadas pelo Vailton em puro código xBase, usadas no exemplo que você postou:
Código: Selecionar todos
************************************************
* FROM BRGUI Project Source Code *
************************************************
* O Pulo-do-gato para armazenar imagens *
* em arquivos DBF utilizando campos DBT *
* *
* by Vailton Renato - 30/07/2004 = 22:32hs *
************************************************
function MaskBinData(x) // salva a imagem
x := StrTran(x,chr(26),'\\#26//')
x := StrTran(x,chr(00),'\\#00//')
return x
function UnMaskBinData(x) // recupera a imagem
x := StrTran(x,'\\#26//',chr(26))
x := StrTran(x,'\\#00//',chr(00))
return x
Resumindo, da WVT são usadas apenas duas funções, que são:
Wvt_GetXYFromRowCol( <Row>, <Col> ) e
WVT_GETWINDOWHANDLE(), respectivamente uma de conversão de coordenadas e a outra de retorno de controle.
Reiterando, WVT não exibe imagens.
Imagens com a gtwvt
Enviado: 19 Jul 2014 10:38
por Nascimento
jairo baixei seu exemplo muito bom por sinal mais quando eu minimizo e maximizo a imagem some tem como resolver isso? , e o que escrevo com @ say tambem nao aparece quando a imagem esta na tela
Imagens com a gtwvt
Enviado: 19 Jul 2014 16:08
por Jairo Maia
Olá Josivam,
Não só a imagem, mas também os elementos gráficos. É que a preocupação com o exemplo foi mostrar como salvar e recuperar a foto do campo Memo.
Quanto a usar a parte gráfica e estabilizar, veja as alterações feitas no exemplo em anexo. Desta forma, você pode minimizar e restaurar, bem como abrir outros aplicativos ou navegadores, que ela fica estável.
Chamo a atenção para você entender o uso das funções: Wvt_Paint() e WvtSetPaint(). Para funcionar corretamente, a função Wvt_Paint() como está no exemplo tem que fazer parte de seus aplicativos, e os elementos gráficos colocados em vetor como mostrado e que será executado pela função WvtSetPaint().
Observe as alterações no exemplo que você verá que foram simples, mas fundamentais para trabalhar com elementos gráficos.
Quanto aos Gets, e Says, a dica que dou é você ver este pequeno e simples manual do Giovanni Di Maria, com quem aliás aprendi quase tudo (e não entenda que sei muita coisa) que sei no uso da GTWVG:
GTWVG-Tutorial
Para compilar use:
Hbmk2 imagem -gtwvg -gui
Imagens com a gtwvt
Enviado: 07 Ago 2014 13:03
por janio
Uma coisa q mim intriga...
O tutorial do Giovanni é da gtwvg ne? Mas pq o nome das funções da wv
g começam com Wv
t
?
Imagens com a gtwvt
Enviado: 20 Ago 2014 03:58
por Jairo Maia
Jânio, a gtwvt é do Harbour e portanto é multi plataforma, ou seja, as funções da gtwvt roda em todas as plataformas suportadas pelo Harbour, já a gtwvg é uma extensão da gtwvt e roda somente na plataforma Windows. É uma contrib com elementos GUI.
Imagens com a GTWVG
Enviado: 18 Jan 2016 17:32
por microvolution
No meu caso, estou usando a GTWVG, e a seguinte linha não carrega a imagem corretamente:
Código: Selecionar todos
Wvg_Image( 15,36,16,42, {-3,-3,3,3}, GOBJ_IMAGESOURCE_FILE, "Vouch" )
Claro que está faltando a origem da linha "VOUCH". Então veja as opções, sendo só uma que funciona:
1ª - com a linha abaixo não funciona:
2ª - com a inclusão no .RC também não funciona
3ª - só funciona se colocar a linha abaixo. Mas, o problema é que se o usuário excluir o arquivo da pasta nada é apresentado:
Alguém pode me dar uma sugestão?
até breve!
_wvt_imagens.zip