Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
31 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 31 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7019 usuários registrados
O último usuário registrado atende pelo nome de ricardomagalhaes

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Rotina ZIP não Substitui os Arquivos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 11/3/2010, 08:00

Olá Estou criando um Sistema de Altualização neste sistema eu fasso ele Baixar Por FTP um Arquivo ZIP.e Usando uma Rotina eu extraio mas o problema é que quando extraio em um directorio vazio ele extrai normal mas quando tempo extrai na pasta do sistema ele simplesmente não substitui os arquivos?

Rotina
Código:
Lparameters lArquivo, LDestino, lArquivoNome
*!* Validando propiedades antes de Iniciar
Do Case
Case Empty(lArquivo)=.T. Or File(lArquivo)=.F.
   =Messagebox("O Arquivo não foi Encontrado.",0+16+0,'Falta de Arquivo')
   Return 0
Case File(Sys(5) + Curdir() + 'aUnZip32.dll')=.F.
   =Messagebox('Não Foi Encontrado o Arquivo aUnZip32.dll',0+16+0,'Falta de Arquivo')
   Return 0
Otherwise
   Set Step On
*!* Declarando metodos de la API de Windows
   Private HWnd
   Declare Integer GetActiveWindow In win32api
   HWnd = GetActiveWindow()
   LTempFolder = Getenv("USERPROFILE") + "\LTFiles\Game\" &&---> Pasta para Armazenamento Temporario de Arquivos
   Thisform.StasGeral.Caption = "Aguarde..."
*!* Declarando metodos y propiedades de la API aUnZIP32.dll
   Declare Long addUNZIP In aunzip32.Dll
   Declare Integer addUNZIP_Abort In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_ArchiveName In aunzip32.Dll String filename
   Declare Integer addUNZIP_Decrypt In aunzip32.Dll String cPassword
   Declare Integer addUNZIP_DisplayComment In aunzip32.Dll Integer bFlag
   Declare Integer addUNZIP_Exclude In aunzip32.Dll String Files
   Declare Integer addUNZIP_ExcludeListFile In aunzip32.Dll String cFile
   Declare Integer addUNZIP_ExtractTo In aunzip32.Dll String cPath
   Declare Integer addUNZIP_Freshen In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_GetLastError In aunzip32.Dll
   Declare Integer addUNZIP_GetLastWarning In aunzip32.Dll
   Declare Integer addUNZIP_Include In aunzip32.Dll String Files
   Declare Integer addUNZIP_IncludeListFile In aunzip32.Dll String cFile
   Declare addUNZIP_Initialise In aunzip32.Dll
   Declare Integer addUNZIP_InstallCallback In aunzip32.Dll String funnc
   Declare Integer addUNZIP_Overwrite In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_Register In aunzip32.Dll String cName, Long lNumber
   Declare Integer addUNZIP_ResetDefaults In aunzip32.Dll
   Declare Integer addUNZIP_RestoreAttributes In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_RestoreStructure In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_SetParentWindowHandle In aunzip32.Dll Long HWnd
   Declare Integer addUNZIP_SetWindowHandle In aunzip32.Dll Long HWnd
   Declare Integer addUNZIP_Test In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_ToMemory In aunzip32.Dll String lpStr, Long Uint32
   Declare Integer addUNZIP_Update In aunzip32.Dll Integer iFlag
   Declare Integer addUNZIP_View In aunzip32.Dll Integer bFlag

*!*   Muda a Extensão do Arquivo para Zip
   lArquivoNome = Getwordnum(lArquivoNome,1,".") + '.zip'

   Copy File (lArquivo) To (LTempFolder + lArquivoNome)
*!* Iniciando proceso
   addUNZIP_Initialise()
   addUNZIP_SetParentWindowHandle(_Screen.HWnd)
   addUNZIP_Register(Alltrim("UBS, INC."),600365060)
   addUNZIP_Decrypt("LTUPDATE0255")
   addUNZIP_RestoreStructure(1)
   addUNZIP_Freshen(1)
   addUNZIP_ArchiveName(LTempFolder + lArquivoNome)
   addUNZIP_Include('*.*')
   addUNZIP_Overwrite(.T.)
   addUNZIP_ExtractTo(Alltrim(Fullpath(LDestino)))
   Return addUNZIP()

Endcase

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Marcos Guedes em 11/3/2010, 10:10

Já tentou deletar os arquivos antes?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 11/3/2010, 10:18

Este é o Problema como eu vou deletar os arquivos sendo que não são todos os arquivo e sim alguns arquivos que ser altualizados incluindo pasta e subpastas e assim por diante seria muito complicado porque teria que criar uma rotina que fosse excluindo os arquivos de uma vez.por isso optei pelo Zip assim posso subtituir tudo de uma vez

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Marcos Guedes em 11/3/2010, 10:23

mfelis, eu não estou com tempo para analisar o que há de errado em seu código, agora, então sugiro que experimentes utilizar esta rotina para descompactar o arquivo zip:
[Você precisa estar registrado e conectado para ver este link.]

Tenho utilizado a um tempo e não tive problemas até o momento.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 11/3/2010, 10:24

Uso Está Tb mas o problema é que não cosigo substituir os arquivos.

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por alceu11 em 11/3/2010, 11:56

Sugestao
Eu acho que para ajudar, se nao for incomodo para voce, seria colocar, o form que acessa este ftp, e mostre como baixa e compacta. e as dll unzip.dll,
Se nao temos as dll para testar, se nao temos o form que faz este processo, como poderemos ajudar.
Sera no chutemetro, desgante para quem responde, desgate para voce, que pergunta!!

Qual FTP QUE VC usa ele é gratuito?
o ftp que vc usa e o xpg
[Você precisa estar registrado e conectado para ver este link.]
***********************
O OBJETIVO DE TUDO ISTO ,poderia explicar como vai funcionar este processo:
SERIA?
O seu cliente, tem VARIAS filiais, voce quer que ele nas filiais, compacta a base mais os indices cdx.
Para a matriz, baixar o backup das filiais que estao neste [Você precisa estar registrado e conectado para ver este link.]

Voce esta compactando EM QUE MOMENTO?

E atualiza os dados da matriz,
JA ESTOU COMECANDO A FAZER CHUTOMETRO PQ NAO SEI TODO O PROCESSO
NAO E RUIM ISTO?
Very Happy
PQ SE FOR ISTO, pq nao descompactar tudo, que veio, ja que vales os dados na sua integra.!!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por lardecristo em 11/3/2010, 20:36

Uma observação, se o arquivo estiver sendo usado no instante do Update pode ser que o sistema não esteja conseguindo, porque o mesmo está travado, outra coisa o sistema de descompactação deve ter um método para trazer a lista de arquivos internos, capture os mesmos e depois crie um FOR ou While como queira e vai apagando um a um, ao final do processo faça a descompactação, com isto dará para você verificar se o arquivo está ou não travado, não sei se ajudou mas ficamos no aguardo de uma resposta.

Abraços.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 12/3/2010, 08:53

Irei Explicar com Detalhes:
1 > O Programa de Altualização é Iniciado.
2 > É Feito Verificação de Conexão com a Internet
3 > O Programa Baixa um Arquivo do Servidor que COntém a Versão Nova.
4 > O Programa COmpara as Versões se Diferente Altualiza.
5 > Se Difernete Baixa o Arquivo que Dou o Nome de UpdateFile_Numero da Versão.acp - "Usei a Extensão ACP para Evitar Hackemento.".
6 > O Form Principal Despera o Metodo Descomprimir.
7 > O método Descomprimir Muda a Extensão de ACP para ZIP.
8 > Extrai na pasta Indicada
Obs: O Programa de Altualização Fica Separado do Meu Programa.

O Meu Programa fica na Pasta.Ex: C:\Program Files\MeuProjeto\Element
O Programa de Altualização.Ex: C:\Program Files\MeuProjeto\Patcher

O Problema é que Quando Extrai em uma pasta vazia ele Simplesmente Extrai Normal.Mas se Extrio na Pasta do meu Programa ele Ignorá e Não Substitui os Arquivo.

Quando Crio o Arquivo Zip?
Eu Crio o Arquivo ZIP no Servidor Com o Winrar.Veja:

[Você precisa estar registrado e conectado para ver esta imagem.]

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Marcos Guedes em 12/3/2010, 12:21

Crie um caminho temporário, e verifique se o arquivo realmente está sendo gerado, se estiver correto, então copie os dados deste diretório temporário para diretório onde desejas substituir os arquivos.
Acredito que se você utilizar a rotina que indiquei não terás este problema.
Utiliza os mesmos recursos que seu código utiliza, porém com tratamentos de erros e exceções.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por lardecristo em 12/3/2010, 18:59

mfelis, você leu o meu post, por favor observe o que escrevi, se estiver ocorrendo o que está lá você tem o caminho para resolver o seu problema, o windows não permite substituir um arquivo que está travado ou melhor em uso.
Experimente fazer isso no seu equipamento
1 - faça uma cópia do arquivo do seu sistema zzzz.exe para uma pasta qualquer, mas lembre-se é uma cópia;
2 - abra o sistema na pasta de origem;
3 - agora vá na pasta que você fez a cópia e tem copiar de lá para a pasta de origem novamente.

Obs.: Me desculpe a observação, mas eu já havia entendi que o seu programa era separado, mais um motivo para a explicação dada.
Qualquer dúvida post novamente.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 14/3/2010, 15:03

Eu Tenho Certeza que os Arquivos não estão sendo usados e Marcos estou uzando o método do arquivo Zip para se caso na Minha ALtualização eu Tiver uma Pasta A Mais ou SubPasta e Criar uma Rotina para Verificar as Pasta e Navegalás e Cria-las para ALtualizar Acabaria sendo muito complicado e Lento

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Marcos Guedes em 8/4/2010, 13:39

Ainda com dificuldades neste problema, Marcelo?
Ou já conseguiu solucioná-lo?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por mfelis em 15/4/2010, 09:52

resolvi tive de deletar toda a pasta primeiro usando uma função do windows

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Cleiton Fidelis em 2/5/2010, 22:43

Aproveitando,

Alguem consegue incluir arquivos contidos em sub-pastas usando o azip32.dll ?

Abraços

Cleiton Fidelis
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Rotina ZIP não Substitui os Arquivos

Mensagem por Marcos Guedes em 2/5/2010, 22:58

[Você precisa estar registrado e conectado para ver este link.] escreveu:Aproveitando,

Alguem consegue incluir arquivos contidos em sub-pastas usando o azip32.dll ?

Abraços
Cleiton, posso estar enganado, mas no link que indiquei contém exemplos válidos para compactar sub-pastas.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum