Pessoal, bom dia!! Estou tentando utlizar este exemplo no procedure editor, e está dando o seguinte erro: Impossível localizar classe ou interface net.progress.encode.gzip.Zlib. (12886) ** Nao entendi a linha 13. (196) PHP: /*------------------------------------------------------------------------ File : testZlib.p Purpose : Test of compress/uncompress using Zlib library wrapper. Author(s) : m.edu <marian.edu@ganimede.ro> Created : Thu Mar 27 15:05:04 CET 2014 Notes : ----------------------------------------------------------------------*/routine-level on error undo, throw./* *************************** Main Block *************************** */using net.progress.encode.gzip.Zlib.define variable numIter as integer no-undo.define variable mpData as memptr no-undo.define variable lcData as longchar no-undo./* clean-up, only for development to reload prototype procedure */delete object Zlib:getInstance() no-error./* compress file content using in-memory compression */copy-lob from file 'test/zlib.h' to lcData no-convert.mpData = Zlib:getInstance():compress(lcData).message 'in-memory compress' skip(2) 'initial: ' length(lcData, 'raw') skip 'compressed: ' get-size(mpData) view-as alert-box./* uncompress back- in-memory */mpData = Zlib:getInstance():uncompress(mpData).copy-lob mpData to file 'test/zlib-new.h'./* compress file, default 100kb working buffer */Zlib:getInstance(102400):compressFile('test/zlib.h', 'test/zlib.h.gz', true)./* compress file, 10kb working buffer */Zlib:getInstance(10240):compressFile('test/zlib.pdf', 'test/zlib.pdf.gz', true)./* uncompress back file */Zlib:getInstance():uncompressFile('test/zlib.pdf.gz', 'test/zlib-new.pdf', true).message 'done' view-as alert-box.catch e as Progress.Lang.Error : message 'error' skip e:getmessage(1) view-as alert-box. end catch.finally: set-size(mpData) = 0.end.
Anderson, por curiosidade resolvi pesquisar sobre seu post, e encontrei esse site https://sourceforge.net/projects/zlib4gl/#sthash.MfXWevsx.dpuf baixei o zip com os programas e consegui reproduzir o seu erro; basta apontar o diretório "...\zip\src" no propath. Feito isso, ajustei o programa o erro parou, porem ao executar deu erro "not load zlib1.dll". Vou continuar com os testes em outra oportunidade, pois estou meio sem tempo.
Bom dia bon.junior, muito obrigado por sua atenção e vontade de ajudar. Acabei resolvendo o problema. Faltava adicionar o zlib em meu PROPATCH, feito isso resolvi o problema. Sobre o erro de não pode carregar a dll, basta fazer o download deste arquivo, em anexo, e adiciona-lo dentro do diretório bin do 4gl. O meu fica em: C:\OES102b\bin Abraço e muito obrigado.