Páginas filhas
  • totvs.framework.file.ExtractResource

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Para determinar se é necessário extrair novamente o arquivo faz a comparação do MD5 do conteudo do arquivo em relação ao arquivo físico.

Métodos:


Exemplo

Bloco de código
titleExemplo
linenumberstrue
collapsetrue
#include "protheus.ch"

/*/{Protheus.doc} TestExtRes
    Função parade testarteste ada classe ExtractResource
@author Caio.Lima
@since 01/08/2022
/*/
Function U_TestExtRes()
    Local oResource as object
    Local cResource as character

    oResource := totvs.framework.file.ExtractResource():New()
    cResource := ""

    oResource:ExtractOneResource("CNTA330While !Empty( cResource := FWInputBox("Informe o nome do resource", "APP"APLOGO_OCEAN.JPG") )
        oResource:ExtractOneResource(cResource)
        ConOut(oResource:GetLog())
        If oResource:IsResourceOk()
            // copia o arquivo para o client
            CpyS2T(oResource:GetPathResFile(), "C:\teste\")
            // abre o arquivo na maquina do client
            ShellExecute("open", "C:\teste\" + cResource, "", "", 1)
        Else
            Alert("Falha ao salvar resouce" + CRLF + oResource:GetLog() )
        EndIf
        oResource:DeleteLastResource()
Return

    EndDo
Return  


...

Âncora
GetCodResourceLog
GetCodResourceLog
GetCodResourceLog
Retorna o código do log de extração do resource

Retorno:

NomeTipoDescrição
nRetNumérico

codigo do log de extração do resource

CodigoDescrição
-3Falha no diretório: #1[crootpath]# Verifique se o caminho é valido!
-2Arquivo precisa ser atualizado porém não conseguiu acesso exclusivo via lockbyname
0Ainda não foi extraído nada
-1Não foi possível efetuar a extração do arquivo de resource, verifique se o arquivo #1[resource]# existe no RPO
1Arquivo extraído com sucesso
2Arquivo já está atualizado


...

Âncora
IsResourceOk
IsResourceOk
IsResourceOk
Retorna se o arquivo de resource está ok, ou seja, presenta presente na pasta
de rootpath e atualizado em relação ao RPO

Retorno

NomeTipoDescrição
lRetlogicoVariável de controle que indica se o resource está ok


...

Âncora
GetLog
GetLog
GetLog
Retorna o log definido na classe

Retorno

NomeTipoDescrição
cLogcaractereÚltimo log que foi definido ao extrair um recurso


...

Âncora
GetRootPath
GetRootPath
GetRootPath
Método GetRooPath
Metodo para retornar o caminho padrão de extração do arquivo.
caso Caso a propriedade extensao extensão esteja informada, retorna tb também a extensao extensão como parte do caminho
sempre retorna o caracter . O caractere de barra sempre será retornado no final do caminho

Retorno

NomeTipoDescrição
cRetcaractereCaminho padrão que será utilizado no extract


...

Âncora
SetRootPath
Metodo
SetRootPath
SetRootPath

Método para definir o caminho padrão de extração do arquivo
. O caminho de extração deve ser no servidor a partir da protheus_data

Parâmetros

NomeTipoDescriçãoObrigatório
cRootPathcaracterePasta para definir o caminho padrão para extraçãoX


...

Âncora
GetPathResFile
GetPathResFile
GetPathResFile
Retorna o nome do resource concatenado com o rootpath

Retorno

NomeTipoDescrição
cRetcaractereNome completo do path mais o resource


...

Âncora
NeedReload
Metodo
NeedReload
NeedReload

Método para verificar se o resource precisa ser extraido extraído novamente
@param cMD5, codigo

Parâmetro

NomeTipoDescriçãoObrigatório
cMD5caractereCódigo md5 a ser comparado, caso seja passado não será utilizado

...

o arquivo

...

físico para comparar com o md5 do RPO

...


Retorno

NomeTipoDescrição
lRetlogicoTrue caso precise fazer o reload no arquivo e false caso não precise.


...

Âncora
ExtractOneResource
ExtractOneResource
ExtractOneResource
    metodo Método para extrair um resource do RPO.
    retorna Retorna true apenas caso tenha feito quando a extração ,
    caso foi realizada. Caso tenha retornado false, é necessário utilizar o metodo método isResourceOk
    para Para determinar se o resource está disponivel disponível na pasta, junto com o metodo método GetLog e GetCodResourceLog
@param cResource,

Parametro

NomeTipoDescriçãoObrigatório
cResourcecaractereIndica o nome do recurso no repositório a ser salvo em disco

...

pode ser passado junto com a

...

extensãoX

...

cExtensaocaractere

Extensão do arquivo a ser

...

extraído, caso seja

...

passado não deve ser passado no resource,
a extensão será utilizada com uma pasta na

...

extração do arquivo.

...


cMD5caractereCódigo md5 do

...

arquivo, caso seja passado não irá utilizar o md5 do arquivo

...

físico

...

será utilizado esse

...

parâmetro para determinar se o arquivo precisa ser atualizado

...




Parâmetro interno,

...

não deve ser utilizado.

Retorno

NomeTipoDescrição
lRetlogicoRetorna true caso tenha

...

extraído com sucesso o arquivo

...

retorna false caso não tenha feito a extração,

...

se o recurso já está na pasta rootpath definida, tb irá retornar false


...

Âncora
DeleteLastResource
DeleteLastResource
DeleteLastResource
    Deleta o resource extraído
@return nRet, anteriormente. Se o arquivo já não existir no diretório, retorna 0

Retorno

NomeTipoDescrição
nRetnuméricoCódigo de retorno da função FErase
retorna 0 caso tenha conseguido deletar, ou -1 caso não tenha deletado