FWBmpRep

Descrição:

Classe responsável pela manipulação do repositório de imagens.

Métodos:

New

Descrição:
Método para instanciar a classe (construtor)

Sintaxe:
FWBmpRep():New() → Objeto FWBmpRep

OpenRepository

Descrição:
Método responsável por abrir o repositório de imagens

Sintaxe:
FWBmpRep():OpenRepository() → lRet

Retorno:
lRet → Indica se o repositório foi aberto

CloseRepository

Descrição:
Método responsável por fechar o repositório de imagens

Sintaxe:
FWBmpRep():CloseRepository()

Pack

Descrição:
Método responsável por efetuar o pack do repositório de imagens

Sintaxe:
FWBmpRep():Pack()

Observação:
Caso o repositório esteja no banco de dados, esse método não surte efeito.

RecordCount

Descrição:
Método responsável por retornar a quantidade de itens presentes no repositório de imagens

Sintaxe:
FWBmpRep():RecordCount() → nRecs

Retorno:
nRecs → Indica a quantidade de registros no repositório de imagens

ExistBmp

Descrição:
Método responsável por verificar a existência de uma imagem no repositório de imagens

Sintaxe:
FWBmpRep():ExistBmp( <cEntry> ) → lRet

Parâmetros

Retorno:
lRet → Indica se a imagem pesquisada existe no repositório de imagens

DeleteBmp

Descrição:
Método responsável por efetuar a exclusão de uma imagem presente no repositório de imagens

Sintaxe:
FWBmpRep():DeleteBmp( <cEntry> )

Parâmetros

Extract

Descrição:
Método responsável por extrair uma imagem do repositório de imagens

Sintaxe:
FWBmpRep():Extract( <cEntry> , <cFile> ) → lRet

Parâmetros

Retorno:
lRet → Indica sucesso na extração da imagem

InsertBmp

Descrição:
Método responsável pela inserção de imagens no repositório de imagens

Sintaxe:
FWBmpRep():InsertBmp( <cFile> , <cEntry> , <lIncluiu>) → cEntry

Parâmetros

Retorno:
cEntry → Nome da imagem que foi inclusa

Exemplo de utilização:

#include "protheus.ch"

#define C_GRUPO  "99"
#define C_FILIAL "01"

//-------------------------------------------------------------------
/*{Protheus.doc} imgReposit
Exemplo de utilização da classe FWBmpRep, classe responsável pela
manipulação do repositório de imagens

@author Daniel Mendes
@since 12/08/2020
@version 1.0
*/
//-------------------------------------------------------------------
user function imgReposit()
local oImgRepo as object
local lInluiu as logical
local cEntry as char

RpcSetEnv(C_GRUPO, C_FILIAL)

oImgRepo := FWBmpRep():New()

if oImgRepo:OpenRepository()
    lInluiu := .F.

    ConOut("Quantidade de registros: ", oImgRepo:RecordCount())

    if oImgRepo:ExistBmp("xisto")
        oImgRepo:DeleteBmp("xisto")
    endif

    cEntry := oImgRepo:InsertBmp("xisto.jpg" ,/*cEntry*/, @lInluiu)

    if lInluiu
        FErase("xisto.jpg")
        ConOut("Imagem " + cEntry + " inclusa")

        if oImgRepo:Extract(cEntry, "xisto.jpg")
            ConOut("Imagem " + cEntry + " recuperada")
        else
            ConErr("Erro ao recuperar a imagem " + cEntry)
        endif
    else
        ConErr("Erro ao incluir a imagem xisto.jpg")
    endif

    oImgRepo:CloseRepository()
endif

FreeObj(oImgRepo)

RpcClearEnv()

return