Clipper On Line

Pessoal,

Não sei se tem exemplo usando JPG.dll para captura de tela (savescreen) para arquivo, segue contribuição.

#include "hbdyn.ch"

FUNCTION MAIN()

   hwg_MsgInfo( "Teste com captura de tela" )
   
   FOTO( "TESTE2.JPG")

RETURN Nil

FUNCTION FOTO( cImagem )

nHandleDLL := Hb_LibLoad("JPG.dll")

   nStatus:=hb_dynCall( { "SaveToJpgEx", nHandleDLL, HB_DYN_CALLCONV_STDCALL}, 0, cImagem, 1024, 768) 

   Hb_LibFree(nHandleDLL)
 
RETURN Nil

A função pode ser útil para capturar tela com erro, ou até ser um espião do sistema (rs)

Usando GT*

FUNCTION FOTO( cImagem )

nHandleDLL := Hb_LibLoad("JPG.dll")

   nWidth  := hb_gtInfo(HB_GTI_DESKTOPWIDTH )
   nHeight := hb_gtInfo(HB_GTI_DESKTOPHEIGHT )
   
   nStatus:=hb_dynCall( { "SaveToJpgEx", nHandleDLL, HB_DYN_CALLCONV_STDCALL}, 0, cImagem, nWidth, nHeight) 

   Hb_LibFree(nHandleDLL)
 
RETURN Nil

Tem utilitário interessante neste link:

http://www.nirsoft.net/utils/dll_export_viewer.html

Foi feito com Harbour ?

Testei com xHB e não tem a função hb_dynCall()

Paulo

Harbour 3.2 e 3.4 mais atual

Usando um contador para gerar o jpg

FUNCTION FOTO()
THREAD STATIC nCounter := 1

   cCounter := "0001"
   
   nHandleDLL := Hb_LibLoad( "JPG.dll" )

   nWidth  := Hb_gtInfo( HB_GTI_DESKTOPWIDTH )
   nHeight := Hb_gtInfo( HB_GTI_DESKTOPHEIGHT )
   
   nWidth  := Hwg_GetDeskTopWidth()
   nHeight := Hwg_GetDeskTopHeight()
   
   IF Hb_FileExists( Hb_DirBase() + "JPG.INI" )
      cCounter := hwg_GetIni( 'CONTADOR', 'Counter', '', Hb_DirBase() + "JPG.INI" )
      nCounter := Val( cCounter )
   ENDIF

   cFile := cCounter + [.JPG]

   DO WHILE Hb_FileExists( cFile )
      cCounter := StrZero( nCounter++, 4 )
      cFile := cCounter + [.JPG]
   ENDDO
   
   nStatus:=hb_dynCall( { "SaveToJpgEx", nHandleDLL, HB_DYN_CALLCONV_STDCALL}, 0, cFile, nWidth, nHeight ) 

   hwg_WriteIni( 'CONTADOR', 'Counter', cCounter, Hb_DirBase() + "JPG.INI" )
   
   Hb_LibFree( nHandleDLL )
 
RETURN Nil

Só lembrando que a Bostaurus da HMG3 faz isso, o que dispensa DLL adicional.
Vai depender do que mais estiver usando, que pode dar conflito com a LIB da HMG3.

Esse exemplo que eu postei tem na Minigui Ex.

Eu adaptei para ser usado com harbour puro.

Na minigui tem um exemplo:

\MiniGUI\SAMPLES\Applications\ScreenshotMaker

Bitmap é um arquivo maior, por isso escolhi a função que eu postei, eu queria também poder gerar png mas não achei exemplo. acho que nesse caso posso usar a freeimage para converter de jpg para png

Internamente BT trabaja con bitmap porque el api de Windows trabaja con bitmap, pero BT lee y grava en otros formatos sin necesidad de Dll o alguna otra lib externa, ver la documentación:
http://www.hmgforum.com/hmgdoc/BosTauru ... eGuide.htm

BT_BitmapLoadFile (cFileName)

Loads an image (BMP, JPG, GIF, TIF or PNG) from the disk or resources and returns a handle to bitmap format image (hBitmap).

cFileName: is the name of the file or of the resource that contains the image.





BT_BitmapLoadEMF (cFileName, aRGBcolor_Fill_Bk, NewWidht, NewHeight, Mode_Stretch)

Loads an EMF (Enhanced Meta File) image from the disk or resources and returns a handle to bitmap format image (hBitmap).

cFileName: is the name of the file or of the resource that contains the image.

aRGBcolor_Fill_Bk: array containing the RGB colors that paint the background of the bitmap. For default: aRGBcolor_Fill_Bk = {0,0,0} = BLACK.

New_Width, New_Height: is the new size of the bitmap image. For default this values are the original width and height of the EMF image.

Mode_Stretch: sets the mode as the image of origin is adjusts (is stretches or compresses) in the new size bitmap, it is one of the constants: BT_SCALE or BT_STRETCH (defined in BosTaurus.CH). For default Mode_Stretch = BT_STRETCH.





BT_BitmapSaveFile (hBitmap, cFileName, nTypePicture)

Save an image (BMP, JPG, GIF, TIF or PNG) in the disk.

hBitmap: is a handle to the bitmap image.

cFileName: is the name of the file to save.

nTypePicture: specifies the format in which you want to save the image, it is one of the constants: BT_FILEFORMAT_BMP, BT_FILEFORMAT_JPG, BT_FILEFORMAT_GIF, BT_FILEFORMAT_TIF or BT_FILEFORMAT_PNG (defined in BosTaurus.CH). For default nTypePicture = BT_FILEFORMAT_BMP.

Para pegar o handle da janela você pode usar:

Hb_gtInfo( HB_GTI_WINHANDLE )

_HMG_SYSDATA é onde a HMG salva toda informação sobre janelas/controles.
Talvez isolar essas funções mais específicas, que tratam do ambiente HMG, pra retirar da Bostaurus.

Senão... acrescentar HMG só pra poder usar Bostaurus.

Consegui isolar a BosTaurus

O código está isolado, não precisa compilar com a MIniGui, vai precisar somente apontar para o arquivo que está no zip, mgdesfs.h porque o fonte
BosTaurus_C.prg precisa das definições contidas neste arquivo, é só apontar o INCPATH para a pasta da compilação ou colocar na pasta INCLUDE do harbour.

#define BT_BITMAP_CAPTURE_DESKTOP     0

#define BT_FILEFORMAT_BMP  0
#define BT_FILEFORMAT_JPG  1
#define BT_FILEFORMAT_GIF  2
#define BT_FILEFORMAT_TIF  3
#define BT_FILEFORMAT_PNG  4

* HwGui
hBitmap := BT_BMP_CAPTURESCR(0, 0, 0, Hwg_GetDeskTopWidth(), Hwg_GetDeskTopHeight(), BT_BITMAP_CAPTURE_DESKTOP)

* GTWVG / GTWVT
hBitmap := BT_BMP_CAPTURESCR(0, 0, 0, Hb_gtInfo( HB_GTI_DESKTOPWIDTH ), Hb_gtInfo( HB_GTI_DESKTOPHEIGHT ), BT_BITMAP_CAPTURE_DESKTOP)

lSucesso := BT_BMP_SAVEFILE( hBitmap, 'TESTE.BMP', BT_FILEFORMAT_BMP )

Si vas a compilar en ANSI en 32 bits se puede sustituir
las directivas HMG_parnl y HMG_parc

Poner al inicio del archivo en C:

#define HMG_parnl hb_parnl
#define HMG_parc hb_parc

Si no se utilizas HMG, sustituir
GetFormHandle()

por:
Hb_gtInfo( HB_GTI_WINHANDLE ) o alguna otra función que retorne el handle de las ventanas.

Además eliminar las funciones:
BT_HMGGetImage
BT_HMGCloneImage
BT_HMGSetImage

que son sólo para HMG.

O código que postei gera o PNG também

lSucesso := BT_BMP_SAVEFILE( hBitmap, 'TESTE.PNG', BT_FILEFORMAT_PNG )

Aqui é tudo diferente..... rs
Está salvando a imagem cortada.

Provavelmente a ampliação do Windows.
A tela é 3840 x 2160 e salva como 2560 x 1440, cortando a tela.

Ok, retirando a ampliação do Windows dá certo.

Fugindo um pouco do assunto, e aproveitando o post....

Se o Windows retorna configuração diferente.....
Quem usa isso pra centralizar janela e/ou redimensionar componentes... saiba que vai bagunçar.

Só pra curiosidade, acho que tem gente que ainda não sabe a diferença:

19/04/2018  22:02        24.883.254 TESTE.BMP
19/04/2018  22:02           548.253 TESTE.JPG
19/04/2018  22:02         4.321.815 TESTE.PNG

de 24MB pra 0.5MB.... a diferença é grande.

BosTaurus_C.prg modificado para não precisar do arquivo de definições mgdefs.h

A título de informação:

PNG (Portable Network Graphics, também conhecido como PNG's Not GIF) é um formato de dados utilizado para imagens, que surgiu em 1996 como substituto para o formato GIF, devido ao facto de este último incluir algoritmos patenteados.

Fonte: https://pt.wikipedia.org/wiki/PNG

Sobre JPEG:

https://en.wikipedia.org/wiki/JPEG

Amiguinhos,

Criei um novo tópico para não desvirtuar o atual:

JPG2Email - Capture sua tela e envie para o seu email

O ideal seria manter o máximo de fonte possível, porque tem outras funções interessantes na Bostaurus.

Só pra lembrar:
Tem Bostaurus na HMG 3, HMG Extended e OOHG.
Pode ser que uma seja mais fácil de converter do que a outra.
Comecei a isolar da HMG3, mas no final enroscou.