Para aqueles que participaram da minha apresentação  na Semana do DBA sobre o tema Gestão de dados e mudança em ambientes heterogêneos, onde foram abordados temas relacionados a administração de diversos bancos de dados em diferentes plataformas, sincronização de dados, schemas e configuração de servidores.

Comente sobre o evento no seu twitter usando o hashtag #SemanadoDBA, você pode também me seguir no Twitter (@andreanolanusse) e acompanhar os comentários sobre o evento.

Abaixo segue alguns links relacionados as soluções apresentadas:

Artigos e Vídeos gratuitos no EDN – Embarcadero Developer Network – http://edn.embarcadero.com/br
Download de trial dos produtos Embarcadero – http://www.embarcadero.com/downloads
Embarcadero Database Management Solution

• DBArtisan – administração e monitoramente de banco de dados – http://www.embarcadero.com/br/products/dbartisan
• Change Manager – sincronização de schema, dados e configuração de bancos de dados – http://www.embarcadero.com/br/products/changemanager

Amanhã tem mais, vamos falar sobre Performance, SQL Tunning e efeciência e disponibilidade 24×7

Se você já recebeu a confirmação da sua inscrição, basta conectar, sugerimos conectar 10 minutos antes.

Comente sobre o evento no seu twitter usando o hashtag #SemanadoDBA, você pode também me seguir no Twitter (@andreanolanusse) e acompanhar os comentários sobre o evento.

Devido ao grande interesse as inscrições estão encerradas, agora estamos com uma fila de espera onde iremos confirmado de acordo com o andamento do evento.

Até daqui a pouco.

Um desenvolver da Itália (Daniele Teti) resolveu criar vários novos filtros para o DataSnap 2010 e os chamou de DataSnap Filters Compendium, composto por 9 filtros, dividos em 3 grupos:

HASH – cria um hashcode para os dados enviados, ajudando a detectar qualquer tipo de alteração dos dados durante a transmissão

• MD5
• MD4
• SHA1
• SHA512

CIPHER – filtro utilizado para encriptar os dados enviados entre servidor e cliente DataSnap, abaixo 4 diferentes tipos de criptografia

• Blowfish
• Rijndael
• 3TDES
• 3DES

COMPRESS – Filtro para compressão de dados, este filtro é 3 vezes mais rápido que o zLib

• LZO

Sem dúvida uma excelente contribuição do Daniele para a comunidade, os fontes estão disponíveis no Google Code

LINQ é um conjunto de extensões para o .NET Framework que abrange operações de consulta integrada à linguagem, definição e transformação. Através de qualquer linguagem para .NET você pode efetuar consultas através de bibliotecas de classes para tirar proveito desses recursos.

Existem várias formas de utilização do LINQ, consultando objetos, XML e banco de dados, já existem outras implementações que permitem efetuar consulta em outros artefatos.

Para começar a entender, vou exemplificar a utilização de LINQ consultando uma lista de objetos, mais conhecido como LINQ to Objects.

O código fonte dos exemplos aqui utilizando se encontram no diretório de exemplos do Delphi Prism, pasta Linq, estes foram desenvolvidos por mim mesmo e incorporados ao produto.

Veja a classe abaixo, esta contém um Array of String, imagine a situação onde você deseja filtrar estes dados, ordenar de diversas formas e o retorno ser uma classe. Isso é o que podemos fazer com LINQ.

type
  Words = public class
  private
    words : Array of String := ['hello', 'Delphi Prism', 'wonderful', 'linq', 'beautiful', 'world' ];
  public
    method SimpleSelect;
    method ComplexSelect;
  end;

Abaixo temos a implementação do método SimpleSelect, onde utilizamos LINQ para trazer uma lista com as palavras que tenham menos de 5 caracteres.

implementation

method Words.SimpleSelect;
begin
  var shortwords := From word in words
                    Where word.Length <= 5
                    Select word;

  Console.WriteLine('Simple select statment');
  Console.WriteLine;

  for each word in shortwords do begin
    Console.WriteLine(word);
  end;

end;

Vamos passo a passo neste código, primeira parte.

  var shortwords := From word in words
                    Where word.Length <= 5
                    Select word;
end;

Desta forma temos uma coleção chamada shortwords, cria dinâmicamente e que podemos agora percorrer e apresentar os resultados da seguinte forma.

  for each word in shortwords do begin
    Console.WriteLine(word);
  end;

Até aqui você se pergunta se é possível ordenar, agrupar, etc. A resposta é simples, sim é possível. Abaixo um exemplo onde retornamos as palavras agrupadas por tamanho, em ordem descendente e gerando o retorno como uma classe e não apenas uma string.

  var groups := From word in words
                Order by word asc
                Group word by word.Length into lengthGroups
                Order by lengthGroups.Key desc
                select new class (Length:=lengthGroups.Key,Words:=lengthGroups);

Foi adicionado as cláusulas Order by e Group, onde Key é o tamanho da string para cada item da coleção.

Agora uma das coisas mais interessantes é a criação dinâmica das classes através da sintaxe new class, além disso a utilização de expressões lambida onde eu defino a propriedade e valor a ser atribuído dinamicamente, exemplo abaixo Length:=lengthGroups.Key .

select new class (Length:=lengthGroups.Key,Words:=lengthGroups);

Caso você deseja imprimir o conteúdo agrupado, basta percorrer a variável groups, onde a propriedade Words representa a lista de palavras para cada grupo.

  for each grupo in groups do begin
    Console.WriteLine('Words of length ' + grupo.Length);
    for each word in grupo.Words do
      Console.WriteLine('   ' + word);
  end;

Próximo post falarei sobre LINQ to XML, aguardem.

• Construtores
• Sobreposição de operadores
• Declaração de métodos não-virtuais
• Métodos e propriedades estáticos

Podemos utilizar os Record de várias maneiras, no meu caso utilizo muito em parâmetros  de métodos que devem representar chaves primárias (Primary Key), desta forma facilita a leitura e manutenção do código, é verdade que você não fica mudando as chaves primárias das tabelas do seu banco de dados o tempo todo, mas quando precisar o mudança no código será simples. Outro exemplo seria informar intervalo de dados.

Imagine que você precise gerar um conjunto de boletos de um determinado período, você iria declarar algo assim.

    procedure GerarBoleto( DataInicial, DataFinal : TDateTime );

Geralmente temos problema com periodos, porque os bancos de dados armazenam data e hora no mesmo campo, desta forma temos que na data inicial estar certo que a hora está acertada para ‘00:00:00′ e para a data final teremos que estar certos de ter como hora final ‘23:59:59′, existem outros aspectos e artifícios dependendo do banco de dados para contornar esta situação, mas isso depende de cada banco.

Record é uma excelente solução para estes casos, para isso representamos os parâmetros do método GerarBoleto como um Record e ele irá fazer todo o trabalho para evitar os problema de data e hora, assim como facilitar a leitura, entendimento e manutenção do código.

O método passaria a ser declarado assim:

    procedure GerarBoleto( periodo : TPeriodo );

A declaração do Record teria as propriedades DataInicial e DataFinal, estas por suas vez quando receberam valores terão os mesmo ajustados de acordo com os método Set.

Abaixo a declaração do Record e a seguir algumas explicações para o mesmo.

unit Perido;

interface

uses SysUtils, DateUtils;

type

  TPeriodo = Record
  private
    FDataFinal: TDateTime;
    FDataInicial: TDateTime;
    procedure SetDataFinal(const Value: TDateTime);
    procedure SetDataInicial(const Value: TDateTime);

  public
    property DataInicial: TDateTime read FDataInicial write SetDataInicial;
    property DataFinal: TDateTime read FDataFinal write SetDataFinal;

    Constructor Create(Di, Df: TDateTime);

    procedure SetIntervaloAnual( Anoi, Anof : Integer );
  end;

implementation

{ TPeriodo }

constructor TPeriodo.Create(Di, Df: TDateTime);
begin
  DataInicial := Di;
  DataFinal := Df
end;

procedure TPeriodo.SetDataFinal(const Value: TDateTime);
begin
  FDataFinal := EncodeDateTime(Yearof(Value), MonthOf(Value), Dayof(Value), 23, 59, 59, 1000);
end;

procedure TPeriodo.SetDataInicial(const Value: TDateTime);
begin
  FDataInicial := EncodeDateTime(Yearof(Value), MonthOf(Value), Dayof(Value), 0, 0, 0, 0);
end;

procedure TPeriodo.SetIntervaloAnual(Anoi, Anof: Integer);
begin
  DataInicial := EncodeDate(Anoi, 1, 1);
  DataFinal   := EncodeDate(Anof, 12, 31);
end;

end.

• Toda e qualquer atribuição de valor para DataInicial e DataFinal serão ajustados de acordo com o horário inicial e final
• Foi criado um método adicional SetIntervaloAnual, onde você pode informar o ano inicial e final para o período e o método irá gerar os intervalos.

Abaixo uma das formas onde podemos utilizar este Record, informando período inicial e final;

var
  periodo : TPeriodo;
begin
  periodo.DataInicial := EncodeDate( 2009, 1, 1);
  periodo.DataFinal   := Now;

  GerarBoleto(periodo);

Outra forma é passar o período utilizando o construtor do Record

var
  periodo : TPeriodo;
begin
  periodo.Create(EncodeDate( 2009, 1, 1), Now);
  GerarBoleto(periodo);

Outra forma seria utilizar o método SetIntervaloAnual, onde você apenas especifica o período anual.

var
  periodo : TPeriodo;
begin

  periodo.SetIntervaloAnual(2008, 2009);

  GerarBoleto(periodo);

Em todos os casos, os valores horários foram acertados.

Mas este record pode fazer muito mais por nós, porque não gerar a declaração where do SQL para as datas de acordo com os valores? Dois simples métodos pode resolver todos os problemas.

Field, é o nome do campo que representa a data em sua tabela.

function TPeriodo.DataDBFormat(const Value: TDateTime): String;
begin
  Result := FormatDateTime('mm/dd/yyyy hh:mm:ss', Value);
end;

function TPeriodo.GenerateSQL(Field: String): String;
Const
  sql: String = '%s between ''%s'' and ''%s'' ';
begin
  Result := Format(sql, [FieldI, DataDBFormat(DataInicial), DataDBFormat(DataFinal)]);
end;

Na prática usamos desta forma:

var
  periodo : TPeriodo;
begin

  periodo.SetIntervaloAnual(2008, 2009);

  ShowMessage( periodo.GenerateSQL('DATA_BOLETO'));

O resultado no ShowMessage será: DATA_BOLETO between ‘01/01/2008 00:00:00′ and ‘12/31/2009 23:59:59′

Espero que este post seja útil e lhe ajude no seu dia-a-dia. Download código fonte

Até o próximo post.

São 8 exemplos, contendo código fonte. Vale lembrar que os exemplos que utilizam Multitouch requerem Windows 7, já os exemplos que utilizam Touch e Gesture podem ser executados em Windows 2000, XP e Vista. Caso você não tenho um monitor touchscreen, basta utilizar o mouse para simular os toques.

Os usuários de C++Builder 2010 poderam utilizar os mesmo recursos disponíveis no Delphi 2010.

Ao clicar na imagem abaixo, você verá um dos exemplos sobre multitouch em ação.

Download dos fontes

Na versão online selecionamos alguns temas muito especiais, tive a oportunidade de falar sobre a grande novidade em desenvolvimento Touch e Gesture suportada pelo Delphi 2010.

Além disso o evento trouxe apresentações sobre DataSnap, OOP com Delphi Prism, técnicas para teste de aplicações Delphi e dois minicursos sobre Intraweb e Rave Reports, nestes minicursos você certamente irá aprimorar seu conhecimento e ir adiante com estas tecnologias.

Para ter acesso a todos as apresentações clique aqui, lembre-se que para assistir ou efetuar o download você deve utilizar sua conta do EDN, caso não tenha basta criar no momento em que for solicitado é GRÁTIS.

A edição 71 da Active Delphi foi publicada recentemente e traz vários artigos interessantes, entre eles.

Introdução ao novo DataSnap 2010
Fabrício Hissao fala sobre as novidades do novo DataSnap 2010. O autor mostra a construção de uma aplicação simples no modelo multi-camadas, provando como ficou fácil este tipo de desenvolvimento com a nova versão do DataSnap.

Delphi Para Web: Webbroker e PHP – Compartilhando Dados de Sessões – Parte 4
Dando continuidade à série, Kelver Merlotti aborda sobre o compartilhamento de dados de sessões PHP com WebBroker, ou seja, Kelver nos ensina como podemos ler dados de uma sessão PHP para ser utilizada na aplicação Delphi/WebBroker. Para isso explica alguns conceitos de como funciona a sessão no PHP e mostra a classe que utiliza para facilitar esta integração.

Delphi Prism Language
Adilson Jr mostra algumas características principais da linguagem Delphi Prism.

A revista traz ainda vários outros excelentes artigos, mais informações aqui.

É muito fácil utilizar este componente, posso dizer que para muitos gráficos você não precisaria escrever código, através dos wizards disponíveis você pode criar gráficos, trazendo dados de um DataSet e pronto, mas claro que existiram situações onde você talvez necessita customizar algo e ai codificar será inevitável.

Assim sendo resolvi escrever este post e mostra um exemplo simples de como seria criar gráficos sem estar conectado a DataSet, ou seja, passar os dados a partir de um array ou algo parecido. O resultado final será o gráfico abaixo, onde se compara mês a mês o resultado das vendas de 2008 e 2009, além disso para cada mês temos o percentual que representou aquele mês no ano.

Vamos agora conhecer o código e saber como foi implementando este gráfico, ao final você poderá baixar os fontes.

Antes de mais nada, este é uma aplicação VCL, onde foi adicionado o componente TChart e com o botão direito selecione a opção Edit Chart, adicione duas séries através do botão Add, neste exemplo utilizei gráficos de barra.

A fonte de dados deste gráfico é um array que contém o total vendas para cada mês.

var
  i: Integer;
  val : Array[1..12] of Double;
begin

  val[1] := 10.2;
  val[2] := 12.2;
  val[3] := 11.7;
  val[4] := 6.3;
  val[5] := 8.0;
  val[6] := 2.9;
  val[7] := 20.3;
  val[8] := 1.4;
  val[9] := 4.5;
  val[10] := 6;
  val[11] := 10;
  val[12] := 15;

Após a definição da fonte de dados, remove os dados adicionados em tempo de runtime para as duas séries existentes, uma referente ao ano de 2008 e outra ao ano de 2009. Além disso defino que o estilo de apresentação dos valores para cada barra será percentual, isso quer dizer que será apresentado o quanto representa o total do mês no faturamento anual.

  Series2008.Clear;
  Series2008.Marks.Style := smsPercent;

  Series2009.Clear;
  Series2009.Marks.Style := smsPercent;

Depois disso vamos basta adicionar os valores de venda mensal para cada série (2008, 2009), repare que estou utilizando o array LongMonthNames para o obter o nome do mês, no meu caso os nomes aparecem em inglês, pois utilizo windows em inglês, ou seja, ele depende da versão do idioma do seu Windows, caso não queira depender do idioma do seu sistema operacional, basta sobrepor os valores para cada posição do Array.

Método Add foi utilizado para adicionar os valores, caso você queira customizar a cor de cada barra, basta adicionar uma cor como terceiro parâmetro ao método Add.

for i := 1 to 12 do
begin
Series2008.Add(val[i], LongMonthNames[i]);
end;

for I := 1 to 12 do
begin
Series2009.Add(val[i] / (1.45+(i/10)), LongMonthNames[i]);
end;

Espero que este simples e objetivo exemplo seja útil, o código fonte está disponível aqui.

Nesta quarta-feira Apple anunciou seu novo computador touchscreen , o “iPad” para consumidores que querem ter assistir filmes, TV shows, ouvir música, jogar e ler com ele, seja na sua casa ou em qualquer outro lugar.

Se você é atualmente usuário do iPhone, não terá muita dificuldade pois a interação é bem semelhante. Além disso, você poderá usá-lo em modo portrait ou landscape, ambas suportam o teclado virtual e parece que o botão “home screen” na parte inferior permite mudar a orientação também..

Apple iPad specs:

• 9.7-inch display with 0.5-inches thickness.
• 16GB to 64GB of on-board flash memory
• 10 hrs of battery life. Over a month for standby
• 1GHz Apple A4 chip (developed for the iPad)
• WiFi 802.11n
• Bluetooth 2.1
• accelerometer
• digital compass
• speaker and a microphone
• 30-pin dock connector

Não vejo a hora ver ao vivo o novo iPad, principalmente porque eu estava para comprar o Amazon Kindle, mas acho que agora a Amazon irá acelerar o lançamento do Kindle 3.

Mais informações no site da Apple http://www.apple.com/ipad/

Aguarde cenas dos próximos capítulos no mundo da tecnologia.

Até o Delphi 2009 os arquivos templates podem ser localizados no diretório: C:\Program Files\Embarcadero\RAD Studio\6.0\ObjRepos\Code_Templates

A partir do Delphi 2010 os arquivos estão no diretório C:\Program Files\Embarcadero\RAD Studio\7.0\ObjRepos\en\Code_Templates, basicamente foi adicionado o diretório en, referente ao idioma inglês, se você utiliza o Delphi em outro idioma deverá considerá-lo.

Ao pressionar CTRL+J você tem uma lista de templates pré-definidos:

• Declaração de variáveis
• For
• While
• Criação de classes em diferentes formatos
• E muito mais

Vários outros templates podem ser criados, por exemplo um laço (while) em um DataSet, adicionar um lembrete (TO-DO) que algo tem que ser feito, um código específico referenciado um framework próprio, etc. Abaixo dois exemplos:

Ao digitar noteof e pressionar TAB, será executado o Live Template noteof, que adiciona o código abaixo:

  while not dataset.eof do
  begin

    dataset.Next;
  end;

;

Abaixo o template responsável pela mágica, para utilizar este template basta gravar o código abaixo em um arquivo XML e na respectiva pasta mencionada anteriormente.



	


;

Outro exemplo é utilizar o recurso TODO do Delphi de forma mais produtiva, podemos adicionar comentários no código que nos lembre de fazer algo, uma revisão, alteração, exclusão, etc. Quando abrimos a lista de TO-DO ( Menu View-> To-Do List) o mesmo irá percorrer todo o código do seu projeto e mostrar a lista de TO-DO, apenas um duplo-clique e você esta posicionado no ponto exato do código.

A seguir o template criado para adicionar TO-DO, digite todo e pressione TAB, informe o nome do responsável, nome da categoria para esta tarefa e a ação a ser executado.

{TODO -oOwner -cGeneral : ActionItem}
;

Abaixo o código XML para execução deste Live Template, novamente grave este código em um arquivo XML e salve na pasta de templates.

	


;

Muito mais pode ser feito com o Live Templates, com certeza você já deve ter algumas idéias e quer saber como criar estes templates, para isso recomendo a leitura do artigo Live Templates Technical Info

E caso tenha algum live template que deseja compartilhar com a comunidade, me envie que irei postar aqui no blog.

Cada métrica tem os seus limites e estes poderão ser customizados, conforme figura abaixo:

Após executar as métricas os resultados serão analisados através do gráfico de Kiviat, onde o circulo vermelho é o limite definido anteriormente e todos os pontos foram deste círculo mostram que parte do código está rompendo as métricas.

Cada classe poderá ser analisada separadamente. Desta forma, será mais fácil identificar as violações de métricas. Com a auditoria e métrica, o desenvolvedor poderá entregar um código e uma aplicação com mais qualidade tanto interna quanto externa. Tudo isso você pode executar no seu código em qualquer versão a partir do 2006.

Recomendo como leitura adicional outros dois posts:

• Auditanto seu código Delphi – http://www.andreanolanusse.com/blogpt/auditando-seu-codigo-delphi/
• Melhorando a qualidade do seu software Delphi através da UML – http://www.andreanolanusse.com/blogpt/melhorando-a-qualidade-do-seu-software-delphi-atraves-da-uml/

Muitas outras funcionalidades podem ser adicionadas ao projeto acessando as API’s do Twitter, sendo Open Source qualquer um bote contribuir para enriquecer o projeto.

A aplicação final é composta de apenas um executável e a partir da primeira execução seram criados três arquivos com a extensão .DATA que armazenam as mensagens e configurações, estes arquivos estão no formato binário e podem ser lidos através de um ClientDataSet, todo cache da aplicação está baseado nele.

A aplicação traz os seguintes recursos:

• Lista as mensagens
• Lista mensagens que foram mencionadas
• Lista das pessoas que você segue
• Além de mostrar quantos amigos e seguidores

Além disso todo o conteúdo recebido foi trabalho em formato XML e armazenado em ClientDataSet como forma de cache local, existem vários outros recursos, baixe os fontes ou a versão 1.0 e divirta-se.

Aqueles que quiserem contribuir com o projeto são muito bem vindos, contribuindo você pode fazer parte oficialmente do projeto.

O projeto RADTweet está disponível no SorceForge, assim como a versão 1.0

O código abaixo até versões do Delphi 2007, compilado em versões igual ou superiores ao Delphi 2009, receberá esta mensagem ao compilar:

W1050 WideChar reduced to byte char in set expressions. Consider using ‘CharInSet’ function in ‘SysUtils’ unit

var
  Status : Char;
begin

  if Status in [ 'a', 's', 'c']  then
  begin
    ...
  end;

Para evitar este warning, você deverá passar a usar a função CharInSet.

var
  Status : Char;
begin

  if CharInSet(Status, ['a', 's', 'c']) then
  begin
    ...
  end;

O código abaixo irá gerar a mensagem W1057 Implicit string cast from ‘ShortString’ to ’string’

var
  s : ShortString;
  u : string;
begin
  u := s;
end;

Para eliminar este mensagem basta fazer um cast da varíavel ShortString para String, este código será compatível com versões anteriores ao Delphi 2009.

var
  s : ShortString;
  u : string;
begin
  u := String(s);
end;

A mesma situação se aplica para variáveis AnsiString gerando a mensagem W1057 Implicit string cast from ‘AnsiString’ to ’string’

var
  a : AnsitString;
  u : string;
begin
  u := s;
end;

Basta fazer um cast da variável AnsiString para String e a mensagem será eliminada.

var
  a : AnsitString;
  u : string;
begin
  u := AnsiString(s);
end;

A mensagem W1058 Implicit string cast with potential data loss from ’string’ to ‘AnsiString’ precisa ser analizada com cuidado, podemos fazer o cast e resolver o problema, mas você precisa saber o que está fazendo.

var
  a : AnsitString;
  u : string;
begin
  u := s;
end;

Se você tem certeza que a variável a contém apenas caracteres Ansi, poderá fazer o cast sem problemas.

var
  a : AnsitString;
  u : string;
begin
  u := AnsiString(s);
end;

Até aqui vimos as mensagens geradas pelo compilador, Unicode vai muito mais além e se você quiser exportar sua aplicação para países asiáticos por exemplo, terá que suportar Unicode, existem 3 artifos no EDN que eu recomendo a leitura, são eles:

• EDN Article: “Delphi in a Unicode World Part I: What is Unicode, Why do you need it, and How do you work with it in Delphi?” by Nick Hodges
• EDN Article: “Delphi in a Unicode World Part II: New RTL Features and Classes to Support Unicode” by Nick Hodges
• EDN Article: “Delphi in a Unicode World Part III: Unicodifying Your Code” by Nick Hodges

Para uma classe ser disponibilizada como Server Methods é necessário:

• Descender de TPersistent
• Ter a diretiva {$MethodInfo ON}, esta diretiva permite ao DataSnap obter informações da classe a partir da RTTI
• Estar registrada através do componente DSServerClass

Abaixo exemplo de uma classe que não é descendente de TDSServerModule e sim de TPersistant, podemos assumir que esta classe já existia anteriormente e que agora queremos reusar em nosso servidor DataSnap

unit User;

interface

uses
  BaseServerClass,
  Classes,
  DBXCommon,
  SysUtils,
  Dialogs,
  MainServerModule;

type
{$METHODINFO ON}
  TUser = class(TPersistent)
  private

  public
    constructor Create;
    destructor Destroy; override;

    procedure AddUser(FirstLastName, Login, Password: String);

    function IsValidUser(Login, Password: String): Boolean;

    procedure DisableUser(Login: String);
    procedure EnableUser(Login: String);

  end;

implementation

uses
  ServerContainer;

{ TUser }

procedure TUser.AddUser(FirstLastName, Login, Password: String);
var
  Comm: TDBXCommand;
begin

  if (FirstLastName = '') then
    raise Exception.Create('First/Last name is required');

  if (Login = '') then
    raise Exception.Create('Login is required');

  if (Password = '') then
    raise Exception.Create('Password is required');

  Comm := FDbxConnection.CreateCommand;

  Comm.Text :=
    'Insert Into Users (NAME, LOGIN, PASSWORD, ACTIVE ) Values (' + QuotedStr
    (FirstLastName) + ',' + QuotedStr(Login) + ',' + QuotedStr(Password)
    + ', true)';
  Comm.ExecuteQuery;

  FreeAndNil(Comm);

end;

constructor TUser.Create;
begin
  FDbxConnection := DMServerContainer.DataSnap_Server_Log.DBXConnection;
end;

destructor TUser.Destroy;
begin

  inherited;
end;

procedure TUser.DisableUser(Login: String);
var
  Comm: TDBXCommand;
begin

  if (Login = '') then
    raise Exception.Create('Login is required');

  Comm := FDbxConnection.CreateCommand;

  Comm.Text := 'Update Users Set ACTIVE = False Where LOGIN = ' + QuotedStr
    (Login);
  Comm.ExecuteQuery;

  FreeAndNil(Comm);

end;

procedure TUser.EnableUser(Login: String);
var
  Comm: TDBXCommand;
begin

  if (Login = '') then
    raise Exception.Create('Login is required');

  Comm := FDbxConnection.CreateCommand;

  Comm.Text := 'Update Users Set ACTIVE = True Where LOGIN = ' + QuotedStr
    (Login);
  Comm.ExecuteQuery;

  FreeAndNil(Comm);

end;

function TUser.IsValidUser(Login, Password: String): Boolean;
var
  Comm: TDBXCommand;
  Reader: TDBXReader;
begin
  if (Login = '') then
    raise Exception.Create('Login is required');

  if (Password = '') then
    raise Exception.Create('Password is required');

  Comm := FDbxConnection.CreateCommand;

  Comm.Text := 'Select ACTIVE From Users Where LOGIN = ' + QuotedStr(Login)
    + ' and PASSWORD = ' + QuotedStr(Password);

  Reader := Comm.ExecuteQuery;

  if Reader.Next then
  begin
    Result := Reader.Value[0].GetBoolean;
  end
  else
    Result := False;

  Reader.Close;
  FreeAndNil(Reader);
  FreeAndNil(Comm);

end;

end.

Quer saber mais sobre DataSnap, clique aqui.

Quantas vezes você já definiu um guia de melhores práticas de codificação que evitasse que sua equipe de programadores cometesse aquelas gafes de codificação que podem tornar o código tão ineficiente quanto incompreensível?

Suponhamos que sua equipe tenha um guia de melhores práticas, a segunda pergunta fatalmente seria: Como podemos garantir que o guia está sendo seguido?

A resposta novamente seria: revisão de código (code review) e, se encaixarmos tal prática no contexto de um projeto com milhares de linhas de código, sabemos que o resultado pode ser catastrófico no que diz respeito a tempo.

Através do recurso de auditoria de código (QA Audits) do Delphi você poderá finalmente definir um conjunto de boas práticas de codificação e garantir que estas práticas estão sendo seguidas em seus projetos. Traduzindo para o dia-a-dia, você irá detectar erros que podem ocorrer na aplicação antes de ela ser executada.

A auditoria verifica se o código está em conformidade com as regras e parâmetros estabelecidos pela organização. Os resultados apresentam apenas as violações detectadas e de forma categorizada, são elas:

• Arrays e Referências
• Código duplicado
• Conteúdo supérfluo
• Desempenho
• Desvios e laços
• Estilo de codificação
• Estilo de nomenclatura
• Expressões
• Falhas de projeto (design)
• Possíveis erros

Cada item da auditoria tem uma nota explicativa representando o modo correto e o incorreto para utilização da mesma, tornando mais fácil o entendimento por parte do desenvolvedor naquele item da auditoria. Cada um desses itens pode ter seu nível de severidade alterado entre: Info, Warning e Error. Ficando a critério do desenvolvedor definir a importância do item.

Loop Body is Never Executed (LBNE)

Em muitos casos, temos rotinas de execução que envolve vários loops e é necessário depurar para ter certeza que os loops serão executados. Com a auditoria LBNE, isso pode ser detectado. O código abaixo é um exemplo simples que podemos detectar. Exemplos complexos, com diversas condições, também são detectados facilmente.

var
   x: Boolean;
begin
  x := false;
  while s do
  begin
     ....
  end;

INDEX OUT OF BOUNDS (IOB)

Esta mensagem é comum quando se tenta acessar uma posição de array inexistente. Veja abaixo um exemplo de um código que irá gerar este aviso.

var
  nloops,
  i,
  j :integer;
  matriz : array of integer;
  somatorio : double;
begin
  for i := 0 to nloops do
  begin
      somatorio := 0;
      for j := 0 to High(matriz) do
          somatorio := somatorio + matriz[i];

  end;

A auditoria apontou o erro e informa que na linha 25 existe a tentativa de acesso a uma variável que não faz do 2º loop, vamos explicar melhor.
No for da variável J, estou tentando acesso a uma posição do array ARR, apontando para a posição I do loop anterior, sendo que no for da variável J é onde está sendo percorrido o array ARR.

São mais de 200 auditórias disponíveis no Delphi, que tal executar o processo de auditória no seu código, não se assuste com o resultado , a idéia é lhe ajudar a melhorar a qualidade do seu produto final.

Durante todo o desenvolvimento do Delphi 2009, tivemos reuniões com várias empresas desenvolvedoras de componentes e Allen Bauer, Delphi Chief Scientist, através do seu blog comentou sobre o suporte a Unicode. Estas iniciativas foram fundamentais para permitir que componentes de terceiros estejam disponíveis rapidamente para o Delphi 2009 e informar aos desenvolvedores como trabalhar com Unicode.

Unicode é um padrão que permite aos computadores representar e manipular, de forma consistente, texto de qualquer sistema de escrita existente.

The Unicode Standard: Version 5.0. 5. ed. Addison-Wesley Professional, 2006. 1472 p

Diversos conjuntos de caracteres como chineses, japoneses, russos e outros de origem asiáticas são representados através de Unicode, utilizando, na maioria dos casos, sistemas de mapeamento e codificação UTF (Formato de Transformação Unicode) e UCS (Conjunto Universal de Caracteres). Para maiores detalhes sobre Unicode, recomendo o seguinte link: http://pt.wikipedia.org/wiki/Unicode.

O resultado foi um Delphi 100% Unicode, sem exceção. Você deve estar se perguntando, a migração é tranqüila? Podemos dizer que sim, muita coisa foi tratada pela VCL e pelo compilador.

Uma das grandes mudanças foi nos tipos String, que anteriormente era baseado em padrão ANSI. Agora estão baseadas em padrão UNICODE. Os tipos AnsiString e WideString continuam funcionando da mesma forma, exceto para tamanho de dados.

Resumo das mudanças para Unicode:

• String mapeia UnicodeString e não mais AnsiString
• Char agora mapeia WideChar (2 bytes e não 1 byte) e é um caractere UTF-16
• PChar mapeia PWideChar
• AnsiString mapeia o antigo tipo String

Não ocorreram mudanças:

• AnsiString
• WideString
• AnsiChar, PAnsiChar
• Short String contém elementos AnsiChar
• Conversões implícitas continuam funcionando
• O editor de código controla o modo de gravação (Unicode vs AnsiString), ambos continuam sendo suportados.

Operações que não dependem do tamanho do caractere:

• Concatenação de Strings
• Funções padrão para manipulação de Strings, exemplo: Lenght, Copy, Pos e outras.
• Operadores, exemplos: <string> <op. de comparação> <string>, CompareStr(), CompareText(), etc.
• FillChar ( <struct or memory> )
• Windows API

Operações que envolvem tamanho de caractere em bytes, talvez requeiram algumas mudanças, nada complicado, aqui vai uma dica, verifique código onde você:

1. Assume que o Sizeof (Char) é 1.
2. Assume que o tamanho de uma string é igual ao número de bytes na string.
3. Manipula diretamente String ou PChars.
4. Grava ou lê string de/para um arquivo.

Os itens 1 e 2 não valem para Unicode, porque para Unicode Sizeof (Char) são 2 bytes e o tamanho de uma string é duas vezes o número de bytes. Além disso, o código que lê e grava arquivos precisa entender o número correto de bytes para efetuar estas operações, pois um caractere não é mais representando por 1 byte.

Como vocês podem ver, a migração é muito tranqüila. O benefício de suportar Unicode é permitir que o desenvolvedor Delphi distribua as suas aplicações em todo o mundo. O Brasil hoje é um dos grandes desenvolvedores de software mundiais. Diversas empresas brasileiras distribuem as suas aplicações na China, Japão, Rússia e outros Países onde Unicode é fundamental.

Em 2007, o governo Russo adquiriu 1 milhão de licenças de Delphi, que serão utilizadas para ensinar alunos do 1º e 2º graus a desenvolver software com Delphi. Portanto, o suporte a Unicode é fundamental naquele País.

Para ajudar a conhecer todos os recursos do Delphi 2010 e auxiliar na migração disponibilizamos o RAD Studio Migration Center, onde você encontrará diversos materiais, como artigos e vídeos, divirtam-se.

Desde o Delphi 2006 podemos utilizar a UML com todos os seus diagramas e, além disso, a utilização do LiveSource, que permite sincronização entre diagrama de classe e código.

Cada diagrama na UML tem a sua representatividade, alguns representam modelos de negócios e, portanto, não faz sentido gerar código a partir dele. Outros a representação fiel do código, por exemplo, o diagrama de classe. Abaixo, alguns dos diagramas disponíveis e suas funcionalidades.

• Use Case – é uma forma de descrever a interação entre um sistema e o mundo real, sendo que os atores que podem ser pessoas ou sistemas, representam o mundo real.
• Class Diagram – representa as classes do sistema e seus relacionamentos.
• Collaboration – utilizado para modelagem de aspectos dinâmicos de um sistema ou subsistema.
• Activity – permite representar situações dinâmicas através de um fluxo, por meio dele será possível representar o fluxo entre objetos.
• Component – utilizada para modelagem de mais alto nível, onde existam estruturas complexas. Este diagrama ilustra pedaços de sistemas, controles embutidos etc.
• State – Especifica a seqüência de eventos de um determinado objeto.

Diagrama de caso de uso

Visualizar um diagrama de classes torna muito mais fácil o entendimento sobre as classes nele existentes do que utilizar código. Vejamos um exemplo do próprio Delphi: a unit Buttons.pas tem diversos componentes dentro dela como TBitBtn, TSpeedButton e outros. Imaginem entender 1946 linhas de código para saber quais componentes e relacionamento existem entre eles. Através da engenharia reversa, fica muito fácil de entender, veja a figura abaixo.

Diagrama de Classe

A engenharia reversa pode ser feita a qualquer momento a partir do código Delphi, desta forma vemos que este recurso do Delphi auxilia e muito na evolução e entendimento do código, seja atual ou legado.

O livro foca 100% na linguagem Delphi Prism a no entendimento do .NET Framework, ou seja, pra você que quer começar em .NET com Delphi é tudo o que você precisa. O livro está sendo comercializado pela GOPAC (Partner da Embarcadero no México) e já está disponível para aquisição.

Existe planos de traduzir o livro para o Português, mas ainda não temos data definida, visto que é um grande trabalho.