Veja como ter o controle total da versão do sistema utilizado nas estações dos usuários.

CONTROLE DA VERSÃO UTILIZADA Uma grande preocupação de todos os desenvolvedores é de fazer com que todos utilizem a versão correta do nosso sistema. Não há nada mais chato que perceber que todo o problema que o usuário está reclamando já foi corrigido bastando uma atualização do sistema. Fazer isto num ambiente com cinco usuários é muito fácil. Num ambiente deste porte é comum que a maioria dos usuários estejam bem próximos do nosso ambiente de desenvolvimento. Mas quando o número de usuários é grande as coisas começam a ficar complicadas para administrar. Imagine o nosso sistema sendo usado por 50 pessoas. Obviamente as 50 pessoas não estarão numa única sala e, mesmo que estivessem, seriam 50 atualizações. Já imaginaram o trabalho ? Bem este é o problema e a solução é deixar que o próprio sistema faça o "trabalho sujo" desta atualização. Em primeiro lugar é necessário que haja um lugar na rede que sirva para armazenar a versão que deve ser usada por todos (não necessariamente a mais nova).. O trabalho é simples: Se a versão usada na máquina do usuário for diferente da versão que está disponibilizada na rede então   deve-se atualizar o sistema da máquina do usuário. Evidentemente não é possível copiar o executável do sistema (sobrepondo ao que já existe) durante o tempo de execução do mesmo. Portanto, a solução é criar um aplicativo que fará a verificação da versão e (se for o caso) atualizá-la. Este mesmo aplicativo será o responsável por chamar a nossa aplicação. Vamos traduzir tudo isto na prática ? Criamos um novo projeto e removemos a unit que foi criada automaticamente ficando apenas com o projeto. Vamos editar o fonte do projeto clicando no menu Project e na opção "View Source".  Somente para efeito didático vamos supor que a versão que estiver na pasta "C:\\ATUAL" trata-se da versão que todos os usuários devem utilizar, daqui em diante vamos nos referir a esta pasta apenas como pasta da versão. E a versão que estiver na pasta "C:\\SISTEMA" é a versão em uso nesta máquina. Daqui em diante vamos nos referir a esta pasta como pasta do sistema. O trabalho é simples: Vamos verificar se o executável que se encontra na pasta da versão é o mesmo que se existe na pasta do sistema. Em caso negativo, copiaremos o executável da pasta da versão para a pasta do sistema. Em qualquer dos casos, no fim do nosso "mini-aplicativo" iremos chamar o executável que encontra-se na pasta do sistema. Não necessariamente o executável que se encontra na pasta da versão é o mais atual (para o caso de voltarmos uma versão anterior). A comparação entre os dois executáveis é feita pelo tamanho, data e hora do arquivo. Todo o processamento é feito dentro do fonte do projeto, portanto, não existe formulário, não existem componentes visuais, etc, etc, etc. Tudo muito prático !   Vamos a função que nos servirá para comparar dois arquivos: function Comparar(Ver, Sis: String): Boolean; var   Arq:    TSearchRec;   Ret,   TamVer,   TamSis: Integer;   DatVer,   DatSis: TDateTime; begin   TamVer := 0;   TamSis := 0;   DatVer := 0;   DatSis := 0;   Result := True;   if FileExists(Ver) then begin      Ret := FindFirst(Ver, faAnyFile, Arq);      if Ret = 0 then begin         DatVer := FileDateToDateTime(Arq.Time);  // Data do arquivo         TamVer := Arq.Size;                      // Tamanho do arquivo      end;      FindClose(Arq);   end else      Result := False;   if FileExists(Sis) then begin      Ret := FindFirst(Sis, faAnyFile, Arq);      if Ret = 0 then begin         DatSis := FileDateToDateTime(Arq.Time);  // Data do arquivo         TamSis := Arq.Size;                      // Tamanho do arquivo      end;      FindClose(Arq);   end else      Result := False;   if Result then      Result := (DatVer <> DatSis) or (TamVer <> TamSis); end; Algumas considerações: - A função recebe dois parâmetros. O nome do executável da versão (incluindo o path) e o nome do executável do sistema (também incluindo o path). - O retorno da função é do tipo "Boolean". True significa que os arquivos são idênticos e False significa que os arquivos são diferentes.   Bem esta é a parte importante. Agora vem a parte fácil. O fonte do projeto (propriamente dito): begin   //   //  O executável da versão deve (obrigatoriamente) existir...   if not FileExists('C:\\ATUAL\\SISTEMA.EXE') then begin      MessageBox(Application.Handle, 'Executável da versão não existe', 'Nosso Sistema', B_ICONERROR);           Exit;   end;   if not Comparar('C:\\ATUAL\\SISTEMA.EXE', 'C:\\SISTEMA\\SISTEMA.EXE') then      CopyFile('C:\\ATUAL\\SISTEMA.EXE', 'C:\\SISTEMA\\SISTEMA.EXE', False);   //  Chama o executável da versão   WinExec('C:\\SISTEMA\\SISTEMA.EXE', SW_SHOWNORMAL); end. Vamos evoluir um pouquinho ?  Notem que eu usei, nos nomes dos arquivos, uma string fixa. Obviamente poderíamos fazer uma coisa mais genérica. Vamos supor que passaremos o nome (incluindo o path) do executável da versão e o nome (e o path) do executável do sistema por parâmetros. Assim o primeiro parâmetro é o executável da versão e o segundo parâmetro é o executável do sistema.   O fonte ficaria assim: var   ExeVer,   ExeSis: String; begin   //   //  Checa a existência dos parâmetros   if ParamCount < 2 then begin      MessageBox(Application.Handle, 'Está faltando parâmetros', 'Nosso Sistema', MB_ICONERROR);      Exit;   end;   ExeVer := ParamStr(1);   ExeSis := ParamStr(2);   //   //  O executável da versão deve (obrigatoriamente) existir...   if not FileExists(ExeVer) then begin      MessageBox(Application.Handle, 'Executável da versão não existe', 'Nosso Sistema', MB_ICONERROR);      Exit;   end;   if not Comparar(ExeVer, ExeSis) then      CopyFile(PChar(ExeVer), PChar(ExeSis), False);   //  Chama o executável da versão   WinExec(PChar(ExeSis), SW_SHOWNORMAL); end. Apenas uma consideração é cabível no momento: É obrigatório que exista o executável da versão. Ele é a base de toda comparação. Se o executável do sistema não existir não há problema porque o programa vai copiar o executável da versão. Para finalizar somente precisamos ajustar as units da cláusula uses. Como estamos usando algumas funções devemos declarar o local onde estas funções estão. Para o nosso exemplo acima basta declarar as units: Forms, Windows e SysUtils.   O fonte completo do nosso programa é: program Versao; uses   Forms,   Windows,   SysUtils; {$R *.res} function Comparar(Ver, Sis: String): Boolean; var   Arq:    TSearchRec;   Ret,   TamVer,   TamSis: Integer;   DatVer,   DatSis: TDateTime; begin   TamVer := 0;   TamSis := 0;   DatVer := 0;   DatSis := 0;   Result := True;   if FileExists(Ver) then begin      Ret := FindFirst(Ver, faAnyFile, Arq);      if Ret = 0 then begin         DatVer := FileDateToDateTime(Arq.Time);  // Data do arquivo         TamVer := Arq.Size;                      // Tamanho do arquivo      end;      FindClose(Arq);   end else      Result := False;   if FileExists(Sis) then begin      Ret := FindFirst(Sis, faAnyFile, Arq);      if Ret = 0 then begin         DatSis := FileDateToDateTime(Arq.Time);  // Data do arquivo         TamSis := Arq.Size;                      // Tamanho do arquivo      end;      FindClose(Arq);   end else      Result := False;   if Result then      Result := (DatVer <> DatSis) or (TamVer <> TamSis); end; var   ExeVer,   ExeSis: String; begin   //   //  Checa a existência dos parâmetros   if ParamCount < 2 then begin      MessageBox(Application.Handle, 'Está faltando parâmetros', 'Nosso Sistema', MB_ICONERROR);      Exit;   end;   ExeVer := ParamStr(1);   ExeSis := ParamStr(2);   //   //  O executável da versão deve (obrigatoriamente) existir...   if not FileExists(ExeVer) then begin      MessageBox(Application.Handle, 'Executável da versão não existe', 'Nosso Sistema', MB_ICONERROR);      Exit;   end;   if not Comparar(ExeVer, ExeSis) then      CopyFile(PChar(ExeVer), PChar(ExeSis), False);   //  Chama o executável da versão   WinExec(PChar(ExeSis), SW_SHOWNORMAL); end. Bem, isso conclui o nosso aplicativo. Deve ser instalado nas máquinas dos usuários do nosso sistema. O ícone que o usuário clica para chamar o nosso sistema, na verdade chama este aplicativo descrito neste artigo que, por sua vez, chama o nosso sistema (após checar a versão do mesmo). Então, para que o usuário não perceba a diferença, vale o alerta para que o ícone deste aplicativo seja o mesmo ícone do nosso sistema. Isto resolve definitivamente o nosso problema de atualização da versão nos usuários.

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 24/01/2005 12:39:05
Visualizado..: 5420 vezes
Fonte........: Marcelo Torres