Delphi com SVN

Gente este artigo, é de autoria de Isaque Pinheiro, mas como achei muito interessante resolvi compartilhar aqui! para os Delpheiros

Add-in do TortoiseSVN para Delphi

Pelas minhas caminhadas pela NET, encontrei um plugin do TortoiseSVN, para Delphi no link DelphiSVN , baixei para testá-lo, e a primeira impressão gostei, mas como já havia trabalhado com StarTeam do Borland em equipe, logo observei que o plugin não permitia bloquear e desbloquear os .pas e .dfm, que estava usando, para que outro da equipe pudesse saber que os arquivos estavam sendo usados, mas que o recurso existia no
TortoiseSVN. Como sempre nada é perfeito.Recursos oferecidos pela cópia original, que se encontra no link passado acima.

Bom, como o fonte estava em minhas mãos, resolvi dar uma olhada para saber como foi implementado os recursos, e após ter entendido, o que eu precisa era saber o comando do TortoiseSVN, que me proporcionasse, ter esses recursos. Então comecei a ler os manuais, mas não achei uma forma simples, pois os comandos de bloquear e desbloquear tem, mas não estava conseguindo fazer da mesma forma que o TortoiseSVN faz no explorer, que é mostrar a opção do menu “Release lock”, somente se o arquivo realmente estivesse bloqueado e vice versa, mas não desisti. Após várias pesquisas, me vaio a mente, que o recurso não deveria ser simples, pois se fosse no site original, o autor do plugins já o teria feito, pois esses recurso é de muita utilidade, e nesse momento sim, pensei em desistir.

Foi ai, que me veio uma idéia, de ter um arquivo de controle, e iria gerar esse arquivo ao broquear um .pas, o qual deveria automaticamente bloquear também sei .dfm, se o mesmo existisse, então o comando “Get lock…” ao ser executado, relacionaria os nomes desse .pas e .dfm, os gravando no arquivo e o plugin identificando esse arquivo, iria mudar o label do comando e “Get lock…” para “Release lock”, e foi assim encontrei a solução, ficando assim os recursos após a implementação:

Onde baixar:
O plugins modificado, poderá ser baixado em DelphiSVN

Instalando:
Abra o pacote .dpk, compila-lo e o instale.

Arquivo gerado pelo plugin:
<Nome do projeto>.svn

Abraço a todos.

6 comentários sobre “Delphi com SVN

  1. Agnaldo, bom dia, estou precisando muito do Get Lock e o Release Lock no Delphi, você consegue me passar a modificação que você fez? Obrigado

Deixe um comentário

Translate »