Onde Armazenar E Como É Atualizado O Exe De Um Programa Erp

[adilsonpazzini]

Boa , pessoal , to com uma duvida aqui , pois to migrando hj meu

sistema em Delphi pra Lazarus , e hj estou utilizando uma pasta em um

servidor pra ficar armazanados os EXEs do meu ERP , ai nas estacoes ,

so coloco

o atalho do programa nos desktop , esse atalho no caso vem do

compartilhamento que fica no servidor ,

queria saber se é assim que a maioria faz , ou se é armazado o exe em

cada estacao mesmo , pois como to convertendo de Delphi pra lazarus ,

to quebrando meu sistema em varios EXE´s , ai fiz uma rotina pra

chamar um exe a partir de outro , so que qndo , esta vindo o exe de

outra estacao , essa chamada passa a ser lenta , por ta vindo pela

rede , ai minha duvida seria : existe uma forma melhor pra ser feito

isso , tipo poderia armazenar os exe´s nas estacoes mesmo , assim

ficando mais rapido a chamada deles , e como eu faria com atualizacao

de programa , pra nao acontecer de uma estacao deixar de ser

atualizada ?

quem puder me dar uma ideia , agradeço .

Adilson .

 

[helderlr]

ola

 

eu faco assim

 

coloca o .exe em cada estacao

 

coloco a versao mais atual no servidor

 

no .exe de cada estacao tem uma rotina que checa se a data do .exe da estacao e menor que .exe do servidor

se for menor informo que tem versao nova pra atualizar

 

e mais ou menos isso

[adilsonpazzini]

Entao . isso que eu estava pensando mesmo , mais como é feita a atualizacao nas estacoes , é manualmente , ou vc faz algum programa pra sincronizar as versões ?

 

 

Agradeço sua opnião .

 

Adilson Pazzini

[helderlr]

Ola

 

poderia ser automatico mas fiz manual mesmo

 

quando o .exe da estacao detecta nova versao informa ao usuario e sai .exe

 

o usuario clica em um .exe que copia o .exe do servidor pra estacao

 

eu iria ate mudar pra ser automatico mas agente faz uma coisa e outra e outra e outra,kkkk ai deixa pra depos

 

é simples e funciona e o pessoal nao reclamou ai ja viu

 

abraco

[Italo Giurizzato Junior]

Bom dia a todos,

 

Eu faço algo semelhante, vejam:

 

1. Não utilizo a data do executável pois este me limita a somente uma atualização diária, utilizo a versão do executável, para realizar a comparação.

 

2. A atualização do executável na estação é feita automatica da seguinte forma:

    * O acesso aos módulos ocorre através da execução prévia de um programa "MENU";

    * É esse programa que compara as versões dos executáveis que estão na estação com os que estão no servidor;

    * Se a versão no servidor for a mais recente, o programa realiza a cópia para a estação substituindo o que ali encontra-se.

    * Só depois de tudo comparado e atualizado que o programa "MENU" libera o usuário para escolher qual é o módulo que ele deseja executar.

 

Quando a atualização é critica, peço para o usuário finalizar todos os programas e depois executar o programa "MENU", caso contrario, simplismente disponibilizo a nova versão.

[adilsonpazzini]

obrigado pela ajuda , Italo , queria saber com vc , se essa versao que vc compara , é aquela que fica no proprio exe mesmo , q no caso no proprio delphi tem como versionar o exe , e tambem se vc utliza alguma tabela no banco pra comparacao , e por ultimo , seus modulos estao quebrados em EXE ou DLL . A conversa entre ele fica boa qndo esta local  ..

 

 

Desde ja agradeço .

 

 

Adilson

[Italo Giurizzato Junior]

Adilson,

 

O Delphi tem sim uma forma de "versionar" o executável, não utilizo nenhuma tabela para comparar as versões, os módulos estão quebrados em EXE.

 

Eu penso que se deixarmos trafegar pela rede somente os dados, temos um ganho de performace.

 

Me corrigem se eu estiver errado.

 

Como atribuir uma versão na sua aplicação feita em Delphi:

 

   * Project \ Options aba Version Info

 

Como ler a versão de um executável:

 

function TfrmInfCopiando.GetBuildInfo(Executavel: String): string;
var
 VerInfoSize: DWORD;
 VerInfo: Pointer;
 VerValueSize: DWORD;
 VerValue: PVSFixedFileInfo;
 Dummy: DWORD;
 V1, V2, V3, V4: Word;
begin
 VerInfoSize := GetFileVersionInfoSize(PChar(Executavel), Dummy);
 GetMem(VerInfo, VerInfoSize);
 GetFileVersionInfo(PChar(Executavel), 0, VerInfoSize, VerInfo);
 VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
 with VerValue^ do
  begin
   V1 := dwFileVersionMS shr 16;
   V2 := dwFileVersionMS and $FFFF;
   V3 := dwFileVersionLS shr 16;
   V4 := dwFileVersionLS and $FFFF;
  end;
 FreeMem(VerInfo, VerInfoSize);
 result := FormatFloat('000',v1)+'.'+FormatFloat('000',v2)+'.'+FormatFloat('000',v3)+'.'+FormatFloat('000',v4);
end;

 

 

Como comparar as versões da mesma aplicação, na estação e no servidor:

 

        if (GetBuildInfo(Estacao)<GetBuildInfo(Servidor))
         then begin

             (...)

        end; 

[Alexsander]

Fazemos autoupdate aqui também. Quando há versão nova, basta o usuário sair e entrar de novo. Checamos inclusive MD5.

[adilsonpazzini]

Legal , isso ja resolve meu problema . , pra vc ter uma base , to com EXEs em DELPHI e EXEs em Lazarus , e to convertendo aos poucos . mais como na parte de geracao de relatorios os

componentes pra delphi e melhor , ainda vou usar eles um bom tempo . mais ai posso ir quebrando eles e ir passando aos poucos .

 

Outra coisa Italo , nunca aconteceu por exemplo , de por algum problema da rede ou da maquina onde ficam os exes . a mesma nao conseguir se comunicar , e ai vc acabar

abrindo um exe anterior a versao correta ?

 

E se tiverem mais informacoes a complementar agradeço .

 

Obrigado a todos .

 

 

Adilson Pazzini .

Editado 7 Maio, 2013 por adilsonpazzini

[Italo Giurizzato Junior]

Adilson,

 

Como você pode ver, existem varias soluções, umas mais simples, outras mais sofisticadas, basta agora, você escolher aquela que mais vai de encontro com o que deseja.

 

De uma forma ou de outra, a atualização, na minha opnião, tem que ser automatica.

[adilsonpazzini]

Outra coisa Italo , nunca aconteceu por exemplo , de por algum problema da rede ou da maquina onde ficam os exes . a mesma nao conseguir se comunicar , e ai vc acabar

não atualizando e nao podendo fazer a verificação dos exes e abrir uma versão antiga  ? ou caso nao tenha a conexao . vc nem deixa abrir o exe ?

[Alexsander]

Aqui temos um conceito de "versão mínima"; se não der pra baixar (o sistema tenta 3 vezes) e a versão antiga for aceitável, deixa abrir.

Se a versão for antiga demais, não deixa o usuário sequer fazer login -- e ao fechar informa que é preciso atualizar a versão.

Colocamos um servidor apache em cada filial com uma cópia das versões atualizadas, assim o download fica na rede local.

Um arquivo INI em cada estação indica o IP do servidor onde deve logar no sistema e buscar as atualizações (pode ser o mesmo).

[adilsonpazzini]

Legal Alexsander . vou dar uma estudada nisso tambem . Muito obrigado pelas dicas .

[Italo Giurizzato Junior]

Boa tarde Adilson,

 

Caso a estação não consiga se logar na rede o programa "MENU" não roda, neste caso o usuário apesar de ter os executáveis na maquina, ele não acessa o sistema.

 

Tenho 2 servidores, um só para o banco de dados e outro para autenticar o usuário na rede e é neste que encontram-se as versões mais atuais dos executáveis.

[adilsonpazzini]

Obrigado italo , sem querer se chato , mais sendo , rsrs , Referente a esse programa Menu , vc faz atualizações constantes nele , no caso quando for necessario fazer atualização pra esse MENU , vc faz um por um , ou tambem tem alguma atualizacão automatica pra ele ?

[Italo Giurizzato Junior]

Adilson,

 

Quando ocorre uma atualização no programa MENU, a sua atualização nas estações também são automaticas.

 

Você sabe que o Windows não deixa você atualizar um executável enquanto ele esta em execução.

Neste caso como é feita a atualização do MENU.

 

1. Ao executa-lo ele checa as versões dos módulos e dele mesmo.

2. Caso exista uma nova versão do Programa MENU é baixado e salvo em uma pasta temporaria.

3. Ao finalizar a execução, o mesmo se encarrega de se encarrega de copiar a nova versão que esta na pasta temporaria para a pasta de executaveis.

 

 

procedure TfrmPortal.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 // Path_PrgU => contem o path da pasta temporaria

 // Path_PrgL => contem o path da pasta local dos executaveis

 Comando:='XCOPY '+Path_PrgU+'\*.exe '+Path_PrgL+' /D/V/C/Y';

 Winexec(PChar(Comando),SW_HIDE);

end;

[adilsonpazzini]

Legal ... agora clareou bem ... vou estudar para estar implantando isso em meus sistema , muito obrigado pela ajuda .

 

um abraço .

 

 

Adilson Pazzini

[diego ribas]

Ola pessoal,

tenho em andamento um Updater tbm, e no meu caso o mesmo deverá atualizar o banco juntamente com a versão do EXE.

A lógica é a seguinte:
tenho uma Thread que verifica a versão do exe(que fica armazenado no proprio exe) e no servidor FTP, caso exista uma versão = ele + 1 é informado ao usuário que há uma nova versão disponivel.

No sistema há um espaço para inicializar o download(onde é chamado o Updater.exe que é oque baixa, faz o backup e atualiza), porem, só é permitido o inicio da atualização, caso a primeira maquina a atualizar seja o servidor, pois preciso realizar uma cópia do banco antes de atualizar, pois poderei ter atualização no banco de acordo com cada versão.

No executavel que ja foi atualizado, tenho um script onde é verificado a versao do .exe se for <> da versao existente no .ini como mencionado veridfico se é o servidor, caso seja executo o script existente no executavel, onde é armazenado toda evolução do banco em uma função. Agora, caso a versao do exe seja <> da existente no ini mas no servidor a versao é igual a do exe entao nao executado o script e somente atulizo o exe...

 

Bom, espere que possa ser util, e que tenha sido claro quanto ao processo.

Até amis.

[adilsonpazzini]

agradeco ai os comentarios de todos .

 

 

Adilson

[adilsonpazzini]

Galera , queria abradecer a todos , pois consegui agora com as dicas do pessoal , criar um exe que se autoatualiza , so que agora fiquei com duvidas ref a parte da Pasta Schemas , so pra saber como vc´s fazer , vc´s criam a pasta schemas pra todos os terminais , ou fica centralizado num servidor mesmo e seta pro servidor a pasta schemas ?

 

 

Desde ja agradeço .

[Jose Joao Sousa]

O melhor é criar um único executável para NF-e assim você terá apenas uma pasta de schemas.