Para desabilitar todas as constraints e triggers de todas as tabelas do banco:

exec sp_msforeachtable "ALTER TABLE ? NOCHECK CONSTRAINT ALL"
exec sp_msforeachtable "ALTER TABLE ? DISABLE TRIGGER ALL"

Para habilitar:

exec sp_msforeachtable "ALTER TABLE ? WITH CHECK CHECK CONSTRAINT ALL"
exec sp_msforeachtable "ALTER TABLE ? ENABLE TRIGGER ALL"

Alias, essa sp_msforeachtable é muito interessante e pode ser explorada de muitas formas diferentes. Testei no SQL Server 2008, mas deve funcionar no 2005 pelo menos.

Um detalhe a ser observado é que esse comando não desabilita constraint de PK nem UNIQUE.

A proposta do Google Friend Connect é aproximar as pessoas que visitam o blog, além de permitir usar suas contas de outros grandes sites como Google, Yahoo, AIM ou OpenID para interagir com o blog, postar comentários, recomendar a amigos, etc.

Ainda não pesquisei muito a respeito para ativar todos esses recursos. Por enquanto você pode se “inscrever” no site ai em cima. No próximo passo pretendo vincular a parte de comentários, mas isso vai depender da boa receptividade do recurso. Então se você acha uma boa idéia, inscreva-se aí.

Uma forma de amenizar esses alertas ao usuário é assinar digitalmente seus aplicativos. A assinatura digital teoricamente garante ao usuário que o arquivo veio realmente da empresa desenvolvedora, e mostra telas bem mais amigáveis, mostrando o nome da sua empresa como origem do aplicativo.

Isso mostra que toda empresa de software deveria assinar seus aplicativos. E foi isso que nós implementamos aqui nos últimos dias e vou dar algumas dicas de como fazer.

• Você precisa comprar um certificado digital de uma entidade certificadora de confiança da Microsoft. Eu comprei da Comodo através da K Software. Segui os procedimentos descritos na própria página e foi tranquilo. Utilizei o Internet Explorer durante todo o processo, pois no Chrome não foi legal.
• Após compra você vai receber um e-mail solicitando os documentos da empresa para comprovar que ela existe e que você é o responsável. Eu mandei o cartão CNPJ da empresa impresso em PDF pelo site da Receita Federal.
• Eles também pedem um telefone pois dizem que vão te ligar, mas não me ligaram.
• Depois de um ou dois dias recebi o e-mail dizendo que o certificado estava pronto, com o link para baixar. Utilizei o Internet Explorer 8 e seguindo as instruções, o certificado foi instalado na minha máquina.
• Como eu iria fazer a assinatura durante nosso processo de build, precisava copiar o certificado para nossa máquina de build. Então exportei o certificado, entrando em Opções de Internet, Conteúdo, Certificados. Dessa forma foi gerado um arquivo .pfx, que é exatamente o que o FinalBuilder precisa na sua action Authenticode para aplicar assinaturas.
• Também é necessária uma URL da entidade certificadora para aplicar timestamp nos arquivos. Isso geralmente está nas páginas de FAQ da entidade. Como aqui no caso da Comodo.
• Copiei o arquivo .pfx para minha máquina de build, apontei o FinalBuilder para ele, configurei a URL de timestamp e pronto, meus arquivos (*.exe) estão todos assinados!
• Que eu saiba não existe limite e você pode assinar quantos arquivos quiser durante a validade do seu certificado.
• Nós assinamos todos executáveis (*.exe), incluindo instaladores.
• Também é possível assinar outros tipos de arquivos, mas como eu não fiz, não tenho dicas a respeito.
• Para quem não usa FinalBuilder, precisa pesquisar como fazer sem ele, pois eu não fui atrás disso. Na página da K Software existe propaganda de uma ferramenta para assinar, mas tenho certeza que ou existem aplicativos no próprio Windows para isso, ou gratuítos em algum lugar para baixar.

Espero que isso ajude um pouco.

• Post do Nick Hodges aqui.
• Release notes aqui.
• Lista do que foi corrigido no Update 3 aqui.
• Lista do que foi corrigido no Update 4 (database pack) aqui.

Para instalar eu simplesmente lancei o “Check for Updates” do meu Delphi e pronto, mas você também pode baixar os updates da área de download para usuários registrados. Que foi o que eu fiz para instalar no restante das máquinas aqui.

A instalação foi tranquila, porém no about no meu Delphi, na caixa “Installed Updates” não aparece o Update 3, apenas o 4. Isso aconteceu para mais alguém aí? Vou testar em outras máquinas aqui para ver o que acontece.

Não achei nada sobre Windows 7 na lista de correções, então acredito que o problema do debugger continue.

• MacBook
• iPhone 3G
• Sony Reader Digital Book PRS-505

Se quiserem saber algo específico sobre estes equipamentos, fiquem a vontade para postar nos comentários e eu responderei nos futuros posts.

Quantas vezes você já não precisou escrever código para varrer um dataset do início ao fim?

DataSet.First;
while not DataSet.Eof do
begin
  //
  // Faz alguma coisa com o registro atual
  //
  DataSet.Next;
end;

Isso pode ficar ainda maior se você precisar usar DisableControls ou ainda restaurar o ponteiro do registro do DataSet após a varredura:

var
  Bookmark: TBookmark;
begin
  DataSet.DisableControls;
  try
    Bookmark := DataSet.Bookmark;
    DataSet.First;
    while not DataSet.Eof do
    begin
      //
      // Faz alguma coisa com o registro atual
      //
      DataSet.Next;
    end;
    DataSet.Bookmark := Bookmark;
  finally
    DataSet.EnableControls;
  end;
end;

Esse código todo é praticamente repetido em todas as varreduras que precisamos fazer em um DataSet. Então seria muito útil se pudéssemos extrair esse código e trocar apenas a parte que “faz alguma coisa com o registro atual”.

É aqui que os métodos anônimos nos ajudam muito.

Na unit SysUtils do Delphi, existe um tipo TProc declarado desta forma:

type
  TProc = reference to procedure;

E vamos usá-lo para criar uma procedure que recebe um dataset e um método anônimo como parâmetros:

procedure ForEach(DataSet: TDataSet; Proc: TProc);
var
  Bookmark: TBookmark;
begin
  DataSet.DisableControls;
  try
    Bookmark := DataSet.Bookmark;
    DataSet.First;
    while not DataSet.Eof do
    begin
      Proc;
      DataSet.Next;
    end;
    DataSet.Bookmark := Bookmark;
  finally
    DataSet.EnableControls;
  end;
end;

E com isso podemos chamar a procedure dessa forma:

ForEach(Table1,
  procedure
  begin
    ShowMessage(Table1NAME.Value)
  end);

Como eu disse, a sintaxe inicialmente é meio estranha, mas com o tempo você acostuma. No exemplo acima eu codifiquei uma procedure sem nome e sem parâmetros e passei para ser executado em cada registro. Eu tinha um dataset chamado Table1 no form. ShowMessage será chamado para cada registro. Além disso, ele desativa os controles conectados ao dataset e restaura o ponteiro no final.

Perceberam como isso facilita nossa vida? Então pronto, pode ir remover o monte de código duplicado que você tem em seus aplicativos.

Existe ainda uma idéia mais legal que é transformar esse recurso em um helper para a classe TDataSet, mas isso eu vou deixar para vocês como lição de casa ou para um próximo post aqui no blog.

Update: Eu já estava prevendo que alguém comentasse isso. Sim, eu sei que já era possível antes com ponteiros de funções, mas com métodos anônimos é muito mais legal e é uma forma de tirar proveito dessa novidade do Delphi 2009. Para quem ainda não tem o Delphi 2009, vale a dica do amigo Marcos Douglas, postada nos comentários.

Rodando o Delphi 2009 encontrei problemas na hora de usar o debugger em aplicativos com mais de uma thread. Quando uma exception é levantada, não é possível dar um break e resetar o aplicativo (Ctrl+F2) e você precisa reiniciar a IDE.

Já notifiquei o pessoal da CodeGear, mas como essa é uma versão beta e não suportada do Windows, não posso querer que eles resolvam.

Fica aí o alerta para os desenvolvedores Delphi.

Bastou adicionar o parâmetro “-in-process-plugins” no atalho do executável conforme screenshot abaixo:

A nova task bar realmente é bem melhor e é a primeira diferença que se nota logo que o sistema inicializa.

Depois disso comecei a instalar alguns dos aplicativos que mais uso no dia-a-dia.

Instalados e rodando sem nenhum problema até agora:

• Delphi 2009
• Firebird 2.1
• IBExpert
• TortoiseSVN
• Mozilla Firefox

Não funcionaram Funcionando após algum ajuste:

• Google Chrome: O Windows avisa que tem problema de compatibilidade conhecido. E descobri essa dica de como fazer funcionar.

Conclusão, estou considerando sériamente em arriscar e instalar ele na minha máquina principal.

Para quem está interessado em testar e não tem assinatura MSDN nem TechNet, acho que ele vai estar disponível publicamente para download amanhã.

Por mais que eu esteja bem satisfeito com o Vista, não dá pra negar que o mercado em geral não aceitou bem essa versão e por isso a Microsoft está acelerando o lançamento do Windows 7.

Depois que terminar de baixar e instalar em alguma máquina para testes, posto meus comentários aqui.