ERRO NO HB_ZIPFILE

[PauloPJ]

Ola pessoal eu denovo.

Estou com problemas na execuçao do HB_ZIPFILE()

Quando gero com apenas um arquivo gera o arquivo zerado

exemplo:

HB_ZIPFILE("TESTE.ZIP","TESTE.TXT")

Quando gero com ARRAY ou passo algum parametro a mais como tipo de compactação, etc.. da execucao do programa e precisa ser fechado e paraliza o processo.

EXEMPLO

HB_ZIPFILE("TESTE.ZIP",{"TESTE.TXT","TESTE1.TXT"},9)

Não sei se é versao da HBZIP.LIB Ou falta alguma coisa .

já peguei varios exemplos no forum porem todos eu tenho o mesmo problema.

Socorro....

Obrigado a Todos que puder colaborar

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[PauloPJ]

Ola pessoal eu denovo.

Estou com problemas na execuçao do HB_ZIPFILE()

Quando gero com apenas um arquivo gera o arquivo zerado

exemplo:

HB_ZIPFILE("TESTE.ZIP","TESTE.TXT")

Quando gero com ARRAY ou passo algum parametro a mais como tipo de compactação, etc.. da execucao do programa e precisa ser fechado e paraliza o processo.

EXEMPLO

HB_ZIPFILE("TESTE.ZIP",{"TESTE.TXT","TESTE1.TXT"},9)

Não sei se é versao da HBZIP.LIB Ou falta alguma coisa .

já peguei varios exemplos no forum porem todos eu tenho o mesmo problema.

Socorro....

Obrigado a Todos que puder colaborar

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[kapiaba]

tente assim...

aDir := Directory( "C:\VENDAS\TEST*.TXT" )

FOR nI=1 TO LEN( aDir )

HB_ZIPFILE( "C:\VENDAS\TESTE.ZIP" , "C:\VENDAS\"+aDir[nI][1] , , , , , .F. )

NEXT nI

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 17/05/2012 10:32:37

[PauloPJ]

citação:

tente assim...

aDir := Directory( "C:\VENDAS\TEST*.TXT" )

FOR nI=1 TO LEN( aDir )

HB_ZIPFILE( "C:\VENDAS\TESTE.ZIP" , "C:\VENDAS\"+aDir[nI][1] , , , , , .F. )

NEXT nI

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 17/05/2012 10:32:37

---

id=quote>id=quote>

VALEU JOÃO

OBRIGADO PELA AJUDA COMO SEMPRE VOÇE SEMPRE DISPOSTO A AJUDAR.

OLHA SÓ EU JA TESTEI DE DIVERSAS MANEIRAS PASSANDO O CAMINHO COMPLETO DOS ARQUIVOS, SETANDO O DIRETORIO , ETC..

ACHO QUE É ALGUM PROBLEMA NAS BIBLIOTECAS DO MEU xHARBOUR OU FIVEWIN, PORQUE DA ERRO INTERNO SE EU NÃO PASSAR PAÂMETRO ALGUM COMO VOCE POSTOU ,,,,.F.) ELE EXECUTA SEM ERROS, POREM GERA O ARQUIVO ZERADO, E SE EU PASSAR ALGUM PARAMETRO A MAIS DO QUE OS DOIS ARQUIVOS DA ERRO DE EXECUCAO AQUELA TELINHA DIZENDO QUE O PROGRAMA EMCONTROU UM PROBLEMA E PRECISA SE FECHADO..

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[kapiaba]

\xHarbour121\lib\rtl.lib +

\xHarbour121\lib\vm.lib +

\xHarbour121\lib\ct.lib +

\xHarbour121\lib\gtgui.lib +

\xHarbour121\lib\lang.lib +

\xHarbour121\lib\macro.lib +

\xHarbour121\lib\rdd.lib +

\xHarbour121\lib\dbfntx.lib +

\xHarbour121\lib\dbfcdx.lib +

\xHarbour121\lib\dbffpt.lib +

\xHarbour121\lib\hbsix.lib +

\xHarbour121\lib\Debug.lib +

\xHarbour121\lib\common.lib +

\xHarbour121\lib\pp.lib +

\xHarbour121\lib\HbComm.lib +

\xHarbour121\lib\pcrepos.lib +

\xHarbour121\lib\codepage.Lib +

\xHarbour121\lib\cw32.lib +

\xHarbour121\lib\HbZip.lib +

\xHarbour121\lib\ZLib.lib +

\xHarbour121\lib\Tip.lib +

\Borland\Bcc55\lib\cw32.lib +

\Borland\Bcc55\lib\import32.lib +

\Borland\Bcc55\lib\uuid.lib +

\Borland\Bcc55\lib\psdk\odbc32.lib +

\Borland\Bcc55\lib\psdk\rasapi32.lib +

\Borland\Bcc55\lib\psdk\nddeapi.lib +

\Borland\Bcc55\lib\psdk\msimg32.lib +

\Borland\Bcc55\lib\psdk\psapi.lib +

\Borland\Bcc55\lib\psdk\Shell32.lib +

\Borland\Bcc55\lib\psdk\iphlpapi.lib,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[PauloPJ]

SHOW...

É ISSO QUE EU PRECISAVA

MAS...

ALGUMAS DESTAS BIBLIOTECAS EU NAO TENHO OU PODE ESTAR CORROMPIDA

EXEMPLO

ZLIB.LIB

VC TEM COMO ME PASSAR UM ZIP COM ESTAS BIBLIOTECAS QUE VC TEM, AI EU COMPARO COM AS MINHAS.

pjinformatica@terra.com.br

Valeu

Paulo Junior

PJ Informática LTDA

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[kapiaba]

O problema, é que a versão do meu XHARBOUR não é compativel com a sua, então se eu enviar, pode não funcionar.

Ideal é que voce procure aqui na seção de utilidades do fivewin.

http://forums.fivetechsupport.com/viewforum.php?f=17&start=0

Abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

Quando sua pasta estiver assim, voce estará completo.

Pasta de c:\xHarbour\lib

29/12/2004 10:29 46.080 ACE32.LIB

21/06/2002 23:24 24.064 BCC640.LIB

30/12/2003 09:31 30.208 BCC640MT.LIB

02/04/2006 22:34 31.744 codepage.lib

02/04/2006 22:34 36.352 common.lib

15/07/2007 19:44 173.568 ct.lib

06/06/2005 22:31 174.592 ctmt.lib

02/04/2006 22:34 62.464 dbfcdx.lib

06/06/2005 22:30 58.880 DBFCDXMT.LIB

19/12/2005 18:05 5.632 dbfdbt.lib

06/06/2005 22:30 6.144 DBFDBTMT.LIB

02/04/2006 22:34 29.184 dbffpt.lib

06/06/2005 22:30 17.408 DBFFPTMT.LIB

02/04/2006 22:34 50.688 dbfntx.lib

06/06/2005 22:30 34.304 DBFNTXMT.LIB

02/04/2006 22:34 147.968 debug.lib

25/03/2005 14:27 74.752 DESIGN.LIB

06/06/2005 22:24 1.536 DLLMAIN.LIB

06/06/2005 22:23 7.680 GTCGI.LIB

15/07/2007 19:44 6.656 gtgui.lib

06/06/2005 22:23 13.824 GTNUL.LIB

06/06/2005 22:23 8.704 GTPCA.LIB

06/06/2005 22:23 7.680 GTSTD.LIB

02/04/2006 22:34 20.480 gtwin.lib

06/06/2005 22:23 34.304 GTWVT.LIB

25/03/2005 14:30 152.064 GTWVW.LIB

06/06/2005 22:37 85.716 harbour.lib

06/06/2005 22:42 55.808 HBCC.LIB

29/12/2005 15:20 18.432 hbcomm.lib

27/10/2003 15:47 2.036 hbcommdll.lib

18/11/2004 08:14 145.408 HBCT.LIB

18/11/2004 08:15 155.136 HBCTMT.LIB

06/06/2005 22:24 19.968 HBODBC.LIB

25/03/2005 13:32 73.018 HBODBCMT.LIB

02/04/2006 22:34 7.168 hbsix.lib

18/11/2004 08:14 65.024 HBTIP.LIB

18/11/2004 08:15 65.536 HBTIPMT.LIB

03/04/2006 00:47 679.936 hbzip.lib

15/07/2007 19:43 14.848 hsx.lib

25/03/2005 14:27 105.984 HTML.LIB

09/01/2007 10:42 37.376 HWL.LIB

25/03/2005 14:27 17.408 INTERNET.LIB

02/04/2006 22:34 175.104 lang.lib

25/03/2005 14:27 36.864 LIBMISC.LIB

25/03/2005 14:28 164.864 LIBNF.LIB

02/04/2006 22:34 83.968 macro.lib

06/06/2005 22:29 82.944 MACROMT.LIB

25/03/2005 15:25 41.472 MYSQL.LIB

06/06/2005 22:24 4.608 NULSYS.LIB

06/06/2005 22:20 119.296 OPTCON.LIB

06/06/2005 22:26 123.392 OPTCONMT.LIB

06/06/2005 22:20 118.784 OPTGUI.LIB

06/06/2005 22:26 122.880 OPTGUIMT.LIB

02/04/2006 22:35 267.264 pcrepos.lib

02/04/2006 22:34 90.624 pp.lib

06/06/2005 22:26 89.088 PPMT.LIB

02/04/2006 22:34 112.640 rdd.lib

02/04/2006 23:20 69.632 rddads.lib

06/06/2005 22:29 106.496 RDDMT.LIB

02/04/2006 22:34 853.504 rtl.lib

06/06/2005 22:29 893.440 RTLMT.LIB

06/06/2005 22:22 11.776 SAMPLES.LIB

06/06/2005 22:30 12.288 samplesmt.lib

25/03/2005 14:28 17.408 TELEPATH.LIB

15/07/2007 19:43 146.432 tip.lib

06/06/2005 22:30 70.656 tipmt.lib

06/03/2009 13:30 56.832 TPDFX.LIB

15/07/2007 19:43 48.640 usrrdd.lib

03/04/2006 00:43 364.032 vm.lib

06/06/2005 22:26 346.112 VMMT.LIB

25/03/2005 13:41 202.624 WAPILIB.LIB

25/03/2005 14:29 488.960 WHAT32.LIB

25/03/2005 14:29 318.976 WHOO.LIB

25/03/2005 14:29 325.120 WOOPGUI.LIB

25/03/2005 14:30 147.968 wvtgui.lib

25/03/2005 14:30 81.920 XWT.LIB

23/08/2008 12:16 60.928 ZLIB.LIB

77 arquivo(s) 9.063.298 bytes

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 17/05/2012 12:58:50

[PauloPJ]

OK JOÃO

Fiz o que voce falou

baixei o ZLIB.LIB e as outras libs que eu não tinha anexei ao sistema.

Parou de dar erro , mas tb não funciona o arquivo fica sempre zerado

O HB_ZIPFILE() retorna .f.

VOU PASSAR COMO ESTOU FAZENDO

XRET:=HB_ZIPFILE( "C:\SAPE_WIN\TESTE.ZIP" , "C:\SAPE_WIN\SAPE.EXE" , , , , , .F. )

Paulo Junior

PJ Informática LTDA

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[kapiaba]

Veja se ajuda...

//

// $Id: testzip.prg,v 1.6 2003/09/15 02:57:10 paultucker Exp $

//

// Requires samples.lib for gauge support

//

#include "common.ch"

#include "setcurs.ch"

proc Main()

Local aFiles, aGauge, nLen, aDir

Local aSaveFiles

Local aGaugeFile

// This is the 'safe' thing to do until Alert() is given focus.

SetMode( 50,80 )

ZipCreate( "TEST.ZIP", "testzip.prg" )

aFiles := {"testzip.prg",GetEnv("windir")+ "\win.ini"}

nLen := Len(afiles)

ZipCreate( "TEST1.ZIP", aFiles[2] )

ZipCreate( "TEST2.ZIP", aFiles, 8, {|cFile,nPos| qout("Added " + cFile)})

// something here is not clipper compatible

// (These can be removed after the box drawing is corrected)

?;?;?

?

?;?;?

aGauge := GaugeNew( row()-6, 5, row()-4,74 , "W/B", "W+/B" ,'²')

GaugeDisplay( aGauge )

aGaugeFile := GaugeNew( row()+2, 5, row()+4,74 , "W/B", "W+/B" ,'²')

GaugeDisplay( aGaugeFile )

aFiles := {}

aDir := Directory( "*.prg" )

Aeval( aDir, {|a| aadd( aFiles, a[1]) })

/* lets add an new bigger files on this example*/

aDir := Directory( "*.map" )

Aeval( aDir, {|a| aadd( aFiles, a[1]) })

aDir := Directory( "*.c" )

Aeval( aDir, {|a| aadd( aFiles, a[1]) })

nLen := Len(afiles)

// Lets save aFile Array for later usage

aSaveFiles := aFiles

set cursor off

ZipCreate("test3.zip", aFiles, 8, ;

{|cFile,nPos| GaugeUpdate(aGauge,nPos/nLen) },,'hello',,,;

{|nPos,nCur| GaugeUpdate(aGaugeFile,nPos/nCur)})

set cursor on

? str( nlen ) +" files were added to the zip"

// method 1

aFiles := hb_GetFilesInZip( "test3.zip" )

if aFiles != NIL

? str( Len( aFiles ) ) + " files are in the zip"

endif

// or simpler, method 2

? str( hb_GetFileCount("test3.zip" ) ) + " files using alternate method"

ZipHasPassword( "TEST1.ZIP" )

ZipHasPassword( "test3.zip" )

//ok, now we create an file on an floppy

? "Put a formatted Floppy/Zip disk in drive A: and press any key - (ESC) to skip"

? "Existing files will not be deleted!"

Inkey( 0 )

if lastkey() != 27

Cls

// no need for all the qout's after a cls.

aGauge := GaugeNew( row(), 5, row()+2,74 , "W/B", "W+/B" ,'²')

GaugeDisplay( aGauge )

?;?

aGaugeFile := GaugeNew( row(), 5, row()+2,74 , "W/B", "W+/B" ,'²')

GaugeDisplay( aGaugeFile )

HB_SETDISKZIP( { | x | Alert( "Please insert disk no " + Str( x , 3 ) ) } )

set cursor off

ZipCreateToFloppy("test4.zip", aSaveFiles, 9, ;

{|cFile,nPos| GaugeUpdate(aGauge,nPos/nLen) },,'hello',,,;

{|nPos,nCur| GaugeUpdate(aGaugeFile,nPos/nCur)})

set cursor on

endif

function ZipCreate(cFile, uContents, nLevel, bUpdate, lOverwrite, password,;

lPath, lDrive, bFileUpdate)

Local lRet

Default lOverwrite to .t.

Default lPath to .t.

IF ( lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite,;

password, lPath, lDrive, bFileUpdate) )

? cFile + " was successfully created"

ENDIF

Return lRet

function ZipCreateToFloppy(cFile, uContents, nLevel, bUpdate, lOverwrite, password,;

lPath, lDrive, bFileUpdate)

Local lRet

Default lOverwrite to .t.

Default lPath to .t.

IF ( lRet := HB_ZIPFILEBYPKSPAN ( "a:\" + cFile, uContents, nLevel, bUpdate, lOverwrite,;

password, lPath, lDrive, bFileUpdate) )

? cFile + " was successfully created"

ENDIF

Return lRet

Function ZipHasPassword( cFile )

Local lRet

? cFile + " has " + iif(lRet := hb_ZipWithPassword(cFile),"a","no" )+ " password"

Return lRet

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[Ladinilson]

Tive o mesmo problema do arquivo ficar zerado, depois de exaustivas procuras e testes pois o programa fazia um backup do movimento anterior ao ser iniciado na primeira máquina, deistir e fiz um programinha com o ZIPFILE (16 bits) mesmo para ficar no início do Windows

FWH 8.1 / xHB 1.1.0/ Pelles

[PauloPJ]

citação:

Tive o mesmo problema do arquivo ficar zerado, depois de exaustivas procuras e testes pois o programa fazia um backup do movimento anterior ao ser iniciado na primeira máquina, deistir e fiz um programinha com o ZIPFILE (16 bits) mesmo para ficar no início do Windows

FWH 8.1 / xHB 1.1.0/ Pelles

---

id=quote>id=quote>

ESTOU QUASE FAZENDO ISSO COLEGA..

Já perdi muito tempo com isso

a rotina acima que o João postou é legal mas não tenho o Samples.lib ???

Preciso da sintaxy para usar o zipfile .

Obrigado pela colaboração

Paulo Junior

PJ Informática LTDA

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[vagner]

Olá,

Uso essa rotina já faz um tempinho, e sempre da certo com xharbour

/*********************************************************

* Função : Backup - Função para Efetuar os backups dos arquivos

* Programador : Vagner

* Data : 22/07/2008 - 14:00:09

* Revisado em : 19/05/2010 - 11:39:16 Por : vagner

* Parâmetros :

* lDia - Se é o backup diário não irá perguntar onde gravar

**********************************************************/

Func Backup(lDia)

Local cDireCopia

Local cDireTempo

Local cDiret

Local cSay,cVer,cRev

Local oBmp1,oBrush,oFont,oFon0,oFon1

Local hBmp1

Default lDia := .F.

cDireTempo := oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretSegur

If Empty(cDireTempo) ; cDireTempo := GetEnv("TMP") ; Endif

If Right( cDireTempo, 1 ) == "\" ; cDireTempo = SubStr( cDireTempo, 1, Len( cDireTempo ) - 1 ) ; Endif

If !Empty(cDireTempo)

If !lIsDir(cDireTempo) ; cDireTempo := GetWinDir() ; Endif

Else

cDireTempo := GetWinDir()

Endif

lMkDir(cDireTempo)

If !lDia

Ini oIni File oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cArquiConfi

Get cDiret Section "Backup" Entry "Diretório" Of oIni Default oSistema:cServidor__+oSistema:cDiretPadra

EndIni

cDireCopia := cGetDir32("Escolha onde Gravar !",cDiret)

If Empty(cDireCopia)

MsgStop("Você precisa escolher onde quer gravar."+CRLF+"Backup Cancelado.")

Retu(.T.)

Endif

Else

Define Brush oBrush Null

Define BitMap oBmp1 Name "Reorganiza"

Define Font oFont Name "Courier New" Size 0,-16 Bold

Define Font oFon0 Name "Palatino Linotype" Size 0,-24 Bold

Define Font oFon1 Name "Courier New" Size 0,-20 Bold

Define Dialog oDlgBackup From 000,000 To 230,452 Pixel Style WS_POPUP Title "Backup" Brush oBrush

cSay := AllTrim(oSistema:cNomeSystem+", Hoje : "+Dtoc(Date()))

cVer := AllTrim("Versão : "+oSistema:cVersSystem)

cRev := AllTrim("Revisão : "+oSistema:cReviSystem)

@ 00,000 VSay cSay Pixel Size 220,14 Font oFont Color {nRgb(080,080,100),nRgb(158,158,198)} Center Of oDlgBackup

@ 20,000 VSay cVer Pixel Size 220,18 Font oFon0 Color {nRgb(080,080,100),nRgb(158,158,198)} Center Of oDlgBackup

@ 40,000 VSay cRev Pixel Size 220,18 Font oFon0 Color {nRgb(080,080,100),nRgb(158,158,198)} Center Of oDlgBackup

@ 60,041 VSay "Efetuando Backup Diário !" Pixel Size 167,14 Font oFon1 Color {nRgb(080,080,100),nRgb(158,158,198)} Center Of oDlgBackup

@ 80,041 VSay "Por Favor Aguarde !" Pixel Size 167,14 Font oFon1 Color {nRgb(080,080,100),nRgb(158,158,198)} Center Of oDlgBackup

Activate Dialog oDlgBackup Center NoModal On Init PoeBarraDialog(oDlgBackup) On Paint(AbPaint(oDlgBackup:hDc,000,000,(hBmp1 := AbrePng(oDlgBackup:hDc,oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretGrafi+"Fundo.Png",236,456)),240) )

SysRefresh()

cDireCopia := oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretSegur

Endif

DbSelectArea(oSistema:cArq__Sys0)

Copy To (oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui+"Sys0.Dbf")

aFiles := Directory(oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui+"*.Dbf")

aFil := {}

AEval(aFiles,{|x| Iif(!File(".\Dados\"+x[1]),AaDd(aFil,x),)})

aFiles := Directory(oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui+"*.Sys")

AEval(aFiles,{|x| AaDd(aFil,x)})

aFiles := Directory(oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui+"*.Cfg")

AEval(aFiles,{|x| AaDd(aFil,x)})

aFiles := {}

aFiles := AClone(aFil)

If !lDia ; oWnd:oMsgBar:MeterOn(Len(aFiles),430,"Copiando os Arquivos.",.T.)

Else ; oDlgBackup:oMsgBar:MeterOn(Len(aFiles),430,"Copiando os Arquivos.",.T.)

Endif

nPos := 0

Aeval(aFiles, {|aFile| Iif(VerificaArquivoTemporario(aFile[1],oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui,"Normal"),CopiaParaTemporario(aFile[1],cDireTempo+"\",++nPos,oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cDiretArqui,lDia,aFile[2]/8192),) } )

If !lDia ; oWnd:oMsgBar:MeterOff()

Else ; oDlgBackup:oMsgBar:MeterOff()

Endif

aFiles := Directory(".\Dados\*.Dbf")

If !lDia ; oWnd:oMsgBar:MeterOn(Len(aFiles),430,"Copiando os Arquivos.",.T.)

Else ; oDlgBackup:oMsgBar:MeterOn(Len(aFiles),430,"Copiando os Arquivos.",.T.)

Endif

nPos := 0

Aeval(aFiles, {|aFile| Iif(VerificaArquivoTemporario(aFile[1],".\Dados\","Dados"),CopiaParaTemporario(aFile[1],cDireTempo+"\",++nPos,".\Dados\",lDia,aFile[2]/8192),) } )

If !lDia ; oWnd:oMsgBar:MeterOff()

Else ; oDlgBackup:oMsgBar:MeterOff()

Endif

aFiles := Directory(cDireTempo+"\*.Dbf")

aFile := {}

Aeval(aFiles, {|aFil| AaDd(aFile,cDireTempo+"\"+aFil[1]) } )

cArq := oSistema:cNomeSystem+DtoS(Date())+Left(StrTran(Time(),":",""),4)

If !lDia

oWnd:oMsgBar:MeterOn(Len(aFile),430,"Compactando os Arquivos.")

nPos := 0

If ZipCreate( cDireCopia+"\"+cArq, aFile,8, {|cFile,nAt| (oWnd:oMsgBar:nAnter2 := 0,oWnd:oMsgBar:cMetTexto2 := AllTrim(cFile),oWnd:oMsgBar:MeterSet((nPos := nAt),100)) }, , , , ,{|nQual,nTotal| (AaDd(aTest,{nQual,nTotal}),oWnd:oMsgBar:nTotal2 := nTotal,oWnd:oMsgBar:MeterSet(nPos,nQual)) })

MsgInfo("Copia Realizada Com Sucesso.","Atenção !!")

Endif

oWnd:oMsgBar:MeterOff()

Else

oDlgBackup:oMsgBar:MeterOn(Len(aFile),430,"Compactando os Arquivos.",.T.)

nPos := 0

aTest := {}

ZipCreate( cDireCopia+"\"+cArq, aFile,8, {|cFile,nAt| (oDlgBackup:oMsgBar:nAnter2 := 0,oDlgBackup:oMsgBar:cMetTexto2 := AllTrim(cFile),oDlgBackup:oMsgBar:MeterSet((nPos := nAt),100)) }, , , , ,{|nQual,nTotal| (AaDd(aTest,{nQual,nTotal}),oDlgBackup:oMsgBar:nTotal2 := nTotal,oDlgBackup:oMsgBar:MeterSet(nPos,nQual)) })

oDlgBackup:oMsgBar:MeterOff()

Endif

If !lDia ; oWnd:oMsgBar:MeterOn(Len(aFile),430,"Eliminando Arquivos Temporários.")

Else ; oDlgBackup:oMsgBar:MeterOn(Len(aFile),430,"Eliminando Arquivos Temporários.")

Endif

For nX := 1 To Len(aFile)

If !lDia ; oWnd:oMsgBar:MeterSet(nX)

Else ; oDlgBackup:oMsgBar:MeterSet(nX)

Endif

cFile := aFile[nX]

FErase(cFile)

Next

If !lDia ; oWnd:oMsgBar:MeterOff()

Else ; oDlgBackup:oMsgBar:MeterOff()

Endif

If !lDia

Ini oIni File oSistema:cServidor__+oSistema:cDiretPadra+oSistema:cArquiConfi

Set Section "Backup" Entry "Diretório" To cDireCopia Of oIni

EndIni

Else

oDlgBackup:End()

oBrush:End()

oFont:End()

oFon0:End()

oFon1:End()

DeleteObject(hBmp1)

Endif

If !lDia

Close Data

AbreArquivos()

Endif

Retu(.T.)

/*********************************************************

* Função : PoeBarraDialog - Funcao para colocar a barra de mensagem na dialog de copias

* Programador : Vagner

* Data : 14/03/2011 - 09:19:17 Por : Vagner

* Revisado em : 16/03/2011 - 08:20:29 Por : Vagner

* Parâmetros :

* oDlg - Dialog para colcoar a Barra

* cMsg - Mensgem para colocar default ""

* nAlt - Altura da Barra Defalt 36

**********************************************************/

Func PoeBarraDialog(oDlg,cMsg,nAlt)

Default cMsg := ""

Default nAlt := 36

Set VMessage Of oDlg To "" Vista Dialog Altura nAlt

Retu(Nil)

/*********************************************************

* Função : VerificaArquivoTemporario - Função para Verificar se houve mudança no arquivo

* Data : 08/11/2011 - 15:12:52 Por : Vagner

* Revisado em : 08/11/2011 - 15:12:55 Por : Vagner

* Parâmetros :

* cFile - Arquivo

* cDire - Diretório de Onde copiar

* cSess - Sessão

**********************************************************/

Static Func VerificaArquivoTemporario(cFile,cDire,cSess)

Local cArqu := ""

Local cNew_ := ""

Local lReto := .F.

Local oIni

Ini oIni File oSistema:cServidor__+oSistema:cDiretPadra+"CopiaArquivo.Cfg"

Get cArqu Section cSess Entry cFile Of oIni Default ""

EndIni

If (cNew_ := HB_MD5File(cDire+cFile)) != cArqu .or. Empty(cArqu)

Ini oIni File oSistema:cServidor__+oSistema:cDiretPadra+"CopiaArquivo.Cfg"

Set Section cSess Entry cFile To cNew_ Of oIni

EndIni

lReto := .T.

Endif

Retu(lReto)

/*********************************************************

* Função : CopiaparaTemporario - Função para Copiar os Arquivos para um Diretório Temporário

* Programador : Vagner

* Data : 22/07/2008 - 14:00:09

* Revisado em : 19/05/2010 - 11:54:32 Por : vagner

* Parâmetros :

* cFile - Arquivo

* cTemp - Diretório Temporário

* nPosi - Arquivo Atual para o Meter

* cDire - Diretório de Onde copiar

* lDiar - Se é diário não colocar a barra

* nQtde - Quantidade de bits transferido

**********************************************************/

Static Func CopiaparaTemporario(cFile,cTemp,nPosi,cDire,lDiar,nQtde)

Local oObjMeter := Iif(lDiar,oDlgBackup:oMsgBar,oWnd:oMsgBar)

Local nCop := 0

oObjMeter:nTotal2 := nQtde

oObjMeter:nAnter2 := 0

oObjMeter:cMetTexto2 := AllTrim(cFile) //"Copiando os Registros"

oObjMeter:MeterSet(nPosi,0)

__COPYFILE( cDire+cFile , cTemp+cFile , {|| oObjMeter:MeterSet(nPosi,++nCop) })

Retu(.T.)

/*********************************************************

* Função : ZipCreate - Função para Criar o Zip

* Programador : Vagner

* Data : 22/07/2008 - 14:00:09

* Revisado em : 22/07/2008 - 14:00:11 Por : vagner

* Parâmetros : Direto da Função

**********************************************************/

Static Func ZipCreate(cFile, uContents, nLevel, bUpdate, lOverwrite, password,lPath, lDrive, bFileUpdate)

Local lRet

Default lOverwrite := .t.

Default lPath := .t.

lRet := HB_ZIPFILE( cFile, uContents, nLevel, bUpdate, lOverwrite,password, lPath, lDrive, bFileUpdate)

Return(lRet)

id=code>id=code>

Vagner Wirts

"Ele não sabendo que era impossível, foi lá e fez"

[kapiaba]

Eu uso este:

http://www.fivewin.com.br/exibedicas.asp?id=1052

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

Este do pessoal do forum inter, disseram q é muito bom.

Teste:

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=20666

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[PauloPJ]

OLA GALERA

ACHO QUE O PROBLEMA É A MINHA VERSAO DO XHARBOUR

JA TENTEI TODOS OS EXEMPLOS QUE POSTARAM

NENHUM FUNCIONA

DA ERRO DE COMPILACAO

EM FIM ... VOU TER QUE TROCAR A VERSAO SÓ NAO SEI COMO

SE É SIMPLESMENTE TROCAR OS ARQUIVOS DA PASTA OU TEM ALGUMA COISA A FAZER NO XDEV.

PECO AJUDA, NÃO TAO EXPERIENTE EM FIVEWIN. APENAS A UM ANO.

OBRIGADO NOVAMENTE

Paulo Junior

PJ Informática LTDA

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[PauloPJ]

OLHANDO OUTROS TOPICOS VI QUE O PROBLEMA PODE SER A VERSAO DO MEU XHARBOUR POIS TODOS OS EXEMPLOS SEMPRE É MENCIONADO A VERSAO 1.2.1 E A MINHA É A 1.1.0

PRECISO ACHAR O XHARBOUR 1.2.1 PARA BAIXAR

SÓ ACHO EXEMPLOS E CONTRIBUICOES

PRECISO DO COMPILADOR.

ALGUEM PODE ME AJUDAR POR FAVOR...

OBRIGADO...

Paulo Junior

PJ Informática LTDA

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

[kapiaba]

Onde Baixar a ultima versão do XHARBOUR

Versão Open Source (grátis)

Windows...

http://www.xharbour.org/index.asp?page=download/windows/binaries_win

Linux...

http://www.xharbour.org/index.asp?page=download/linux/binaries_lin

xBase em geral/Pascal/Delphi 7

*----------------------------------------

Somos produto da soma de nossa forma de pensar e agir, todos os dias.

dr.microso@hotmail.com

harbour-and-xharbour-builds

http://code.google.com/p/harbour-and-xharbour-builds/downloads/list?can=1&q=XHARBOUR

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe