Delphi e alguns componentes

Pessoal,
Recomendo utilizarem os seguintes componentes para otimizar a programação com o Delphi:
CnPack - http://www.cnpack.org
GExperts - http://www.gexperts.org/

Ambos são gratuitos e auxiliam muito com vários recursos, desde mais simples (como colocar todas as letras de um texto selecionado em maiúsculo) até recursos mais avançados (como uma função que troca o tipo de algum componente selecionado).

Nos sites informados há versões dos componentes para as diversas versões do Delphi.

Espero que seja útil!

Como identificar se o aplicativo está em modo Debug pelo Delphi

  if DebugHook = 1 then { modo debug }

Auto Completar no SQL Server 2005

Boa tarde pessoal!
Para habilitar o Auto Completar no SQL Server 2005, baixe e instale o plugin dbForge SQL Complete, que é gratuito. É possível fazer o download dele através do seguinte link:
http://www.devart.com/dbforge/sql/sqlcomplete/sqlcompletefree.exe
Essa versão é limitada, porém possui muitos recursos, principalmente o autocompletar e identação do código sql. A comparação entre a versão gratuita e paga pode ser visualizada no seguinte link:
http://www.devart.com/dbforge/sql/sqlcomplete/editions.html
Essa ferramenta serve também para as versões posteriores do SQL Server.
Saudações!

Erro ao abrir o eclipse: failed to load the jni shared library (resolvido)

Ao tentar abrir o eclipse pela primeira vez deu o seguinte erro:
"failed to load the jni shared library" ... "jvm.dll"

Para resolver isso, apenas peguei (baixei) o eclipse correspondente à versão do meu sistema operacional (64 bits). Não foi necessário reinstalar o JRE ou SDK pois os mesmos já estavam na versão correspondente à versão do sistema operacional (64 bits).

Boa sorte à todos!

Collation ideal para criar um banco no MySQL no Brasil

No wamp, criei um banco usando o collation latin1_swedish_ci.Fonte auxiliar:
http://ajuda.maxrevenda.com.br/resolvendo-problemas-de-caracteres-acentuados-no-mysql/

TortoiseSVN - repository already locked

Para aqueles que tiverem problemas ao tentar comitar e o tortoise exibir a mensagem "repository already locked", basta executar o comando "clean up".

PostGre - Como criar triggers

Excelente explicação com exemplos:
http://imasters.com.br/artigo/10644/postgresql/triggers_no_postgresql/

Postgre - função para retornar valor com caracteres preenchidos à esquerda.

SELECT lpad('1',3,'0')

Sendo os parametros:
1 = char, valor a ser retornado;
2 =  int, número de caracteres a serem retornados;
3 = char, string para preencher o campo 1 até ficar do tamanho do campo 2.

O resultado do select acima é "001".

Como Configurar IIS 7 no windows 7 para rodar uma DLL ISAPI

Boa tarde, abaixo segue o link que usei para configurar o IIS 7 para rodar um webservice (DLL ISAPI) que fiz no Delphi XE. Para quem estiver com dificuldades para realizar tal configuração recomendo!

http://chee-yang.blogspot.com.br/2009/10/configure-windows-7-iis7-for-isapi-dll.html

E para testar recomendo o link abaixo, que tem um excelente tutorial de como fazer um webservice no Delphi:

http://estacaozn.blogspot.com.br/2008/09/webservice-no-bds2006.html
Bom estudo à todos, até a próxima!

Delphi - Calcular diferença entre datas

Boa noite amigos,
Mostrarei algumas funções que podem ser úteis para calcular a diferença entre datas. Mostrarei uma função chamada numa tela que possui dois combos de data, um memo e um botão para calcular a diferença entre as datas. Essa diferença pode ser calculada em anos, meses, dias, horas, minuto ou segundos. Veja abaixo:

procedure Tfrm1.btnMostrarTempoClick(Sender: TObject);
var
  iAnos, iMeses, iDias, iHoras, iMinutos, iSegundos : Integer;
  dTempoAtendimento, dDataInicial, dDataFinal : TDateTime;
  sTexto : string;
begin
  dDataInicial := dtinicial.Date;
  dDataFinal   := dtFinal.Date;
  dTempoAtendimento := (dDataFinal - dDataInicial);

  iAnos     := YearsBetween(dDataInicial, dDataFinal);
  iMeses    := MonthsBetween(dDataInicial, dDataFinal);
  iDias     := DaysBetween(dDataInicial, dDataFinal);
  iHoras    := HoursBetween(dDataInicial, dDataFinal);
  iMinutos  := MinutesBetween(dDataInicial, dDataFinal);
  iSegundos := SecondsBetween(dDataInicial, dDataFinal);

  sTexto := sTexto + 'Modo DateUtils:';
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Anos: ' + IntToStr(iAnos);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Meses: ' + IntToStr(iMeses);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Dias: ' + IntToStr(idias);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Horas: ' + IntToStr(iHoras);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Minutos: ' + IntToStr(iMinutos);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + 'Segundos: ' + IntToStr(iSegundos);
  sTexto := sTexto + #13#10;
  sTexto := sTexto + #13#10;

  sTexto    := sTexto + 'Modo Calculo Manual:';
  sTexto    := sTexto + #13#10;
  iHoras    := StrToIntDef( FormatDateTime('hh', dTempoAtendimento ), 0);
  iMinutos  := StrToIntDef( FormatDateTime('nn', dTempoAtendimento ), 0);
  iSegundos := StrToIntDef( FormatDateTime('ss', dTempoAtendimento ), 0);
  sTexto    := sTexto + 'Horas: ' + IntToStr(iHoras);
  sTexto    := sTexto + #13#10;
  sTexto    := sTexto + 'Minutos: ' + IntToStr(iMinutos);
  sTexto    := sTexto + #13#10;
  sTexto    := sTexto + 'Segundos: ' + IntToStr(iSegundos);


  mmo1.Text := sTexto;
end;

Obs.: Declare a unit "DateUtils" na sua classe.

Como habilitar o IIS no Windows 7

Pessoal, segue abaixo o link com o passo a passo:
http://technet.microsoft.com/pt-br/library/cc731911%28v=ws.10%29.aspx
Muiti direto e prático! Boa sorte!

Phyton + django

Pessoal, assisti uma excelente apresentação introdutória de Desenvolvimento Web fácil com Python e Django.
A palestra foi oferecida pela GlobalCode. ( http://www.globalcode.com.br )
Abaixo tem um link com um projeto de exemplo!
https://github.com/acpy/django-pizza/blob/master/docs/index.rst
Bons estudos!
Quem quiser mais informações pode consultar no site da GlobalCode.