Aos poucos migrando tela caracter para GUI

[JoséQuintas]

É uma pena que o gravador do Windows 10 seja limitado.

O W10 tem gravação de vídeo, mas voltada pra jogos, onde só grava uma janela.
Com isso janelas adicionais não são salvas.

O W10 também tem gravação de comandos, com print-screen, mas neste caso é tudo ou nada.
No meu caso, o print-screen inclui 3 monitores, onde em 2 deles, podem ter mulheres em poses proibidas.... rs
Além de se tornarem imagens grandes, talvez 8000 x 2160

[JoséQuintas]

ASimões

Dá pra fazer essas telas com GTWVG, pra ficarem iguais.
A única exceção talvez seja a tela do tbrowse, mas não tentei fazer.

[asimoes]

Quintas,

Não sei se é possível com GTWVG:

Uma janela simples:

Dialog modal com os componentes:

Label
Button
Status Bar

[asimoes]

Cadastro com fotos e rotina pronta para captura da foto via webcam

[JoséQuintas]

Com GTWVG e Harbour 3.4 dá pra fazer parecida, mas com Harbour 3.2 não.

No Harbour 3.4 tem a alteração que enviei pra não limitar em linhas/colunas inteiras.

[Itamar M. Lins Jr.]

Ola!
Pode compartilhar a rotina de foto pela webcam ?
Eu pego a foto, depois que ela é salva em algum lugar. Não tenho ainda essa rotina de acionar a webcam.

Saudações,
Itamar M. Lins Jr.

[asimoes]

Itamar,

Essa é a minha rotina de teste que vai virar opção de captura de imagem de webcam, testado com a webcam do notebook e Webcam HD 720P C270 Logitech

[asimoes]

Sobre a rotina de captura de imagens:

A resolução das fotos na função CapFileSaveDIB é 640 x 480 apesar de ter dimensionado a imagem para 1024 x 768 ou 300 x 200 a função grava com essa resolução fixa, se alguém descobrir como resolver, por favor postar aqui.

[asimoes]

Com relação ao redimensionamento de imagem, por hora a solução é a seguinte:

Sabendo que a imagem gravada é sempre 640 / 480
Para redimensionar para outra resolução

Código: Selecionar todos

FUNCTION Redimensionar( cDirFoto )
LOCAL cBmp := cDirFoto + "TESTE.BMP", cJpg := cDirFoto + "TESTE.JPG", cPng := cDirFoto + "TESTE.PNG"

   fi_Initialise()

   * Carrega a imagem
 
   image := fi_Load( FIF_PNG, cPng, PNG_DEFAULT )
  
   * Pega o tamanho da imagem
   
   width   := fi_GetWidth( image )
   height  := fi_GetHeight( image )

   * Ou atribui outra resulução

   width  := 1024
  
   height := 768

   * Redimensiona a imagem
   
   * Dividindo a imagem original por 2 
   rescale := fi_Rescale( image, width / 2, height / 2, FILTER_BICUBIC )
  
   * Ou tamanho atribuído
  
   rescale := fi_Rescale( image, width, height, FILTER_BICUBIC )


   * Salva a imagem com outra dimensão

   Fi_Save( FIF_PNG, rescale, cDirFoto + "rescale.png", PNG_DEFAULT )
  
   fi_DeInitialise()

RETURN Nil

[microvolution]

show esse tópico!
parabéns a todos os colegas!

[asimoes]

Pesquisando acabei achando a solução para definir a resolução de imagem no fórum FiveWin
Então temos duas formas para definir a resolução da imagem:

1-Usando a imagem capturada e depois redimensionar usando a freeimage
2-Usando a função do windows capDriverGetCaps

Função SetupVideo

[Fernando queiroz]

migrando aos poucos , mas mantendo algumas coisas antigas a pedido do cliente

[Fernando queiroz]

[Fernando queiroz]

[rubens]

Fernando...
Essa tela do clipper´s club andou longe heim ?!!!
Essa tela do contas a pagar, você faz ela a partir do menu principal aí? Pega todo o ambiente do da tela texto aí ou é um programa a parte?

Obg
Rubens