Minha história de Borland começou no Brasil em dezembro de 1995, teve muitos capítulos (Borland/Inprise/CodeGear/Embarcadero), um novo e importante capítulo iniciou em dezembro de 2006 com minha vinda para os Estados Unidos e hoje este capítulo chega ao fim. Hoje é meu último dia na Embarcadero Technologies.

Eu gostaria de agradecer a todos ao redor do mundo pelos grandes momentos que compartilhamos durante todos estes anos, por todas as conversas online, via email, telefone e frente a frente. Ter trabalhado como seu porta-voz durante todos estes anos foi algo único e que eu fiz com prazer, algo que irei levar sempre comigo.

Os 17 anos de Delphi só se tornou possível por causa do suporte desta grande e energética comunidade, continue enviando seus feedbacks para a Embarcadero (newsgroup em inglês é um ótimo canal pra isso), especialmente agora com o FireMonkey que tem um longo caminho.

Meu blog continua e desenvolvimento de software continuará sendo o tópico principal. Meus vídeos no YouTube irão continuar lá e espero publicar outros vídeos no futuro, para finalizar você pode continuar ou começar a me seguir no Twitter @andreanolanusse

Estarei por perto e você pode me contactar através deste link ou através do e-mail andreano AT gmail DOT com

Agora é hora de começar a escrever o próximo capítulo e buscar novas oportunidades que sejam desafiadoras e divertidas.

Sinceramente,

Andreano Lanusse

Posts relacionados

• Disponibilizado o Trial, Datasheet, Matriz de Recursos e FAQ para as versões XE2
• Delphi Conference 2011 – chamada para submissão de palestras
• RAD Studio XE2 uma nova era para desenvolvedores Delphi e C++Builder
• Exemplos e slides do Delphi Meeting 2011
• Vídeo de lançamento da familia XE do Delphi, C++Builder, RadPHP e Delphi Prism
• Disponibilizada nova versão do Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Posts relacionados

• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Threads e DataSnap – otimizando um servidor de aplicação – Delphi Conference 2010 Brasil
• Vídeo: Conectando aplicações Android com DataSnap Server no Delphi Conference 2010 Brasil
• Vídeo: Estratégias e ferramentas para desenvolvimento de aplicações DataSnap com Delphi XE
• Vídeo de lançamento da familia XE do Delphi, C++Builder, RadPHP e Delphi Prism
• Como implementar Failover e Load Balance no DataSnap 2010

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Divirta-se!!!

Posts relacionados

• Vídeo: Desenvolvimento para iOS com FireMonkey
• Video: Aprenda como utilizar DataSnap Connectors na prática
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Bye Bye Embarcadero
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Posts relacionados

• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Bye Bye Embarcadero
• Video: Aprenda como utilizar DataSnap Connectors na prática
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

DataSnap Mobile Connectors tem um classe chamada TDBXJsonTools que permite a copia e conversão de dados entre DBXReader, TJSONObject, DBXReader e outros tipos de dados, pode ser utilizada em qualquer plataforma suportada pelos conectores, como: Java/Android, Java/BlackBerry, Objective-C, C#/Windows Phone e FreePascal.

Em aplicações desktop nativa utilizamos o TDBXDataSetReader.CopyReaderToClientDataSet(Reader, ClientDataSet) para copiar os dados do DBXReader para um ClientDataSet, no caso de aplicações móveis usamos TDBXJsonTools.CreateTDataSetFromJSON(DBXReader.asJSONObject).

Entretanto não estamos limitados a copia/conversão de dados, TDBXJsonTools traz maior flexibilidade na interação e transporte dos dados usando diferentes tipos de dados, além de usar o melhor dos tipos nativos em cada plataforma. Por exemplo, quando utilizamos DataSet em aplicações FireMonkey para iOS utilizamos a classe TDataSet que é parte da RTL do Delphi e FreePascal, já no caso de aplicações Java, TDataSet será uma extensão do TDBXReader e assim por diante.

DBXReader é unidirecional e com isso a navegação fica limitada, no entanto ao desenvolver aplicações FireMonkey para iOS você poderá copiar os dados do DBXReader para um DataSet que é bidirecional, isso irá permitir a navegação no DataSet e utilizar outros métodos do DataSet.

Abaixo a interface da classe TDBXJsonTools para FreePascal.

  TDBXJsonTools = class
  public
    class procedure jsonToDBX(obj: TJSONValue; var value: TDBXValue; dbxTypeName: String);
    class procedure JSONToValueType(json: TJSONArray; var vt: TDBXValueType);
    class function DBXParametersToJSONObject(dbxParameters: TDSParams) : TJSONObject;
    class function DBXReaderToJSONObject(dbxReader: TDBXReader): TJSONObject;
    class function CreateTDataSetFromJSON(value: TJSONObject): TDataset;
    class function TDataSetToJSONObject(value: TDataset): TJSONObject;
    class function GetTFieldTypeByTDBXDataTypes(DBXDataTypes: TDBXDataTypes) : TFieldType;
    class function GetTDBXDataTypesByTFieldType(FieldType: TFieldType) : TDBXDataTypes;
    class function CreateTStreamFromJSONArray(value: TJSONArray): TStream;
    class function StreamToJSONArray(value: TStream): TJSONArray;
    class function JSONToTableType(value: TJSONValue; dbxTypeName: String): TObject;
    class function SerializeTableType(Objetc: TObject): TJSONObject;

  end;

Eu continuo recomendando o uso do DBXReader como sua fonte principal de dados e quando necessário utilize os métodos da classe TDBXJsonTools.

Posts relacionados

• Bye Bye Embarcadero
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Apresentações do Delphi Conference 2011 disponíveis para download

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Você pode obter este update de 3 formas:

• Atualizando via o mecanismo de Automatic Upgrade
• Manualmente através da opção Checking for Updates
• Fazendo o download a partir da página de usuários registrados

A lista completa de alterações, correções e novos recursos neste update está disponível aqui.

Dois novos recursos que destaco neste update é o suporte a impressora em Mac através do FireMonkey Printing API e o suporte a geração de proxy para FreePascal através do DataSnap Mobile Connector.

Você poder fazer o download do ISO para Delphi XE2 e C++Builder XE2 que inclui o Update 4 aqui.

Posts relacionados

• Bye Bye Embarcadero
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Conectando ao PostgreSQL com dbExpress ODBC driver
• Disponibilizado Update 2 para Delphi XE2, C++Builder XE2 e RadPHP XE2
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Hotfix 2 e Help Update 2 para Delphi XE, C++Builder XE e RAD Studio XE

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

A aplicação é um editor de objetos 3D (3D Text Editor) que permite ao usuário interagir com objetos 3D através de rotação, mudança de cores, textura, tamanho dos objetos, exportar o texto 3D como imagem PNG e muito mais.

Essa aplicação é um excelente começo para quem está interessado em aprender sobre FireMonkey e expõe muitos recursos interessantes, não somente mostra como usar 3D, animações, luz, camera, elementos 2D in containers 3D, etc., mas também como criar interfaces de usuário modernas, como tirar proveito do conceito de componente composto, como usar Scalable Vector Graphics (SVG) e mais.

Em breve estarei publicando uma série de artigos e vídeos em português que irão explicar em detalhes os recursos do FireMonkey utilizados neste aplicação, até lá lhe convido a assistir o vídeo (inglês) abaixo onde eu mostro a aplicação em ação.

Posts relacionados

• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Bye Bye Embarcadero
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Conectando ao PostgreSQL com dbExpress ODBC driver

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Este grupo tem o suporte direto da Atozed e em português

http://br.groups.yahoo.com/group/iwbr/

Além disso, se está anunciando na lista um curso de 36 horas, pago e online de Intraweb, maiores detalhes acesse a lista. O curso está programado para dia 28 de fevereiro.

Posts relacionados

• Bye Bye Embarcadero
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Vendas de Delphi e C++Builder crescem 54% em um ano
• Hora de seguir em frente
• CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Chegar aqui foi uma longa jornada, muita coisa aconteceu, lembro em 1995 quando eu estava desenvolvendo um ERP em Paradox for Windows e um amigo chegou com um CD e me disse “Aprenda este produto, pois ele irá mudar o mundo do desenvolvimento de software”, aceitei o conselho e não me arrependo .

Os links abaixo contam um pouco da história do Delphi.

• Borland History: Will The Real Frank Borland Please Stand Up?
• Memorabilia: The Adventures of TurboMan
• Borland History: Why the name “Delphi?”
• Historical Document: Delphi Product Definition 3rd Draft – May 13, 1993
• Historical Document: Visual Component Library First Draft – May 24, 1993
• Historical Documents: Delphi 1 launch demos source code, launch script, and marketing video
• Delphi 2 – Battle of the Visual Masters
• Delphi 2 – Building Web enabled apps with Delphi 2.0
• Delphi 2 – A Comparison of Client/Server Development Tools; PowerBuilder vs. Delphi
• Discovering Delphi – Why choose Delphi 2 over Visual Basic 4/5?
• ebook – Secrets of Delphi 2 – Exposing Undocumented Features of Delphi – Download here
• ebook – Peter Norton’s Guide to Delphi 2 [1996] – Download here
• Borland Delphi 7 VCL Object Hierarchy/Poster/Chart – download here

Posts relacionados

• Bye Bye Embarcadero
• Video: Aprenda como utilizar DataSnap Connectors na prática
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

A boa notícia é que acabamos de divulgar o crescimento nas vendas do Delphi e C++Builder, crescimento este que foi de 54% sobre as vendas do ano anterior (2010), acelerando ainda mais nos últimos três anos de crescimento consecutivo de 15% ano-sobre-ano do Delphi e da linha de produtos do RAD Studio.

Este crescimento mostra claramente que estamos no caminho certo, diversas inovações nos últimos anos, como: FireMonkey, suporte a Windows, Mac, iOS e futuramente Android e outras plataformas estão fazendo a diferença. Comunidade Delphi e C++Builder podem comemorar.

Abaixo, o press release oficial divulgado esta semana.

Embarcadero Technologies Grows Delphi and C++ by 54% in 2011

Release of RAD Studio XE2 and FireMonkey Enhance Cross Platform

Development Capabilities and Drive Growth

SAN FRANCISCO –February 7, 2012— Embarcadero Technologies, a leading provider of software solutions for application and database development, announced today that worldwide sales for its new RAD family of development tools, including RAD Studio, Delphi, and C++Builder, grew 54 percent over sales of the previous version in 2010, further accelerating the previous three years of consecutive 15 percent year-over-year growth of the Delphi and RAD Studio product lines.

With the release of both RAD Studio XE2 and FireMonkey in 2011, the RAD Studio suite now offers a powerful toolset to C++ and Delphi developers, enabling them to develop rich applications across desktop and mobile platforms with integrated native support for the most popular database platforms including Oracle, SQL Server, DB2, Sybase, InterBase, MySQL and more.

FireMonkey, a new addition to the RAD Studio family, is a next generation application platform that enables organizations to build visually stunning HD and 3D business applications for Windows (32-bit and 64-bit), Mac, and iOS. RAD Studio XE2 is a highly productive development environment for the popular Delphi, C++ and PHP programming languages. The extensive Embarcadero developer community is the second largest Windows developer community in the world after Microsoft.

“The world for Windows developers is changing. Every month Windows developers are facing an increasing demand for Mac and Mobile, and at the same time they are expected to raise the bar on user experience and interoperability.” said Michael Swindell, Senior Vice President of Marketing and Products at Embarcadero. “Developers need tools to help them deliver on these new demands without materially increasing timelines and budgets. We’re proud that RAD Studio XE2 is helping Windows developers tame these pressures and develop rich native applications across multiple platforms from a single codebase. And this is the key driver behind Delphi and C++Builder’s impressive growth.”

According to a recent Forrester report, nearly 50 percent of businesses in North America and Western Europe now issue Mac computers in the workplace, and 27 percent of those companies offer support for the iPad. It’s clear that Apple is becoming an important factor in the Enterprise, and developers must address that as they build business applications. RAD Studio’s cross platform development capabilities address the rapidly growing Mac and iOS markets, which enables developers to reach an additional 10 to 15 percent of the Desktop market with minimal additional development cost. Developers using RAD Studio can write an application once and compile to both Windows and Mac – no need for a separate development team using different development tools or duplicating effort to create Windows and Mac versions of an application.

In fall 2011, Embarcadero hosted a RAD Studio XE2 world launch tour, which brought the Delphi developer community together in countries across North America, APAC and EMEA. Over three months, more than 70 events were held in 30 countries with almost 10,000 registered. The events showcased the new features of both RAD Studio XE2 and FireMonkey, and provided the community with a chance to learn, connect, and share their experiences with RAD Studio. To learn more about the full line of Embarcadero application development tools including Delphi, C++Builder, and RAD Studio, please visit http://www.embarcadero.com/products/application-development.

About Embarcadero Technologies

Embarcadero Technologies, Inc., a software management and delivery company, is a leading provider of database and application development software tools. By using Embarcadero‘s award-winning products, professionals can design systems right, build them faster and run them better, regardless of their platform or programming language. Three million users worldwide and 90 of the Fortune 100 companies rely on Embarcadero products to increase productivity, reduce costs, simplify change management and compliance, and accelerate innovation. Founded in 1993, Embarcadero is headquartered in San Francisco, with offices located around the world. Embarcadero is online at www.embarcadero.com.

###

Embarcadero, the Embarcadero Technologies logos and all other Embarcadero Technologies product or service names are trademarks or registered trademarks of Embarcadero Technologies, Inc. All other trademarks are the property of their respective owners.

Press contacts:

Lindsey Pappas

Atomic PR for Embarcadero

415-593-1400

lindsey@atomicpr.com

Posts relacionados

• Bye Bye Embarcadero
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Lista de discussão sobre Intraweb no yahoo
• Hora de seguir em frente
• CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Se você pretende adquirir novas licenças ou ainda não atualizou para Delphi XE2, C++Builder XE2, RAD Studio XE2, agora é hora. Ao adquirir uma das seguintes edições você pode levar até 4 ferramentas grátis, além de um voucher para a Certificação Delphi Developer para cada licença adquirida.

Recentemente publiquei o artigo em inglês “Razões para migrar para o Delphi XE2 | O que você pode ter perdido desde o Delphi 7″, que pode lhe ajudar na decisão sobre migrar.

Aproveita porque essa promoção, pois acaba dia 24 de dezembro de 2011, você pode obter mais informações neste aqui ou contactar a E do Brasil nosso parceiro no Brasil.

É hora de seguir em frente

Posts relacionados

• Bye Bye Embarcadero
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Lista de discussão sobre Intraweb no yahoo
• Vendas de Delphi e C++Builder crescem 54% em um ano
• CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Os slides disponibilizados trazem informações valiosas, ao final de cada slide você irá encontrar o link para baixar o código fonte dos exemplos utilizados na respectiva apresentação.

Para efetuar o download das apresentações você precisa criar gratuitamente ou utilizar sua conta do EDN (Embarcadero Developer Network), ao efetuar seu login você terá acesso a todo o conteúdo.

• - Delphi XE2 e FireMonkey
• - Desenvolvendo para Mac e iOS com Delphi XE2 e FireMonkey
• - Criando componentes para FireMonkey
• - Introdução ao LiveBinding (em inglês)
• - Otimizando interfaces VCL e FireMonkey com Styles
• - Maximizando produtividade com Delphi XE2 Ultimate e DB PowerStudio
• - Maximizando a usabilidade de Dicionários de Dados
• - Desenvolvimento 64-bits com Delphi XE2
• – DataSnap Connectors
• - Estendendo DataSnap REST Interfaces com jQuery e RELAX
• - Técnicas para identificar problemas de memória em servidores DataSnap
• - TMS Aurelius – Framework Multi-Plataforma para Mapeamento Objeto-Relacional
• - Da RTTI ao LiveBinding - Manipulando objetos com criatividade
• - Boas práticas no desenvolvimento de apps multithreads
• - Desenvolvendo para Windows Phone 7 com Prism XE2
• - Desmistificando Expressões Regulares
• - Usando Fortes Report em aplicações corporativas
• – Integração Delphi e Kinect
• - Técnicas para Implementação do PAF em Delphi XE2
• – Mini-curso Integração continua na prática
• – Mini-curso Utilizando ACBr para automação comercial

Além disso, disponibilizamos a gravação de algumas palestras da Delphi Conference 2011 e você pode assistir aqui.

Posts relacionados

• Bye Bye Embarcadero
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader
• Disponibilizado o código fonte em Delphi do FireMonkey 3D Text Editor
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Se você ainda continua usando Delphi 7 ou alguma das versões anteriores, recomendo que você reserve um tempo na sua agenda e leia este artigo. Delphi tem crescido muito e a cada ano tem trazido diversas novidades muito interessantes desde a sua versão Delphi 7.

Este artigo traz várias razões para migrar, além de uma visão geral de todos os novos recursos incorporados desde a versão 7, onde Delphi era um IDE para desenvolvimento de aplicações Windows 32-bit e se tornou um IDE para desenvolvimento Windows 64-bit, Mac e iOS.

Se você já leu o meu artigo “Razões para migrar do Delphi 7 para o Delphi 2009” em português ou o artigo em inglês “Reasons to migrate to Delphi XE”, este artigo é uma atualização que inclui os novos recursos das versões Delphi 2010, XE e XE2.

Gostaria de lembrar que ao migrar para o Delphi XE2 você recebe as versões anteriores sem custo adicional. Por exemplo, comprando Delphi XE2 você recebe Delphi 7, Delphi 2007, Delphi 2009, Delphi 2010 e Delphi XE.

Eu espero que esse artigo responda a todas as suas dúvidas, caso ainda fique alguma dúvida comente aqui no post que estarei respondendo.

Faça o download do artigo aqui.

Posts relacionados

• Bye Bye Embarcadero
• Video: Aprenda como utilizar DataSnap Connectors na prática
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

A partir do Delphi XE2 Update 2 isso não é mais problema, o suporte a blob no método CopyReaderToClientDataSet foi implementando.

Para saber como utilizar o método CopyReaderToClientDataSet na prática leia o artigo “Copiando estrutura e dados de um DBXReader para ClientDataSet  - DataSnap“

Posts relacionados

• Conectando ao PostgreSQL com dbExpress ODBC driver
• Monitoramento e controle de conexões em DataSnap XE2
• Implementando cache de dados em servidores DataSnap
• Exemplos e slides do Delphi Meeting 2011
• Vídeos sobre DataSnap para 2011 – o que você gostaria de ver?
• Apresentações do Delphi Conference 2010 disponível para download

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Para mostrar na prática como funciona, criei uma aplicação FireMonkey que conecta a uma base de dados PostgreSQL.

Como requisito, você precisa instalar na máquina onde a aplicação será executada o driver ODBC do PostgreSQL, que pode ser baixado aqui. Vale lembrar que aplicações compiladas como 32-bit requerem a versão 32-bit do driver ODBC da base de dados a ser utilizada, para aplicações 64-bit será necessário o driver ODBC 64-bit.

Após instalado o driver, crie e configure o User DSN ou System DSN no ODBC Data Source Administrator (odbcad32.exe):

Instruções para windows 64-bit

• Para aplicações 32-bit use o c:\Windows\SysWOW64\odbcad32.exe
• Para aplicações 64-bit use o c:\Windows\system32\odbcad32.exe

Instruções para windows 32-bit

• Use o c:\Windows\system32\odbcad32.exe

O próximo passe é criar um alias dbExpress ODBC no Data Explorer, onde Database Name é o nome do Data Source criado anteriormente, no meu exemplo este Data Source se chama PostgreSQL35W. Todas as informações relacionada a qual base de dados conectar, usuário e senha já foram configuradas no Data Source, você pode sobrescrever o usuário e senha na conexão dbExpress.

Supondo que você já saiba como utilizar os componentes SQLConnection, DataSetProvider e ClientDataSet ou SimpleDataSet e DataSource, basta conectá-los da mesma forma que você sempre fez com aplicações que utilizam os componentes dbExpress. A configuração do SQLConnection será configurada conforme abaixo:

  object SQLConnection1: TSQLConnection
    ConnectionName = 'PostgreSQLOdbc'
    DriverName = 'ODBC'
    LoginPrompt = False
    Params.Strings = (
      'drivername=ODBC'
      'Database=PostgreSQL35W')
  end

Além de poder utilizar os componentes dbExpress em aplicações VCL e FireMonkey, você pode utilizar o dbExpress framework para conectar a bancos de dados que não tenham um driver nativo. A figura abaixo mostra a aplicação FireMonkey conectada a PostgreSQL através do dbExpress ODBC driver.

Download do código fonte disponível aqui.

Posts relacionados

• Bye Bye Embarcadero
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Desenvolvendo o FireMonkey 3D Text Editor para Windows e Mac
• Usando dbExpress Framework no Windows e Mac com C++Builder
• CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

A agenda com as 25 palestras já foi publicada, palestras e palestrantes de alto nível abordando temas como FireMonkey, aplicações mobile conectadas a servidores DataSnap, LiveBinding, Mac, iOS, Android, mini-cursos sobre componentes ACBr, integração continua, otimização de aplicações web para mobile e muito mais.

Enquanto isso eu (Andreano Lanusse) e David I preparamos um vídeo onde comentamos sobre o evento:

Até o dia 30.

Posts relacionados

• Bye Bye Embarcadero
• Video: Aprenda como utilizar DataSnap Connectors na prática
• Vídeo: Desenvolvendo para iOS com FireMonkey e Delphi XE2
• Vídeo: Desenvolvimento para iOS com FireMonkey
• TDBXJsonTools copiar/converter dados entre TDataSet – TJSONObject – DBXReader
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Você pode efetuar o download do Update 2 para Delphi e C++Builder através da opção “Check for Updates”.

RAD Studio XE2 Update 2

• Update 2 para Delphi, C++Builder e RAD Studio XE2 – http://cc.embarcadero.com/item/28597
• ISO do Delphi XE2 e C++Builder XE2 (inclui Update 2) – http://cc.embarcadero.com/item/28616
• Lista de bugs resolvidos no Delphi XE2 e C++Builder XE2 Update – http://edn.embarcadero.com/article/41750

RAD Studio XE2 Help Update 1 – http://cc.embarcadero.com/item/28613

RadPHP XE2 Update 2

Update 2 para o RadPHP – http://cc.embarcadero.com/item/28614
Lista de bugs resolvidos no RadPHP XE2 Update 2 – http://edn.embarcadero.com/article/41756

Posts relacionados

• Bye Bye Embarcadero
• Disponibilizado o Update 4 para Delphi XE2 e C++Builder XE2
• Disponibilizado o Trial, Datasheet, Matriz de Recursos e FAQ para as versões XE2
• Delphi Conference 2011 – chamada para submissão de palestras
• Delphi Tour 2011
• RAD Studio XE2 uma nova era para desenvolvedores Delphi e C++Builder

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Você pode ler os artigos que antecedem estas sequência nos links abaixo, é importante ler estes artigos para melhor entendimento deste artigo:

• Shell Extension para Windows 32-bt and 64-bit com Delphi XE2
• CloudAPI – Envio de arquivos para Amazon S3 e Windows Azure – Parte 1

Na primeira parte do artigo descrevo como obter sua conta no Amazon e os significados do Bucket e Blog, considerando que você leu os artigos anteriores nos resta saber como funciona o CloudAPI para envio de arquivos para o Amazon S3, que é bem parecido ao do Windows Azure.

Envio de arquivos para Amazon S3

A implementação do Shell Extension utiliza o método UploadtoAmazon (CloudDM.pas) para o envio de arquivos para o Amazon S3, antes de enviar o arquivo temos definir em qual pasta (Bucket) será armazenado este arquivo.

Como o bucket pode não existir, ou o usuário pode querer criar um novo, implementei um formulário que permite o usuário selecionar um bucket já existente ou criar um novo.

Abaixo parte do código responsável pelo envio do arquivo, as linhas em destaque refletem o código que irá listar e criar ou selecionar o bucket.

Ao fazer uma solicitação ao Amazon S3 através do CloudAPI a maioria dos métodos retorna um objeto do tipo TCloudResponseInfo, este objeto contém o status do retorno referente a sua solicitação, todas estas solicitações são chamadas REST.

Para obter a lista de buckets utilizamos o método ListBuckets que é parte do objeto StorageService instanciando anteriormente, todos os serviços relacionados a Storage fazem parte desta classe, assim como a criação do bucket através do método CreateBucket.

Amazon e Windows Azure diferem no que diz respeito ao suporte a metadata na criação do container/bucket, Amazon não suporta metadata enquanto Windows Azure sim.

function TCloud.UploadtoAmazon(FileName: String): TCloudResponseInfo;
var
  StorageService: TAmazonStorageService;
  BucketList, Metadata: TStrings;
  Content: TBytes;
  ResponseList: TCloudResponseInfo;
  FrmList: TFrmContainerList;
  Act: TContainerAction;
  BucketName: String;
  I: Integer;
begin
  Result := TCloudResponseInfo.Create;

  if (FileName = EmptyStr) then
    Exit;

  StorageService := TAmazonStorageService.Create(AmazonConnection);

{$REGION 'Define the Bucket'}
  ResponseList := TCloudResponseInfo.Create;
  BucketList := StorageService.ListBuckets(ResponseList);

  if ResponseList.StatusCode = 200 then
  begin

    // Amazon return date/time information for each Bucket
    // this for is required to remove that information
    for I := 0 to BucketList.Count - 1 do
      BucketList[I] := BucketList.Names[I];

    FrmList := TFrmContainerList.Create(nil, BucketList, TClouds[AmazonIndex]);
    try
      FrmList.ShowModal;
      Act := FrmList.Action;

      case Act of
        caCreate:
          begin
            if StorageService.CreateBucket(FrmList.Container, amzbaNotSpecified,
              amzrNotSpecified, Result) then
              BucketName := FrmList.Container;
          end;
        caUpload:
          begin
            BucketName := FrmList.Container;
          end;
      end;
    finally
      FrmList.Free;
    end;

    if Act = TContainerAction.caNone then
      Exit;

  end;

Com o bucket definido podemos adiante e preparar o envio do arquivo.

Para o envio do arquivo utilizamos o método StorageService.UploadObject que contém diversos parâmetros como: nome e o conteúdo do arquivo em TBytes, metadata e alguns outros que não são necessários para este exemplo. Você deve utilizar alguma função para fazer o encode do nome do arquivo, por exemplo  TIdURI.URLEncode(str).

Podemos adicionar metadata ao arquivo, neste exemplo adiciono o nome do computador\usuário e a localização original do arquivo a ser enviado.

    Metadata.Clear;
    Metadata.Values[SMDPath] := ExtractFilePath(FileName);
    Metadata.Values[SMDFrom] := GetComputerandUserName;

    Content := ContentOf(FileName);
    BlobName := ExtractFileName(FileName);

O método ContentOf retorna o conteúdo do arquivo em TBytes.

function TCloud.ContentOf(const FileName: String;
  RequiredSizeMod: Integer): TBytes;
var
  fs: TFileStream;
begin
  if FileName <> EmptyStr then
  begin
    fs := TFileStream.Create(FileName, fmOpenRead);
    try
      if RequiredSizeMod < 1 then
        SetLength(Result, fs.Size)
      else
        SetLength(Result, ((fs.Size div RequiredSizeMod) + 1) *
          RequiredSizeMod);
      fs.ReadBuffer(Result[0], fs.Size);
    finally
      fs.Free;
    end;
  end
  else
    SetLength(Result, 0);

end;

O resultado do envio será um parâmetro de saída do tipo TCloudResponseInfo, este contém a propriedade StatusCode, requisições realizadas com sucesso retornam o código 200 ou 201.

    StorageService.UploadObject(BucketName, ExtractFileName(FileName), Content, False, Metadata, nil, amzbaPublicRead, Result);
    ShowResponseInfo(TClouds[AmazonIndex], Result);

Clique aqui para visualizar o código fonte da unit CloudDM.pas.

O código fonte completo está disponível no repositório do RAD Studio XE2 no sourceforge e as informações para efetuar o download dos fontes completo estão disponíveis aqui.
Nesta sequência de artigos você pode aprender a criar Shell Extensions, compilar pra 32-bit e 64 bit e utilizar o CloudAPI, vale lembrar que o ClouAPI traz muitas outras API’s para interagir com as nuvens

Posts relacionados

• CloudAPI – Envio de arquivos para Amazon S3 e Windows Azure – Parte 1
• Shell Extension para Windows 32-bit e 64-bit com Delphi XE2
• Microsoft Windows Azure por 30 dias GRÁTIS
• Apresentações do Delphi Conference 2010 disponível para download
• Teste nosso servidor DataSnap XE instalado no Amazon Cloud
• DataSnap XE e Windows Azure – RAD Studio XE Preview #3

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

O Cloud API é um conjunto de API’s que permite a interação com os serviços de tabela, armazenamento e mensagens do Amazon S3 e Windows Azure, está disponível para Delphi e C++Builder.

Utilizando o exemplo do artigo anterior como ponto inicial, foi implementado no mesmo um DataModule (CloudDM.pas) que contém a configuração para acesso as nuvens através dos componentes AmazonConnection e AzureConnection, além disso os métodos responsáveis pelo envio de arquivos para as nuvens, assim sendo você precisa ter uma conta no Amazon e no Azure para utilizar este exemplo, a baixo um resumo breve para obter sua conta a qual não é gratuita, o custo é bem baixo e baseado no quanto você utiliza.

Criando uma conta Windows Azure Storage

Através do link http://windows.azure.com você pode criar sua conta Azure Storage seguindo os passos fornecidos na página, abaixo um screenshot da minha conta e onde estão localizados os dois parâmetros (AccountName e AccountKey) requeridos pelo componente AzureConnection.

Criando uma conta Amazon  (AWS)

Criar uma conta no Amazon também é bem simples, acesse o site https://console.aws.amazon.com/s3/home e siga os passos, para obter o AccountKey e AccountName a ser utilizado no componente AmazonConnection, acesse https://aws-portal.amazon.com/gp/aws/developer/account/index.html?action=access-key, abaixo um screenshot.

Arquivo INI para configuração da DLL

As configurações de acesso as respectivas nuvens estão sendo armazenadas no arquivo ini CloudUpload-Extension.ini localizado no diretório Home de cada usuário, eu não vou detalhar como utilizar arquivos ini aqui, você pode estudar esta parte após baixar os código fonte do exemplo aqui utilizado.

Bucket vs Container e Object vs Blob

Todo arquivo enviado para as nuvens será armazenado em uma pasta, Amazon chama pasta de Bucket e Windows Azure de Container, no final das contas Bucket e Container são pastas, cada nuvem tem suas regras e limitações de como nomear as pastas, por exemplo o nome de uma pastas no Amazon deve ser único em toda a nuvem, isso mesmo não único na sua conta, ou seja, criar um diretório imagens esquece, alguém certamente já criou um.

A diferença de nomenclatura também ocorre para arquivos, que na Amazon é chamado do Object e no Windows Azure chama-se Blog.

Cloud API respeita essas diferenças, assim para criar um Bucket no Amazon usamos o método CreateBucket, para criar um Container no Windows Azure utilizamos o método CreateContainer.

Envio de arquivos para Windows Azure

A implementação do Shell Extension utiliza o método UploadtoAzure (CloudDM.pas) para o envio de arquivos para o Windows Azure, antes de enviar o arquivo temos definir em qual pasta (Container) será armazenado este arquivo.

Como o container pode não existir, ou o usuário pode querer criar um novo, implementei um formulário que permite o usuário selecionar um container já existente ou criar uma nova.

Abaixo parte do código responsável pelo envio do arquivo, as linhas em destaque refletem o código que irá listar e criar ou selecionar o container.

Ao fazer uma solicitação ao Windows Azure através do CloudAPI a maioria dos métodos retorna um objeto do tipo TCloudResponseInfo, este objeto contém o status do retorno referente a sua solicitação, todas estas solicitações são chamadas REST.

Para obter a lista de containers utilizando o método ListContainers que é parte do objeto BlobService instanciando anteriormente, todos os serviços relacionados a Blob fazem parte desta classe, assim como a criação do container através do método Create Container.

No caso da criação do container, podemos passar informações adicionais a qual chamamos de metadata, no exemplo abaixo passamos o nome do computador utilizado para solicitar a criação deste container, esta informação estará disponível como parte do metadata deste container, você pode definir várias outras informações e adiciona-las como parte do seu metadata que é do tipo TStringList;

function TCloud.UploadtoAzure(FileName: String): TCloudResponseInfo;
var
  BlobService: TAzureBlobService;
  SList, Metadata: TStrings;
  ContainerList: TList;
  ContainerObj: TAzureContainer;
  Content: TBytes;
  BlobName, ContainerName: String;
  ResponseList: TCloudResponseInfo;
  FrmList: TFrmContainerList;
  Act: TContainerAction;
begin

  Result := TCloudResponseInfo.Create;

  if (FileName = EmptyStr) then
    Exit;

  BlobService := TAzureBlobService.Create(AzureConnection);
  try
    ResponseList := TCloudResponseInfo.Create;
    ContainerList := BlobService.ListContainers(nil, ResponseList);
    Metadata := TStringList.Create;

    if ResponseList.StatusCode = 200 then
    begin

      SList := TStringList.Create;
      for ContainerObj in ContainerList do
        SList.Add(ContainerObj.Name);
      ContainerList.Free;

      FrmList := TFrmContainerList.Create(nil, SList, TClouds[AzureIndex]);
      try
        FrmList.ShowModal;
        Act := FrmList.Action;

        case Act of
          caCreate:
            begin
              Metadata.Values[SMDCreateby] := GetComputerandUserName;

              if BlobService.CreateContainer(FrmList.Container, Metadata,
                bpaBlob, Result) then
                ContainerName := FrmList.Container;
            end;
          caUpload:
            begin
              ContainerName := FrmList.Container;
            end;
        end;
      finally
        SList.Free;
        FrmList.Free;
      end;

      if Act = TContainerAction.caNone then
        Exit;

    end;

Com a definição do container podemos seguir para o próximo passo que é o envio do arquivo.

Para o envio do arquivo utilizamos o método BlobService.PutBlockBlob que contém diversos parâmetros como: nome e o conteúdo do arquivo em TBytes, metadata e alguns outros que não são necessários para este exemplo.

Assim como para containers podemos adicionar metadata ao arquivo, neste exemplo adiciono o nome do computador\usuário e a localização original do arquivo a ser enviado.

    Metadata.Clear;
    Metadata.Values[SMDPath] := ExtractFilePath(FileName);
    Metadata.Values[SMDFrom] := GetComputerandUserName;

    Content := ContentOf(FileName);
    BlobName := ExtractFileName(FileName);

O método ContentOf retorna o conteúdo do arquivo em TBytes.

function TCloud.ContentOf(const FileName: String;
  RequiredSizeMod: Integer): TBytes;
var
  fs: TFileStream;
begin
  if FileName <> EmptyStr then
  begin
    fs := TFileStream.Create(FileName, fmOpenRead);
    try
      if RequiredSizeMod < 1 then
        SetLength(Result, fs.Size)
      else
        SetLength(Result, ((fs.Size div RequiredSizeMod) + 1) *
          RequiredSizeMod);
      fs.ReadBuffer(Result[0], fs.Size);
    finally
      fs.Free;
    end;
  end
  else
    SetLength(Result, 0);

end;

O resultado do envio será um parâmetro de saída do tipo TCloudResponseInfo, este contém a propriedade StatusCode, requisições realizadas com sucesso retornam o código 200 ou 201.

    BlobService.PutBlockBlob(ContainerName, BlobName, Content, '', nil,
      Metadata, Result);
    ShowResponseInfo(TClouds[AzureIndex], Result);

Abaixo a implementação completa da unit CloudDM.pas.

unit CloudDM;

interface

uses
  System.SysUtils, System.Classes, Data.Cloud.AzureAPI, Data.Cloud.CloudAPI,
  Data.Cloud.AmazonAPI, Winapi.Windows, IniFiles, IOUtils,
  System.Generics.Collections;

type
  TCloud = class(TDataModule)
    AzureConnection: TAzureConnectionInfo;
    AmazonConnection: TAmazonConnectionInfo;
  private
    { Private declarations }
    FHandle: HWND;
    function GetComputerandUserName: String;
    function UploadtoAmazon(FileName: String): TCloudResponseInfo;
    function UploadtoAzure(FileName: String): TCloudResponseInfo;
    function ContentOf(const FileName: String;
      RequiredSizeMod: Integer = 0): TBytes;
    procedure ShowResponseInfo(Title: String; Response: TCloudResponseInfo);
  public
    { Public declarations }

    function LoadConfiguration: Boolean;
    function Upload(FileName: String; Cloud: Integer): TCloudResponseInfo;

    class procedure SaveLog(s: String);
    constructor Create(AOWner: TComponent; Handle: HWND); reintroduce; overload;
  end;

var
  Cloud: TCloud;

Const
  AmazonIndex = 0;
  AzureIndex = 1;
  TClouds: Array [0 .. 1] of PWideChar = ('Amazon S3', 'Microsoft Azure');

implementation

uses CloudContainerList;

Const
  SMyAzureKey = 'MyAzureKey'; // do not translate
  SMyAmazonKey = 'MyAmazonKey'; // do not translate
  SInternetConfig = 'Internet Access Configuration'; // do not translate

  SAccountName = 'AccountName'; // do not translate
  SAccountKey = 'AccountKey'; // do not translate
  SProxyHost = 'ProxyHost'; // do not translate
  SProxyPort = 'ProxyPort'; // do not translate

  SStorageEndpoint = 'StorageBlobEndpoint'; // do not translate

  SMDPath = 'originalfilepath';
  SMDFrom = 'uploadfrom';
  SMDCreateby = 'createdby';

{$R *.dfm}
  { TCloudContainer }

function TCloud.ContentOf(const FileName: String;
  RequiredSizeMod: Integer): TBytes;
var
  fs: TFileStream;
begin
  if FileName <> EmptyStr then
  begin
    fs := TFileStream.Create(FileName, fmOpenRead);
    try
      if RequiredSizeMod < 1 then
        SetLength(Result, fs.Size)
      else
        SetLength(Result, ((fs.Size div RequiredSizeMod) + 1) *
          RequiredSizeMod);
      fs.ReadBuffer(Result[0], fs.Size);
    finally
      fs.Free;
    end;
  end
  else
    SetLength(Result, 0);

end;

constructor TCloud.Create(AOWner: TComponent; Handle: HWND);
begin
  inherited Create(AOWner);
  FHandle := Handle

end;

function TCloud.GetComputerandUserName: String;
var
  cName, uName: array [0 .. 255] of char;
  c: DWORD;
begin
  c := SizeOf(cName);

  GetComputerName(cName, c);
  GetUserName(uName, c);

  Result := StrPas(cName) + '\' + StrPas(uName);
end;

function TCloud.LoadConfiguration: Boolean;
var
  IniFile: string;
  Ini: TIniFile;
  Port: Integer;
  SUrl: String;
begin

  IniFile := GetHomePath + '\CloudUpload-Extension.ini';
  Ini := TIniFile.Create(IniFile);

  try
    // The ini file will be created in case it doesn't exist
    if not FileExists(IniFile) then
    begin
      // Azure parameters
      Ini.WriteString(SMyAzureKey, SAccountName, EmptyStr);
      Ini.WriteString(SMyAzureKey, SAccountKey, EmptyStr);
      Ini.WriteString(SMyAzureKey, SStorageEndpoint, EmptyStr);

      // Amazon parameters
      Ini.WriteString(SMyAmazonKey, SAccountName, EmptyStr);
      Ini.WriteString(SMyAmazonKey, SAccountKey, EmptyStr);
      Ini.WriteString(SMyAmazonKey, SStorageEndpoint, EmptyStr);

      // Internet access configuration
      Ini.WriteString(SInternetConfig, SProxyHost, EmptyStr);
      Ini.WriteString(SInternetConfig, SProxyPort, EmptyStr);

      Ini.UpdateFile;
      Result := False;
    end
    else
    begin

      TryStrToInt(Ini.ReadString(SInternetConfig, SProxyPort, '0'), Port);

      with AzureConnection do
      begin
        AccountName := Ini.ReadString(SMyAzureKey, SAccountName, EmptyStr);
        AccountKey := Ini.ReadString(SMyAzureKey, SAccountKey, EmptyStr);

        RequestProxyHost := Ini.ReadString(SInternetConfig, SProxyHost,
          EmptyStr);
        RequestProxyPort := Port;

        SUrl := Ini.ReadString(SMyAzureKey, SStorageEndpoint, EmptyStr);

        UseDefaultEndpoints := SUrl = EmptyStr;
        BlobEndpoint := SUrl;
      end;

      with AmazonConnection do
      begin
        AccountName := Ini.ReadString(SMyAmazonKey, SAccountName, EmptyStr);
        AccountKey := Ini.ReadString(SMyAmazonKey, SAccountKey, EmptyStr);

        RequestProxyHost := Ini.ReadString(SInternetConfig, SProxyHost,
          EmptyStr);
        RequestProxyPort := Port;

        SUrl := Ini.ReadString(SMyAmazonKey, SStorageEndpoint, EmptyStr);

        UseDefaultEndpoints := SUrl = EmptyStr;
        StorageEndpoint := SUrl;
      end;
      Result := True;
    end;

  finally
    Ini.Free;
  end;
end;

class procedure TCloud.SaveLog(s: String);
var
  LogFile: TextFile;
begin
  { open the log file }
  AssignFile(LogFile, 'c:\Shell.txt');
  if FileExists('c:\Shell.txt') then
    Append(LogFile)
  else
    Rewrite(LogFile);

  WriteLn(LogFile, s + #13#10);

  { write and close the logfile }
  CloseFile(LogFile);
end;

procedure TCloud.ShowResponseInfo(Title: String; Response: TCloudResponseInfo);
begin
  case Response.StatusCode of
    200, 201:
      MessageBox(FHandle, 'File Uploaded', PWideChar(Title), MB_OK);
  else
    MessageBox(FHandle, PWideChar('Error ' + Response.StatusMessage),
      PWideChar(Title), MB_ICONWARNING);
  end;
end;

function TCloud.Upload(FileName: String; Cloud: Integer): TCloudResponseInfo;
begin
  case Cloud of
    AmazonIndex:
      Result := UploadtoAmazon(FileName);
    AzureIndex:
      Result := UploadtoAzure(FileName);
  else
    Result := TCloudResponseInfo.Create;
  end;
end;

function TCloud.UploadtoAmazon(FileName: String): TCloudResponseInfo;
var
  StorageService: TAmazonStorageService;
  BucketList, Metadata: TStrings;
  Content: TBytes;
  ResponseList: TCloudResponseInfo;
  FrmList: TFrmContainerList;
  Act: TContainerAction;
  BucketName: String;
  I: Integer;
begin
  Result := TCloudResponseInfo.Create;

  if (FileName = EmptyStr) then
    Exit;

  StorageService := TAmazonStorageService.Create(AmazonConnection);

{$REGION 'Define the Bucket'}
  ResponseList := TCloudResponseInfo.Create;
  BucketList := StorageService.ListBuckets(ResponseList);

  if ResponseList.StatusCode = 200 then
  begin

    // Amazon return date/time information for each Bucket
    // this for is required to remove that information
    for I := 0 to BucketList.Count - 1 do
      BucketList[I] := BucketList.Names[I];

    FrmList := TFrmContainerList.Create(nil, BucketList, TClouds[AmazonIndex]);
    try
      FrmList.ShowModal;
      Act := FrmList.Action;

      case Act of
        caCreate:
          begin
            if StorageService.CreateBucket(FrmList.Container, amzbaNotSpecified,
              amzrNotSpecified, Result) then
              BucketName := FrmList.Container;
          end;
        caUpload:
          begin
            BucketName := FrmList.Container;
          end;
      end;
    finally
      FrmList.Free;
    end;

    if Act = TContainerAction.caNone then
      Exit;

  end;
{$ENDREGION}
  try

    Metadata := TStringList.Create;
    Metadata.Values[SMDPath] := ExtractFilePath(FileName);
    Metadata.Values[SMDFrom] := GetComputerandUserName;

    Content := ContentOf(FileName);

    FileName := StringReplace(FileName, ' ', '%20', [rfReplaceAll, rfIgnoreCase]);

    StorageService.UploadObject(BucketName, ExtractFileName(FileName), Content,
      False, Metadata, nil, amzbaPublicRead, Result);
    ShowResponseInfo(TClouds[AmazonIndex], Result);

  except
    on E: Exception do
    begin
      MessageBox(FHandle, PWideChar('Error ' + E.Message),
        TClouds[AmazonIndex], MB_OK);
    end;
  end;

  FreeAndNil(Metadata);
  FreeAndNil(StorageService);
end;

function TCloud.UploadtoAzure(FileName: String): TCloudResponseInfo;
var
  BlobService: TAzureBlobService;
  SList, Metadata: TStrings;
  ContainerList: TList;
  ContainerObj: TAzureContainer;
  Content: TBytes;
  BlobName, ContainerName: String;
  ResponseList: TCloudResponseInfo;
  FrmList: TFrmContainerList;
  Act: TContainerAction;
begin

  Result := TCloudResponseInfo.Create;

  if (FileName = EmptyStr) then
    Exit;

  BlobService := TAzureBlobService.Create(AzureConnection);
  try

{$REGION 'Define the container'}
    ResponseList := TCloudResponseInfo.Create;
    ContainerList := BlobService.ListContainers(nil, ResponseList);
    Metadata := TStringList.Create;

    if ResponseList.StatusCode = 200 then
    begin

      SList := TStringList.Create;
      for ContainerObj in ContainerList do
        SList.Add(ContainerObj.Name);
      ContainerList.Free;

      FrmList := TFrmContainerList.Create(nil, SList, TClouds[AzureIndex]);
      try
        FrmList.ShowModal;
        Act := FrmList.Action;

        case Act of
          caCreate:
            begin
              Metadata.Values[SMDCreateby] := GetComputerandUserName;

              if BlobService.CreateContainer(FrmList.Container, Metadata,
                bpaBlob, Result) then
                ContainerName := FrmList.Container;
            end;
          caUpload:
            begin
              ContainerName := FrmList.Container;
            end;
        end;
      finally
        SList.Free;
        FrmList.Free;
      end;

      if Act = TContainerAction.caNone then
        Exit;

    end;
{$ENDREGION}

    Metadata.Clear;
    Metadata.Values[SMDPath] := ExtractFilePath(FileName);
    Metadata.Values[SMDFrom] := GetComputerandUserName;

    Content := ContentOf(FileName);
    BlobName := ExtractFileName(FileName);

    BlobService.PutBlockBlob(ContainerName, BlobName, Content, '', nil,
      Metadata, Result);
    ShowResponseInfo(TClouds[AzureIndex], Result);

  except
    on E: Exception do
    begin
      MessageBox(FHandle, PWideChar('Error ' + E.Message),
        TClouds[AzureIndex], MB_OK);
    end;
  end;

  FreeAndNil(ResponseList);
  FreeAndNil(Metadata);
  FreeAndNil(BlobService);

end;

end.

O código fonte completo está disponível no repositório do RAD Studio XE2 no sourceforge, no artigo anterior você pode obter as informações de como obter os fontes.
Até o próximo artigo que irá abordar o envio de arquivos para Amazon S3.

Posts relacionados

• CloudAPI – Envio de arquivos para Amazon S3 e Windows Azure – Parte 2
• Shell Extension para Windows 32-bit e 64-bit com Delphi XE2
• Microsoft Windows Azure por 30 dias GRÁTIS
• Apresentações do Delphi Conference 2010 disponível para download
• Teste nosso servidor DataSnap XE instalado no Amazon Cloud
• DataSnap XE e Windows Azure – RAD Studio XE Preview #3

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

A solução para este problema é bem simples, basta registrar a classe TDSProviderDataModuleAdapter, a qual é usada internamente para permitir que o Provider esteja visível para os clientes DataSnap. TDSProviderDataModuleAdapter atua como um proxy entre TProviderDataModule no lado servidor e o TDSProviderConnection no lado cliente.

Poderíamos apenas mudar a implementação do método GetDSClass conforme abaixo, isso funcionaria, mas não seria a melhor implementação visto que estariamos sempre publicando os métodos da interface IAppServer utilizados pelo Provider e ClientDataSet, não faz sentido publicar esta interface se não há provider no ServerModule.

Tornar a publicação parametrizável traz maior flexbilidade e controle para a aplicação e para o desenvoldedor, fica a seu critério quando publicar ou não os providers, assim sendo precisamos apenas de um novo parâmetro na classe TSimpleServerClass.

function TSimpleServerClass.GetDSClass: TDSClass;
begin
  Result := TDSClass.Create(FPersistentClass, False);
  Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

Abaixo temos o código atualizado, a única alteração foi no constructor que recebeu o novo parâmetro ExposeProvider, desta forma você decide se quer ou não publicar os providers.

type

unit SimpleServerClass;

interface

uses DSServer, Classes, DSCommonServer, DSReflect;

type

  TSimpleServerClass = class(TDSServerClass)
  private
    FPersistentClass: TPersistentClass;
    FExposeProvider : Boolean;
  protected
    function GetDSClass: TDSClass; override;
  public
    constructor Create(AOwner: TComponent; AServer: TDSCustomServer;
      AClass: TPersistentClass; ExposeProvider: Boolean; ALifeCycle: String);
      reintroduce; overload;
  end;

implementation

constructor TSimpleServerClass.Create(AOwner: TComponent;
  AServer: TDSCustomServer; AClass: TPersistentClass; ExposeProvider: Boolean;
  ALifeCycle: String);
begin
  inherited Create(AOwner);
  FPersistentClass := AClass;
  FExposeProvider  := ExposeProvider;
  Self.Server := AServer;
  Self.LifeCycle := ALifeCycle;

end;

function TSimpleServerClass.GetDSClass: TDSClass;
var
  isAdapted : Boolean;
begin
  isAdapted := FPersistentClass.InheritsFrom(TProviderDataModule);
  Result := TDSClass.Create(FPersistentClass, isAdapted);
  if FExposeProvider and isAdapted then
     Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

end.

Abaixo um exemplo onde são registradas 3 classes e somente uma delas expõe os Providers:

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
begin
  Assert(AServer.Started = false, 'Não é possível adicionar classes com o servidor ativo');

  TSimpleServerClass.Create(AOwner, AServer, TGlobal, False, TDSLifeCycle.Server);
  TSimpleServerClass.Create(AOwner, AServer, TCustomer, True, TDSLifeCycle.Session);
  TSimpleServerClass.Create(AOwner, AServer, TObjectPool, False, TDSLifeCycle.Invocation);
end;

Posts relacionados

• Video: Aprenda como utilizar DataSnap Connectors na prática
• CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”
• Monitoramento e controle de conexões em DataSnap XE2
• Implementando cache de dados em servidores DataSnap
• Exemplos e slides do Delphi Meeting 2011
• Vídeo: Threads e DataSnap – otimizando um servidor de aplicação – Delphi Conference 2010 Brasil

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse