Andreano Lanusse Blog em Português » Delphi (Win32)

Utilizando expressões regulares para validar endereço IP no Delphi XE

Andreano Lanusse — Thu, 09 Sep 2010 06:46:26 +0000

Umas das novidades no Delphi XE e o suporte a expressões regulares (unit RegularExpressions) na RTL, esse recursos nos permite fazer diversos tipos de validação, abaixo um exemplo de como utilizar este recurso para validar se o valor em uma string é realmente um endereço IP.

program RegExpIP;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  RegularExpressions;

var
 ipRegExp : String;
begin
  try

    ipRegExp := '\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b';

  if TRegEx.IsMatch(paramstr(1), ipRegExp) then
    Writeln('Text DOES match the regular expression')
  else
    Writeln('Text DOES NOT match the regular expression');

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Para validar basta executar o programa e passar como parâmetro o endereço IP

Neste caso o IP é válido
RegExpIP 200.100.2.21
Text DOES match the regular expression

Neste caso o IP não é valido, pois 263 está fora do intervalo permitido
RegExpIP 200.100.2.263
Text DOES match the regular expression

No repositório de exemplos do RAD Studio você pode encontrar um exemplo com outros tipos de expressões regulares.

Faça o download da versão trial do Delphi XE aqui

Posts relacionados

Ao comprar Delphi XE (aka Delphi 2011) você recebe as versões do Delphi 7, 2007, 2009 e 2010

Andreano Lanusse — Wed, 08 Sep 2010 10:43:25 +0000

As últimas 2 semanas tem sido bem corridas, começamos o RAD Studio XE World Tour, estive fazendo o lançamento em Los Angeles, Orange County, Guadalajara e amanhã será na Cidade do México, isso é só o começo. As centenas de desenvolvedores que até aqui participaram dos eventos e conheceram na prática tudo sobre o novo RAD Studio XE só tem elogios.

Uma das novidades do Delphi XE está relacionada a licenças anteriores, ao comprar seu Delphi XE você irá receber uma licença para o mesmo desenvolvedor das versões anteriores: Delphi 7, Delphi 2007, Delphi 2009 e Delphi 2010. O mesmo se aplica para C++Builder e Delphi Prism, ficando assim:

C++Builder XE -> C++Builder 2010, C++Builder 2009, C++Builder 2007 e C++Builder 6
Delphi Prism XE -> Delphi Prism 2011, 2010 e 2009
RAD Studio XE -> todas acima

Porque não incluímos Delphi 2006 nesta lista? Não o incluímos porque Delphi 2006 usa algumas tecnologias de terceiro que já não estão mais disponíveis, o mesmo se aplica ao C++Builder 5. No caso do RAD Studio 2007 não incluímos a personalidade Delphi .NET visto que está é uma tecnologia antiga e oferecemos o Delphi Prism que traz suporte as últimas versões de .NET.

Ao comprar sua licença você terá de acessar nosso site para gerar o serial number para uma das versões anteriores, caso você já tenha uma das versões anteriores registradas você não irá receber o mesmo serial number registrado anteriormente, ou seja, você não terá uma segunda licença de uma versão já registrada.

O prazo para solicitar as licenças anteriores é de 180 dias e deve ser feito através do link http://www.embarcadero.com/xe-earlier-versions

Vale lembrar que estas licenças estão registradas ao seu usuário e não poderão ser repassadas a outros.

Posts relacionados

Teste nosso servidor DataSnap XE instalado no Amazon Cloud

Andreano Lanusse — Thu, 02 Sep 2010 23:39:56 +0000

Funciona assim, instalamos InterBase e uma aplicação DataSnap Server no Amazon EC2 e disponibilizamos a aplicação DataSnap client desenvolvidade em Delphi.

Se você quer usar um cliente DataSnap e ver na prática como é rápido o DataSnap XE, faça o download da aplicação cliente desenvolvida em Delphi e navegue pelas opções disponíveis na aplicação. O servidor estará disponível durante as próximas 24 horas.

Aqui algumas orientações sobre a aplicação que irá lhe ajudar a entender o que acontece quando você executa alguns dos server methods:

Tab Server Methods

Button Get Server DateTime – retorna a data e hora a partir do servidor Amazon
Jobs available – lista os registros a partir de um ClientDataSet, você pode editar, deletar e inserir dados

Using ClientDataSet (Master-Detail)

ClientDataSet usando modelo Master-Detail (somente leitura)

Reading Data from DBXReader

Essa tab tem 3 botoões, o primeiro lista os departamentos, o segundo diz ao objeto no server que a próxima requisição deverá ser ordernada por ID, o próximo botão irá ordernar por NOME. Este objeto no servidor é singleton, ou seja, tem apenas uma instância, se quando você solicitar a lista de departamento e esta não vier ordenada pelo item que você solicitou é porque alguém fez uma solicitação ao server para ordenar por outro campo. Este é um exemplo simples mostrando como funciona a gerenciamento de objetos.

Using DBX framework to send TParams

Adiciona registros na tabela Department passando os dados como um objeto TParams

Object Transfer

Recebe objetos do servidor

Faça o download da aplicacão cliente para DataSnap aqui, unzip, clique e execute.

Este é um pequeno exemplo que mostra alguma das funcionalidades do DataSnap, Anders foi responsável pelo processo de teste .

Posts relacionados

Disponibilizada nova versão do Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE

Andreano Lanusse — Tue, 31 Aug 2010 04:53:08 +0000

Acabamos de anunciar a disponibilidade das novas versões XE do RAD Studio, Delphi, C++Builder, Delphi Prism e do mais novo RadPHP agora parte do RAD Studio.

Aproveita a promoção de upgrade para o RAD Studio XE e obtenha tenha acesso a todas as ferramentas Embarcadero.

Todas as informações sobre os produtos já estão disponíveis em nosso website, aqui alguns links:

Informação sobre os produtos
Versões trial

O RAD Studio XE Tour começa essa semana e irá percorrer 70 cidades no mundo todo, além de eventos online.

O primeiro evento online para o Brasil será da 15 de setembro das 14:00 às 16:00 (Horário de Brasilia). Em breve as inscrições estarão abertas.

Estarei pessoalmente nas seguintes cidades:

1 de Setembro – 7:00pm-9:00pm – Orange Co., CA
2 de Setembro – 7:00pm-9:00pm – Los Angeles, CA
7 de Setembro – 8:30am-1:00pm – Guadalajara, MX
9 de Setembro – 8:30am-1:00pm – Mexico D.F., MX

Enquanto isso faça o download do trial e conheça na prática as novidades.

Posts relacionados

DataSnap XE e Windows Azure – RAD Studio XE Preview #3

Andreano Lanusse — Tue, 24 Aug 2010 09:06:34 +0000

Uma das grandes novidades no RAD Studio XE é o suporte a Cloud Computing, neste mostramos como acessar serviços no Microsoft Azure através de servidores DataSnap. Além disso o DataSnap XE traz várias novidades nesta versão, como por exemplo o suporte a autenticação e acesso a métodos a partir de grupo de usuários.

Neste vídeo você irá conhecer a integração com Cloud Computing, divirta-se.

Agora acesse a página do RAD Studio XE Preview e conheça mais sobre outras novidades do Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE.

Posts relacionados

Desenvolvimento Ágil = Delphi XE + C++Builder XE + Delphi Prism XE + RadPHP XE

Andreano Lanusse — Tue, 17 Aug 2010 18:02:43 +0000

Acaba de ser publicado o segundo preview do RAD Studio XE, que inclui as novas versões Delphi, C++Builder, Delphi Prism e RadPHP (anteriormente Delphi for PHP), neste vídeo demonstramos como você pode acelerar seu processo de desenvolvimento e melhorar a qualidade das suas aplicações usando algumas das ferramentas de terceiro que acompanha o RAD Studio XE.

Este vídeo mostra:

FinalBuilder (nas versões Enterprise e Architect) para automatizar o processo de build
Linha de comando para auditórias, métricas e geração de documentação trazendo mais funcionalidades a automatização de builds
Recursos do AQTime profiling que lhe permite distribuir aplicações de alta performance
CodeSite para registros avançados de log, melhorando a qualidade das suas aplicações

Assista o vídeo:

Semana que vem teremos mais previews, enquanto isso você pode ir visitando a página do RAD Studio XE Preview

Posts relacionados

RAD Studio XE agora com Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE

Andreano Lanusse — Tue, 10 Aug 2010 08:07:12 +0000

Amigos desenvolvedores, agora não é mais segredo, durante as próximas 3 semanas vocês irão conhecer algumas das novidades do próximo RAD Studio XE, você esperava algo como RAD Studio 2011 ou Delphi 2011 o que não deixa de ser, mas a nova versão do RAD Studio, Delphi, C++Builder, Delphi Prism e RadPHP se chama XE, uma mudança de nome que traz maior consistência as versões dos nossos produtos, entretanto as versões XE dos nossos produtos trazem:

Suporte heterogêneo a vários bancos de dados incluído no produto sem custo adicional
Suporte ao ToolCloud, nossa solução para gerenciamento e distribuição de licenças para as empresas
Os produtos XE oferecem upgrade para o All-Access XE, onde você pode ter todas ferramentas para desenvolvimento e banco de dados da Embarcadero.

E além disso outras novidades, como:

RAD Studio XE é o conjunto de ferramentas da Embarcadero para desenvolvimento nativo, .NET e WEB que acompanha Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE
RadPHP anteriormente conhecido como Delphi for PHP vem em nova versão e com várias novidades para o desenvolvimento de aplicações PHP
Integração completa com Subversion no Delphi XE, C++Builder XE e Delphi Prism XE
Agilidade no processo de desenvolvimento automatizando builds com FinalBuilder e algumas das funcionalidades do RAD Studio através de linha de comando
Geração de Diagramas de Sequência a partir de código Delphi
AQTime integrado e parte do RAD Studio XE melhorando a qualidade das aplicações através do Performance Profiler.

Assista o vídeo abaixo e conheça alguma das novidades na prática.

Isso é só o começo, durante as próximas 3 semanas estaremos comentando as novidades e trazendo novos vídeos.

Aproveita para visitar a página do RAD Studio Sneak Preview

Até breve.

Posts relacionados

Como trabalhar com multiplas transações utilizando dbExpress Framework

Andreano Lanusse — Mon, 12 Jul 2010 00:04:42 +0000

Olá pessoal, mais um post sobre dbExpress Framework, desta vez vamos focar em controle de transações. É comum termos situações onde precisamos ter mais de uma transação em uma mesma conexão ao banco de dados, essa tarefa no dbExpress é bem simples.

O método TDBXConnection.BeginTransaction inicia uma transação no banco de dados, o tipo desta transação irá depender do parâmetro a ser passado durante a criação da transação, estes tipos podem ser:

TDBXIsolations.ReadCommitted
TDBXIsolations.RepeatableRead
TDBXIsolations.DirtyRead
TDBXIsolations.Serializable
TDBXIsolations.SnapShot

Você pode consultar a documentação do RAD Studio online e entender cada tipo de isolamente transacional aqui. Importante lembrar que o isolamento transacional irá variar de banco para banco, verifica quais o seu banco de dados suporta.

Ao iniciar uma transação o método BeginTransaction retornará um objeto do tipo TDBXTransaction onde você poderá efetuar o Commit e Rollback da transação.

No exemplo abaixo temos duas transações onde através de uma efetuamos 5 inserts, o resultado da query mostra que os registros estão no banco de dados e não comitados ainda, a partir dai iniciamos outra transação com o nível de isolamento ReadCommited, que quer dizer trazer todos os registrados que estejam efetivamente “comitados” no banco, como ainda não fizemos o commit, o resultados do select virá fazio, ao final efetuamos o Rollback para que os registros não sejam efetivamente gravados na base de dados e depois efetuamos um commit na transação de consulta.

O código ficaria assim:

program MultipleTransaction;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  DBXDynalink,
  DBXCommon,
  DBXInterbase;

Const
  InsertSQL : String = 'Insert Into Country Values ( ''%s'', ''%s'' )';

var
  ConnName: string;
  Conn: TDBXConnection;
  TransSelect,
  TransInsert  : TDBXTransaction;
  Cmd: TDBXCommand;
  Reader: TDBXReader;
  i : integer;

begin

  Conn := TDBXConnectionFactory.GetConnectionFactory.GetConnection
    ('employee ib', 'sysdba', 'masterkey');

  if Conn <> nil then
  begin

    Cmd := Conn.CreateCommand;

    // Start transaction - only inserts
    TransInsert := Conn.BeginTransaction(TDBXIsolations.ReadCommitted);

    for I := 1 to 5 do
    begin
      Cmd.Text := Format(InsertSQL, [ 'Record ' + IntToStr(I), IntToStr(I)]);
      Cmd.Prepare;
      Cmd.ExecuteUpdate;
    end;

    // Prepare and execute the SQL Statement
    Cmd.Text := 'SELECT * FROM Country Where Country Like ''Rec%''';
    Cmd.Prepare;

    Reader := Cmd.ExecuteQuery;

    Writeln('========== First Select including the new 5 records');
    while Reader.Next do
      Writeln(Reader.Value['Country'].GetAnsiString);

    // Start new transaction - doesn't include the inserted record
    TransSelect := Conn.BeginTransaction(TDBXIsolations.DirtyRead);

    Writeln('====================================================');
    Writeln('');

    Reader := Cmd.ExecuteQuery;

    Writeln('========== Second Select based on new transaction');
    while Reader.Next do
      Writeln(Reader.Value['Country'].GetAnsiString);

    // Commit Select transaction and Rollback the Insert transaction
    Conn.CommitFreeAndNil(TransSelect);
    Conn.RollbackFreeAndNil(TransInsert);

    Readln;
    Reader.Free;
    Cmd.Free;
    Conn.Free;

  end;

end.

Ao executar o código acima, temos o seguinte resultado:

Posts relacionados

Delphi Tour 2010 – slides e exemplos disponibilizados para download

Andreano Lanusse — Fri, 25 Jun 2010 20:26:49 +0000

Estimados desenvolvedores Delphi, primeiramente obrigado a todos que participaram do Delphi Tour 2010, foram 2 semanas por várias cidades conversando frente a frente com a comunidade Delphi, compartilhando conhecimento e anotando as inúmeras sugestões para fazer o Delphi cada vez melhor.

Como prometido, estou disponibilizando os slides e exemplos utilizados nas apresentações, somente a apresentação sobre o RAD Studio RoadMap será direcionado para o EDN, onde o mesmo é atualizado frequentemente e pode ser acessado através deste link.

Resolvendo problemas de performance em aplicações Delphi e bancos de dados

Testando aplicações DataSnap

Integrando Skype em aplicações Delphi

Delphi Prism 2011

O código fonte dos exemplos utilizados nas apresentações sobre DataSnap e Skype, podem ser obtidos através dos links abaixo:

Aplicação ASP.NET utilizando AJAX, dbExpress, Themes, Skin e outros recursos, download aqui
Aplicação DataSnap, cliente, servidor e testes unitários, download aqui
Aplicação Delphi integrada a Skype, utillizando Skype API e Skype4COM, download aqui

Posts relacionados

Delphi Tour 2010 – Um resumo do que será o evento

Andreano Lanusse — Fri, 11 Jun 2010 05:30:30 +0000

Comunidade, O objeto deste post é comentar um pouco do que pretendo apresentar do Delphi Tour 2010, novidades e muito conteúdo técnico que lhe ajudará a aprimorar seu conhecimento em desenvolvimento Delphi.

Vamos começar atualizando vocês sobre a Embarcadero e o novo RoadMap do Delphi, onde trago detalhes em primeira mão dos nossos planos para o futuro do Delphi.

Em seguinda vamos abordar o novo Delphi Prism 2011, que está prontinho e 100% compatível com .NET 4, são várias as novidades no produto, novos recursos na linguagem, suporte a SilverLight, paralell FX, importar código C# para Delphi, suporte a MonoDevelop que integrado ao MonoTouch nos permite criar aplicações para iPhone com Delphi.

O próximo tema vai focar em problemas de otimização de SQL em aplicações Delphi, vocês vão ver como otimizar SQL mal escritos nas suas aplicações de forma muito fácil, tudo isso através da integração entre Delphi e DB Optimizer.

Depois um dos temas mais esperados e o meu favorito DataSnap. Nesta apresentação vamos conversar bastante sobre testes em aplicações DataSnap, os ServerMethods nos permite fazer milagres e altamente flexível, isso nos permite trabalhar e automatizar muitos testes. Durante a apresentação vou mostrar algumas exemplos de como fazer isso, assim como as melhores práticas no desenvolvimento.

Pra finalizar, vou mostrar como desenvolver aplicações integradas aos Skype, usar todos os recursos do Skype juntamente com sua aplicação, analisar as API’s disponíveis, comentar suas vantagens e desvantagens e mostrar na práticas como utilizá-las.

Além disso, aqueles que participarem do Delphi Tour terão descontos especiais. Um aviso muito importante, este mês é a última chance de atualizar suas licenças antigas (Delphi 1 a Delphi 7) com preço upgrade, se você não fizer agora, irá pagar preço cheio.

As inscrições para o Delphi Tour estão abertas, corra e garanta sua vaga já – Inscrições aqui

Posts relacionados

Delphi Tour 2010

Andreano Lanusse — Mon, 31 May 2010 02:37:13 +0000

Comunidade Delphi está chegando o Delphi Tour 2010, as inscrições já foram abertas e serão 8 cidades que receberão este Tour. No mês da copa teremos Delphi Tour no Brasil e a corrida ao HEXA .

Serão 2 semanas de Delphi Tour, onde estarei apresentando diversos temas relacionados ao desenvolvimento de aplicações e gostaria de convidar toda a comunidade Delphi a participar deste evento, como de sempre 100% técnico e com um conteúdo excelente.

Este Tour trará os seguintes temas:

Embarcadero Update e Delphi RoadMap Para começar vamos apresentar os planos atuais e futuras da Embarcadero e o novo Delphi RoadMap
Novidades do Delphi Prism 2011 Nesta sessão você irá conhecer o novo Delphi Prism 2011 com total suporte a .NET 4.0 e integrado ao Visual Studio Shell 2010, além de diversas outras novidades suporte a SilverLight 4, ASP.NET, MVC, parallel extensions, novos recursos na linguagem e conversão de código C# para Delphi Prism.
Resolvendo problemas de performance em aplicações Delphi e bancos de dadosEncontrar as causas dos problemas de desempenho em aplicações e banco de dados consome muito tempo e não é uma tarefa simples. Durante esta apresentação através de um cenário real vamos conhecer como a integração entre ER/Studio, RAD Studio e DB Optimizer nos pode ajudar a localizar e resolver os problemas no código, SQL e banco de dados.
Testando aplicações DataSnapA nova arquitetura do DataSnap permite disponibilizar regras de negócios através de Server Methods, esta arquitetura facilita a integração com frameworks de testes, com isso podemos automatizar os testes a cada nova versão dos servidores DataSnap, durante esta apresentação vamos aprender como implementar testes em nossos projetos DataSnap.
Integrando Skype em aplicações DelphiSkype é um dos meios mais utilizados no mundo para conectar pessoas, milhões de usuários utilizam esta ferramenta diariamente, assim sendo porque não integrar nossas aplicações ao Skype? Através do Skype API podemos efetuar chamadas, receber, encaminhar, criar vídeo conferência e muito mais, praticamente tudo está disponível através desta API. Nesta apresentação vamos aprender na prática como integrar nossas aplicações Delphi ao Skype e utilizar os componentes TMS Smooth Controls para criar interfaces ricas.

O conteúdo é de primeira, enquanto isso faça sua inscrição aqui , comente com seus amigos e ajude a divulgar o evento.

Posts relacionados

Como utilizar parâmetros em dbExpress (DBX) Framework

Andreano Lanusse — Tue, 25 May 2010 18:23:22 +0000

Em reposta a dúvida do Rafael e Carlos Gonzaga sobre como criar consultadas parametrizadas com dbExpress Framework resolvi escrever sobre o tema.

Para começar, existe uma pequena diferença ao utilizar parâmetros em SQL com DBX Framework e VCL. Enquanto a VCL utiliza “:PARAMETRO” para definir parâmetros em uma query, em DBX Framework parâmetro é representado pelo sinal de “?” e não inclui nome.

Como estamos acostumados com a VCL e certamente é muito mais legível codificar utilizando o nome dos parâmetros, você espera trabalhar da mesma forma com DBX Framework e isso é possível criando uma pequena extensão ao DBX Framework.

Para entender melhor, caso você utilize puramente o framework, seu código seria assim:

program DBX4Example;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  DBXDynalink,
  DBXCommon,
  DBXInterbase;

var

  aDBXConn: TDBXConnection;
  aDBXTrans : TDBXTransaction;
  aCmnd: TDBXCommand;
  aReader: TDBXReader;

begin

    aDBXConn := TDBXConnectionFactory.GetConnectionFactory.GetConnection('employee ib','sysdba','masterkey');

    if aDBXConn <> nil then
    begin

      aCmnd := aDBXConn.CreateCommand;

      // Start transaction
      aDBXTrans:= aDBXConn.BeginTransaction(TDBXIsolations.ReadCommitted);

      // Prepare and execute the SQL Statement
      aCmnd.Text := 'SELECT * FROM Country  Where Country = ?';
      aCmnd.Prepare;
      aCmnd.Parameters.Parameter[0].Value.SetAnsiString('USA');
      aReader := aCmnd.ExecuteQuery;

      while aReader.Next do
      begin
        Writeln( aReader.Value['Country'].GetAnsiString );
      end;

      // Commit transaction
      aDBXConn.CommitFreeAndNil(aDBXTrans);

      Readln;
      aReader.Free;
      aCmnd.Free;
      aDbxConn.Free;
    end;
end.

Veja que a query utiliza interrogação para definir o parâmetro e após o Prepare a longa linha para definir o valor do parâmetro com posição zero.

Esta primeira parte responderia a pergunta do Rafael e do Carlos, mas podemos tornar esse código mais amigável utilizando Class Helpers, recurso este que foi implementado no Delphi 2006 e nos ajuda a extender classes sem utilizar herança.

Assim sendo vou estender a classe TDBXParameterList, o qual irá permitir que eu nomeie os parâmetros e define seus respectivos valores por nome.

O código abaixo estende a classe utilizando a sintaxe class helper, veja bem isso não é herança. Esta extensão define os seguintes métodos:
SetParamatersName: este método irá receber uma lista de nomes, o qual será usado para nomear os parâmetros, você deve passar a quantidade de nomes igual a quantidade de parâmetros;
ByName: método que nos permite acessar os parâmetros através do nome, o DBX Framework traz o método GetOrdinal que permite acessar os parâmetros por nome, o ByName irá simplificar este acesso;

unit DBXParameterListHelper;

interface

uses
  DBXCommon, SysUtils;

type
  TDBXParameterListHelper = class helper for TDBXParameterList

  public
    procedure SetParamatersName(aNames: Array of String);
    function ByName( Name : String ) : TDBXWritableValue;
  end;

implementation

{ TDBXParameterListHelper }

function TDBXParameterListHelper.ByName(Name: String): TDBXWritableValue;
begin
  Result := Self.Parameter[Self.GetOrdinal(Name)].Value;
end;

procedure TDBXParameterListHelper.SetParamatersName(aNames: array of String);
var
  i: Integer;
begin

  if Length(aNames) <> Self.Count then
     raise Exception.Create('aNames should have the same number of parameters');

  for i := 0 to Self.Count - 1 do
  begin
    Self[i].Name := aNames[i];
  end;
end;

end.

Com está extensão esta parte do código:

      // Prepare and execute the SQL Statement
      aCmnd.Text := 'SELECT * FROM Country  Where Country = ?';
      aCmnd.Prepare;
      aCmnd.Parameters.Parameter[0].Value.SetAnsiString('USA');

Ficaria assim:

      // Prepare and execute the SQL Statement
      aCmnd.Text := 'SELECT * FROM Country  Where Country = ?';
      aCmnd.Prepare;
      aCmnd.Parameters.SetParamatersName(['COUNTRYNAME']);
      aCmnd.Parameters.ByName('COUNTRYNAME').SetAnsiString('USA');

Caso a query tenha vários parâmetros, ficaria assim:

      // Prepare and execute the SQL Statement
      aCmnd.Text := 'SELECT * FROM Country  Where Country = ? and Currency = ?';
      aCmnd.Prepare;
      aCmnd.Parameters.SetParamatersName(['COUNTRYNAME', 'CURRENCY']);
      aCmnd.Parameters.ByName('COUNTRYNAME').SetAnsiString('USA');
      aCmnd.Parameters.ByName('CURRENCY').SetAnsiString('Dolar');

Ao final vimos como utilizar consultas parametrizadas com DBX Framework e como utilizar class helper para estender classes.

Download do código fonte aqui.

Posts relacionados

Delphi, ER/Studio e DB Optimizer em ação

Andreano Lanusse — Tue, 25 May 2010 00:57:10 +0000

Recentemente eu comentei aqui sobre 2 promoções tentadoras para os usuários de Delphi e C++Builder, em uma delas você compra RAD Studio Enterprise e leva Architect, que inclui o ER/Studio Developer Edition e o DB Optimizer GRÁTIS.

Nada melhor do que assistir um vídeo e ver como estas 3 ferramentas juntas podem lhe ajudar.

Obtenha todas as informações sobre as promoções aqui.

Posts relacionados

Duas promoções tentadoras para os usuários de Delphi e C++Builder

Andreano Lanusse — Mon, 03 May 2010 18:25:07 +0000

Desde o dia 26 de Abril até 28 de Junho de 2010 está rolando duas promoções muito interessante para aqueles que desejam atualizar ou adquirir novas licenças de Delphi 2010 ou C++Builder 2010.

Promoção 1 – Você compra Delphi 2010 ou C++Builder 2010 e leva RAD Studio que inclui Delphi, C++Builder e Delphi Prism

Promoção 2 – Você compra RAD Studio 2010 Enterprise e leva RAD Studio 2010 Architect e DB Optimizer.

Para quem não conhece o DB Optimizer é uma ferramenta para otimização e tunning de SQL.

Tanto na Promoção 1 como na Promoção 2 você ainda leva o livro Delphi 2010 Handbook e os componentes TMS Smooth Controls, totalmente grátis.

Mais informações aqui.

Posts relacionados

Copiando estrutura e dados de um DBXReader para ClientDataSet – DataSnap 2010

Andreano Lanusse — Sat, 24 Apr 2010 23:30:31 +0000

Aqueles que estão utilizando DataSnap 2010 passam a utilizar o DBXFramework, o qual recomendo muito para operações onde não existe a necessidade de expor e navegação bi-direcional.

Existem casos onde será necessário copiar a estrutura e os dados de um DBXReader para ClientDataSet ou Params, pensando nisso no Delphi foi criada a unit DBXDBReaders.pas que traz algumas classes que permite essa operação.

A classe TDBXDataSetReader possui dois método que permitem copiar para um ClientDataSet já existente ou retorna um novo ClientDataSet, veja o exemplo abaixo.

var
  Reader: TDBXReader;
  DepClient: TDepartmentClient;
begin
  DepClient := TDepartmentClient.Create(DMClientContainer.MyDSServer.DBXConnection, False);

  try
    Reader := DepClient.GetDepartmentsOrderBy;

    try
      if Assigned(Reader) then
      begin
        TDBXDataSetReader.CopyReaderToClientDataSet(Reader, DMClientContainer.CDSCopy);
      end;
    finally
      FreeAndNil(Reader);
    end;

  finally
    DepClient.Free;
  end;

O ClientDataSet CDSCopy já existe e é parte do DataModule DMClientContainer, caso o ClientDataSet não existe, utilizar o método TDBXDataSetReader.ToClientDataSet e esta irá retornar um novo ClientDataSet.

Meus exemplos sobre DataSnap 2010 foram atualizados e você pode efetuar o download aqui.

Posts relacionados

Disponibilizado o Hotfix 2 para RAD Studio 2010

Andreano Lanusse — Mon, 12 Apr 2010 21:04:32 +0000

Já está disponível para download o Hotfix 2 para RAD Studio 2010 (Delphi 2010 e C++Builder 2010) http://cc.embarcadero.com/item/27671

Este hotfix traz os seguintes updates:

Retorna as opções do Type Library “SafeCall function mapping” e “Source Refreshing” – Delphi Options.
Resolve um problema com o CPP32.EXE quando arquivos de fonte C++ estão em minúsculo and nome contendo mais de 9 caracteres, com este fix o nome do arquivo será preservado.
Resolve problem de comunicação no DataSnap quando utilizando Filters.

Para ter acesso ao Readme do RAD Studio 2010 Hotfix 2 acesse o EDN

Posts relacionados

Autenticação utilizando DataSnap 2010 e TCP/IP Transport

Andreano Lanusse — Mon, 29 Mar 2010 06:18:57 +0000

Uma das perguntas mais frequentes em relação ao DataSnap se diz respeito a como implementar autenticação no DataSnap Server utilizando TCP/IP como Transporter (componente TDSTCPServerTransporter), visto que quando utilizamos HTTP temos um componente e método expecifico para tal tarefa.

A pergunta é válida, pois sem isso qualquer um poderá conectar a seu servidor DataSnap e executar os Server Methods disponíveis. O objetivo deste post é mostrar como fazer isso de forma bem simples.

Vou assumir aqui que você já tem algum conhecimento do novo DataSnap, em caso contrário recomendo ler os posts e assistir os vídeos aqui publicados.

Para começar temos que passar ao servidor o usuário e senha, como o seu caminho de conexão é o componente SQLConnection é nele que estaremos armazenado estas duas informações, utilizando a propriedade Params.

Geralmente utilizamos UserName e Password como parâmetro, o que não é errado, mas eu recomendo você utilizar os parâmetros DSAuthenticationUser e DSAuthenticationPassword, porque em caso de se ter outras aplicações conectando ao seu servidor e utilizando HTTP como parâmetro, você terá que usar estes parâmetros, desta forma sendo HTTP ou TCP padronizamos neste dois parâmetros.

Nosso código no lado cliente ficaria assim:

With SQLConnection1 do begin
  Params.Values['HostName'] := Server;  // Endereço do DataSnap Server
  Params.Values['Port'] := Port; // Porta
  Params.Values['DSAuthenticationUser'] := 'Usuario'; // Login do Usuário
  Params.Values['DSAuthenticationPassword'] := 'Senha'; // Senha Usuário
end;

Já no lado servidor, faremos a autenticação utilizando o evento OnConnect do componente DSServer.

O evento OnConnect nos fornece o parâmetro DSConnectEventObject o qual nos traz os dados da conexão através da propriedade ConnecProperties, desta forma você terá acesso aos dois parâmeteros enviados pela aplicação cliente e todos os outros valores parte da lista de parâmetros.

No exemplo abaixo as variáveis login e password recebem os valores das propriedades DSAuthenticationUser e DSAuthenticationPassword e em seguinda fazem a validação através da classe TUser, que é uma classe utilizada no exemplo.

Em caso de login ou senha inválido o servidor gera uma Exception, qualquer exception gerada no evento OnConnect inválida a conexão, ou seja, a aplicação cliente não efetuou a conexão ao servidor.

With DSConnectEventObject.ConnectProperties do begin
 login := Properties.Values['DSAuthenticationUser'];
 password := Properties.Values['DSAuthenticationPassword'];
end;

userConn := TUser.Create;
try

  if not userConn.IsValidUser(login, password) then
    raise Exception.Create('Invalid Login/Password');

finally
  userConn.Free;
end;

Meus exemplos sobre DataSnap foram atualizados com o código acima e já estão disponíveis para download.

Posts relacionados

Adeus Borland Way Office, bem vindo Granite Creek Business Center

Andreano Lanusse — Sun, 28 Mar 2010 22:48:07 +0000

Já fazem 15 anos desde que eu comecei minha história na Borland, sendo 3 anos aqui em Scotts Valley Enterprise Way, um lugar muito lindo, mas a partir desta segunda-feira começamos um novo capitulo, novo local de trabalho, novo escritório e internet de altíssima velocidade .

Granite Creek Business Center, aqui em Scotts Valley passa a ser a nossa nova sede, desde aqui nos continuaremos trabalhando para continuar fazendo o Delphi cada vez melhor.

Você pode ver o nosso novo escritório através do Google Maps
View Larger Map

Posts relacionados

Utilizando generics para transformação genérica de Objetos em DataSnap 2010

Andreano Lanusse — Wed, 24 Mar 2010 01:20:16 +0000

No meu post anterior “DataSnap 2010 – Enviando e Recebendo objetos” mostrei como transferir objetos através de JSON objects, nos comentários relacionados a este post Rafael Soares fez uma interessante observação com relação a necessidade de se ter que escrever em toda a classes os métodos de conversão de JSON para TObject e TObject para JSON. Na verdade isso não é necessário, você pode utilizar generics e assim ter apenas dois métodos de conversão para qualquer classe.

O exemplo utilizado no post anterior o qual os fontes foram disponibilizados para download, traz a classe TCustomer como exemplo e implementa os método JSONtoCustomer e CustomerToJSON, este fazem referência direta a classe TCustomer, assim sendo fiz algumas modificações onde nos permitirá utilizar estes dois métodos para qualquer classe, primeiro os métodos foram renomeados para JSONtoObject e ObjectToJSON e adicionados a uma nova classe chamada TBaseObject, este métodos foram definidos como class function, desta forma não precisamos instanciar o objeto. Agora TCustomer passa a herdar desta, assim sendo qualquer objeto terá este método implemetado.

Os métodos da classe TBaseObject agora definem como parâmetro de entrada e retorno, ou seja, o tipo que for definido durante a utilização do método é o que será considerado pelo método, aqui estamos utilizando Generics.

unit BaseObject;

interface

uses DBXJSON, DBXJSONReflect;

type
  TBaseObject = class
  public
    { public declarations }
    class function ObjectToJSON(myObject: T): TJSONValue;
    class function JSONToObject(json: TJSONValue): T;
  end;

implementation

{ TBaseObject }

class function TBaseObject.JSONToObject(json: TJSONValue): T;
var
  unm: TJSONUnMarshal;
begin
  if json is TJSONNull then
    exit(nil);
  unm := TJSONUnMarshal.Create;
  try
    exit(T(unm.Unmarshal(json)))
  finally
    unm.Free;
  end;

end;

class function TBaseObject.ObjectToJSON(myObject: T): TJSONValue;
var
  m: TJSONMarshal;
begin

  if Assigned(myObject) then
  begin
    m := TJSONMarshal.Create(TJSONConverter.Create);
    try
      exit(m.Marshal(myObject));
    finally
      m.Free;
    end;
  end
  else
    exit(TJSONNull.Create);

end;

end.

Já a classe TCustomer herda de TBaseObject.

unit Customer;

interface

uses
   DBXJSON, DBXJSONReflect, SysUtils, BaseObject;

type
   TMaritalStatus = (msMarried, msEngaged, msEligible);

TCustomer = class(TBaseObject)
    private
       FName: string;
       FAge: integer;
       FMaritalStatus: TMaritalStatus;
    public
        property Name: string read FName write FName;
        property Age: integer read FAge write FAge;
        property MaritalStatus: TMaritalStatus read FMaritalStatus write FMaritalStatus;

        function toString : string;override;
  end;

Agora todos os Server Methods da classe TDSServerMethods passam a utilizar os métodos de conversão de objetos especificando qual o tipo que deverá ser utilizado. O exemplo abaixo retorna uma lista de TJSONArray, cada elemento adicionado ao Array usa a sintaxe TCustomer.ObjectToJSON.

define que o tipo do Objeto que está sendo adicionado ao Array.

function TDSServerMethods.ListofCustomer: TJSONArray;
var
  i: Integer;
  myCustomer: TCustomer;
begin
  Result := TJSONArray.Create;

  for i := 0 to 19 do
  begin
    myCustomer := GetCustomer;
    myCustomer.Name := 'Customer ' + IntToStr(i);
    myCustomer.Age := i;
    Result.AddElement(myCustomer.ObjectToJSON(myCustomer));
  end;
end;

Para ler o retorno no lado Client utilizamos o mesmo princípio com Generics, onde cada item é transformado de JSON para TCustomer conforme o exemplo abaixo:

var
  proxy: TDSServerMethodsClient;
  mySingleCustomer: TCustomer;
  allCustomers: TJSONArray;
  i: Integer;
begin

  proxy := nil;
  try
    proxy := TDSServerMethodsClient.Create
      (DMClientContainer.MyDSServer.DBXConnection);
    allCustomers := proxy.ListofCustomer;

    for i := 0 to allCustomers.Size - 1 do
    begin
      mySingleCustomer := TCustomer.JSONToObject(allCustomers.Get(i));
      MMLog.Lines.Add(mySingleCustomer.ToString);
      mySingleCustomer.Free;
    end;

  finally
    proxy.Free;
  end;

Vimos aqui como Generics nos auxilia na transformação de objetos em DataSnap.

O exemplo atualizado está disponível no CodeCentral – Download do código fonte

Posts relacionados

Delphi 2010 Handbook e TMS Smooth Controls Pack GRÁTIS

Andreano Lanusse — Mon, 22 Mar 2010 07:50:29 +0000

Se você possui uma licença de Delphi 2010, C++Builder 2010 ou RAD Studio 2010 a Embarcadero preparou duas surpresas pra você e é grátis.

Você pode baixar o livro (eBook) Delphi 2010 Handbook do Marco Cantu, uma excelente literatura pra você se atualizar nos novos recursos do Delphi 2010.

Além disso você pode baixar o TMS Smooth Controls Pack, um conjunto de componentes que lhe irá ajudar a melhorar a aparência da sua aplicação, são vários componentes e muito fáceis de utilizar.