Atualização pratica de seus aplicativos

A atualização de aplicativos sempre causa um pouco de dor de cabeça especialmente se você possui um parque grande de clientes instalados.

O quanto mais fácil seria este processo se ao invés de ir máquina a máquina trocando os arquivos você pudesse disponibilizar os arquivos em uma pasta compartilhada e ao abrir sua aplicação ela automaticamente se atualizasse.

Passo 0 – Sempre antes de realizar qualquer alteração em suas aplicações crie uma cópia de backup para sua própria segurança.

Passo 1 – Abra sua aplicação e no menu “Project>>Options” abra as opções do seu projeto. Na aba “Version Info” habilite as opções “include version information in project” e “Auto-increment buid number”.

Ao habilitar estas duas opções sua aplicação passará a ser versionada e número será automaticamente incrementado toda vez que você fizer um novo build no seu projeto. Estas opções serão úteis mais adiante no nosso projeto.

Passo 2 – Vamos incluir duas functions a sua aplicação:

//Retorna o build de um arquivo
function GetBuildInfo(prog: String): String;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
  V1, V2, V3, V4: Word;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(prog),Dummy);
  GetMem(VerInfo,VerInfoSize);
  GetFileVersionInfo(PChar(prog),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 := Copy(IntToStr(100 + v1),3,2) + '.' + Copy(IntToStr(100 + V2),3,2) + '.' + Copy(IntToStr(100 + V3),3,2) + '.' + Copy(IntToStr(100 + V4),3,2);
end;

//Retorna o tamanho de um arquivo em bytes
function DSiFileSize(const fileName: string): int64;
var
  fHandle: DWORD;
begin
  fHandle := CreateFile(PChar(fileName), 0, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if fHandle = INVALID_HANDLE_VALUE then
    Result := -1
  else try
    Int64Rec(Result).Lo := GetFileSize(fHandle, @Int64Rec(Result).Hi);
  finally CloseHandle(fHandle); end;
end;

Passo 3 – Vamos declarar em uses ShellAPI

Passo 4 – Vamos precisar armazenar o local onde o arquivo atualizado estará disponível. Neste exemplo estaremos salvando a informação em um arquivo de configuração (arquivo ini). Mas você pode salvar esta informação no registro do Windows ou onde achar mais apropriado.

Passo 5 – Agora vamos criar a procedure que vai realmente atualizar a aplicação:

procedure Atualiza_Versao_Aplicacao;
var
  versao_local, versao_servidor : string;
  tamanho_original, tamanho_recebido : integer;
  local_arquivo_servidor : string;
  iArq : Tinifile;
begin

  //Verifico onde esta armazenado o arquivo a ser atualizado
  if FileExists(GetCurrentDir + '\CONFIG.INI') then
  begin
    try
     iArq := TInifile.Create(GetCurrentDir + '\CONFIG.INI');
     local_arquivo_servidor := iArq.ReadString('UPDATE','LOCAL','\\SERVIDOR\PASTA\ARQUIVO.EXE');
    finally
      iArq.Free;
    end;
  end;


  //Armazeno a versão da aplicação atualmente em uso
  versao_local := GetBuildInfo(GetCurrentDir + '\ARQUIVO.EXE');

  //Armazeno a versão do aplicação que esta disponivel no servidor
  versao_servidor := GetBuildInfo(local_arquivo_servidor);

  //Comparo as versões
  if versao_local <> versao_servidor then
  begin
    //Guardo na váriavel o tamanho do arquivo que esta no servidor
    tamanho_original := DSiFileSize(local_arquivo_servidor);

    //Copio a versão que esta no servidor para o computador atual
    CopyFile(PChar(local_arquivo_servidor),PChar(GetCurrentDir+'\ARQUIVO.NEW'),False);

    //Guardo na váriavel o tamanho do arquivo copiado
    tamanho_recebido := DSiFileSize(GetCurrentDir+'\ARQUIVO.NEW');

    //Verifico se o arquivo copiado chegou intacto
    if tamanho_original = tamanho_recebido then
    begin
      //Apago se existir versão antiga
      DeleteFile(ARQUIVO.OLD');

      //Renomeio o arquivo atual
      RenameFile(ARQUIVO.EXE', ARQUIVO.OLD');

      //Renomeio o arquivo novo para poder usa-lo
      RenameFile(ARQUIVO.NEW', ARQUIVO.EXE');

      //Informo que a aplicação foi atualizado com sucesso
      ShowMessage('Aplicação atualizada com sucesso!');

      //Mando abrir a nova versão do teclado
      ShellExecute(0,Nil,PChar(GetCurrentDir+'\ARQUIVO.EXE'),'', Nil, SW_SHOWNORMAL);

      //Fecho a aberta
      Close;
    end else
    begin
      //Caso o arquivo copiado não seja copiado com sucesso
      ShowMessage('Copia de arquivo falhou! Tente novamente!');
    end;
  end else
  begin
    //Se a aplicação já estiver atualizada
    ShowMessage(Aplicativo já possui a ultima atualização disponível!');
  end;
end;

Passo 6 – Você pode chamar a procedure de atualização no onClick de um Botão, criar uma tecla de atalho, adiciona-la no activate do form. Na maneira que lhe for mais conveniente.

Passo 7 – Lembre-se de que o usuário que estiver logado no computador na hora em que for ser atualizada a aplicação deve ter permissões administrativas na pasta onde a aplicação esta instalada e que também ter permissões de acesso a pasta onde a nova versão foi armazenada.

Com esta rotina você pode atualizar não só o executável da sua aplicação, mas todos os arquivos que precisar. Basta usar sua imaginação.

Um abraço a todos,

José Bernardo Junior
e-mail: giuseppe@qtech.com.br
Msn: z-bernardo@hotmail.com