Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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.jpg") oImgRepo:DeleteBmp("xisto.jpg") endif cEntry := oImgRepo:InsertBmp("xisto.jpg" ,/*cEntry*/, @lInluiu) ConOut("Imagem " + cValToChar(cEntry) + Iif(lInluiu, " inclusa", " nao inclusa")) oImgRepo:CloseRepository() endif FreeObj(oImgRepo) RpcClearEnv() return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas