programmer ObjectPascal

Instalando FPC 2.5.1 pelo SVN no Ubuntu

noreply@blogger.com (Rafael Elias) — Thu, 24 Mar 2011 12:13:00 PDT

Olá pessoal,

Sou Rafael Elias, e através deste tutorial, vou mostrar como instalar o FPC 2.5.1 pelo SVN no Linux Ubuntu.

Boa leitura.

Depurando módulos CGI do Lazarus no Apache

silvioprog@gmail.com (Silvio Clécio • Blog) — Fri, 18 Mar 2011 18:43:00 PDT

Olá a todos.

Para sessar o longo silêncio que passei sem postar, segue um guia rápido ao estilo silvioprog. Boa leitura. :)

CGI - Lazarus - Armazenando valores em URLs

noreply@blogger.com (Rafael Elias) — Sun, 10 Oct 2010 13:02:00 PDT

Olá pessoal,

Sou Rafael Elias, estou aqui novamente para demonstrar através deste pequeno artigo um recurso muito útil no desenvolvimento de aplicações CGI com Lazarus.

Boa leitura.

Criando uma aplicação WEB com Lazarus

noreply@blogger.com (Rafael Elias) — Tue, 21 Sep 2010 16:14:00 PDT

Olá pessoal, meu nome é Rafael Elias, eu sou o mais novo autor do programmer ObjectPascal, e para inaugurar minha chegada, segue uma postagem sobre CGI no Lazarus. Boa leitura! :)

Lazarus e CGI: Criando uma janela de login - Parte 2

gsilvioprog@gmail.com (programmer ObjectPascal) — Thu, 22 Jul 2010 10:08:00 PDT

Para ampliar, use o botão (+) ou clique no quadrado a direita dele, ou baixe o artigo completo em formato PDF com alta definição clicando aqui.

Lazarus e CGI: Criando uma janela de login - Parte 1.

gsilvioprog@gmail.com (programmer ObjectPascal) — Fri, 16 Jul 2010 12:44:00 PDT

Neste artigo iremos aprender como criar uma janela de login no Lazarus, usando um projeto do tipo CGI Aplication. Como servidor iremos usar o Apache, que é robusto, estável, cross e open source.
Para facilitar a compreensão dividirei o artigo em três partes, que serão: 1 - Instalando o Apache no Linux e Windows, instalando o pacote WebLaz no Lazarus; 2 - Criando uma janela de login e aproveitando um template gratuito, coletando os dados digitados na janela de login; 3 - Comunicando a janela de login com o PostgreSQL, criando uma janela simples de cadastro de usuários.

Instalando o Apache no Windows (Seven)

Inicialmente baixe o setup de instalação do Apache, disponível no link a seguir:

http://www.apache.org/dist/httpd/binaries/win32/httpd-2.2.15-win32-x86-openssl-0.9.8m-r2.msi

Feito isso, inicie a instalação e prossiga conforme mostra a sequencia de imagens a seguir.

Se tudo ocorreu bem até aqui, você poderá testar o Apache abrindo um browser e acessando o endereço local http://localhost, deverá aparecer a mensagem It works!:

Instalando o Apache no Linux (Ubuntu 10.04)

Instalar o Apache no Linux é muito fácil, abra um terminal e digite:

$ sudo apt-get install apache2

Para testar, basta acessar o mesmo endereço localhost citado acima. Também deverá aparecer a mensagem It works!.

Instalando o pacote WebLaz no Lazarus

Abra o Lazarus e em seguida vá ao menu Package | Install/Uninstall packages …, na lista em Do not install escolha o weblaz. Logo após clique em Install selection e em seguida Save and rebuild IDE.

Simples assim!

Finalizando

Chegando até aqui sem nenhum erro, você terá o Apache instalado em seu sistema, e o Lazarus prontinho para desenvolvimento web! :-)

No próximo artigo iremos criar uma janela de login, aproveitar o HTML de um template gratuito, e coletar os dados digitados nela. Aguardem...!

Silvio Clécio

Artigo disponível em formato PDF aqui.

Criando um aplicativo CGI com FreePascal - Parte 4 (Conclusões)

noreply@blogger.com (Luiz Américo) — Tue, 06 Jul 2010 13:05:00 PDT

Por Luiz Américo

Neste último artigo sobre programas CGI com FreePascal vou resumir as vantagens e desvantagens de cada ferramenta de desenvolvimento.

fpWeb

Vantagens

Incluído na distribuição padrão do FreePascal/Lazarus. Apesar de que para ter a versão mais recente será necessário usar o repositório trunk do FreePascal

Organização dos componentes orientada a objeto, permitindo flexibilidade para expandir/adaptar as funções. Um exemplo é o mecanismo de produção de conteúdo o qual permite criar combinações complexas, reutilizar conteúdo ou criar conteúdo personalizado. A extensão WebData, que permite retornar dados em JSON em vez de HTML, faz uso desta extensibilidade ao criar classes descendentes de módulo e de produção de conteúdo específicas

Suporte a JSON-RPC

Suporte (teórico) a FastCGI e módulos apache

Desenvolvida por programadores experientes (mantenedores do FreePascal)

Desvantagens

Ausência de documentação

Classes de geração de HTML de difícil aprendizado, pouco intuitivas

Mecanismo de identificação do módulo/ação a ser carregado/executada confuso. Se após a URL vier apenas um caminho este definirá a ação. Exemplo: http://localhost/mycgi/action será executado a ação "action". Se tiver dois caminhos, o primeiro será o módulo e depois será a ação. Exemplo http://localhost/mycgi/action/search carregará o módulo "action" e executará a ação "search". Fácil de se confundir!. Também é possível determinar o módulo a través da variável ModuleVariable (padrão é 'Module'). Exemplo: http://localhost/mycgi?module=mymodule. Pra piorar, se tiver sido definido mais de um módulo e não foi definido qual módulo carregar através dos critérios anteriores uma exceção ocorrerá

Não é possível carregar mais de um módulo ao mesmo tempo

Não consegui fazer funcionar o FastCGI. Postei uma mensagem na lista do FreePascal e ninguém soube responder

Métodos para manipulação de sessão são atreladas a um módulo. E no caso de carregar outro módulo? Terá que duplicar o código?

Cada módulo e cada ação tem uma propriedade TFPTemplate. Nem sempre será utilizado um template e em se tratando de CGI cada recurso carregado a menos é vantagem. Além disso pode-se optar por um mecanismo de template diferente

O mecanismo de template, pelos exemplos, me pareceram ineficientes. Por exemplo para completar dados uma tabela se concatenada uma string em loop: ResultStr := ResultStr + RowStr. Cada execução realoca a memória da string na memória. Para poucas linhas não tem problema porém para mais dados...

Mais de uma propriedade para adicionar conteúdo à resposta (Content e Contents). Desnecessário e confuso

FreeSpider

Vantagens

Tem documentação

Mecanismo de determinação de carregamento de módulos e execução de ação simples e flexível

Possibilidade de se carregar até dois módulos

Criação de conteúdo HTML fácil e intuitiva

Desvantagens

Não é distribuído com o FreePascal/Lazarus

Documentação incorreta. Cita a possibilidade de se acessar o módulo principal do segundo módulo porém isso leva a uma Access violation. É possível acessar o módulo principal, mas para isso o método Execute do TSpiderCGI deve ser chamado fora do evento OnCreate

Modelo de aplicação (gerado ao criar um novo projeto) e exemplos disponibilizados com vazamentos de memória. Veja o meu exemplo no artigo anterior como evitar vazamentos de memória

Pouco extensível. Se quiser criar algo mais complexo vai ter ser na mão mesmo

HTML gerado com atributos obsoletos (bgcolor) além de não compatível com XHTML (marcação em maiúscula)

Uso de WriteLn para retornar os dados (Como é uma função especial, ela têm uma sobrecarga natural para tratar o diferentes tipos de dados etc)

Dependência da LCL e portanto com arquivos grandes (consertado na versão 1.2.1)

Vazamentos de memória de objetos internos (consertado na versão 1.2.1)

Conclusões
O FreeSpider é mais simples de entender e usar. O fpWeb requer um pouco mais de estudo porém oferece mais recursos.
Se tivesse de escolher entre os dois para um projeto maior, ficaria com o fpWeb, entretanto o modificaria para ficar mais leve e funcional: removeria o acoplamento ao TFPTemplate, mudaria a manipulação de sessão para o TCustomWebApplication, removeria algumas propriedades desnecessárias e simplificaria o algoritmo de determinação do módulo a ser carregado.
Além disso, seria necessário ver o que há de errado com o FastCGI, que, para aplicativos complexos e com necessidade de alta performance é indispensável.

Criando um aplicativo CGI com FreePascal - Parte 3 (FreeSpider)

noreply@blogger.com (Luiz Américo) — Thu, 01 Jul 2010 16:57:00 PDT

Por Luiz Américo

Introdução

O FreeSpider é uma das alternativas que o FreePascal dispõe para desenvolvimento de programas CGI. Ele é relativamente simples quando comparado com o fpWeb. Neste artigo, vou falar como criar o mesmo exemplo do artigo anterior usando o FreeSpider. O código fonte encontra-se aqui.

Preparação

Antes de mais nada, é bom dar uma lida na documentação disponível na página do FreeSpider.

Após instalar o componente, crie um novo projeto "FreeSpider CGI Web Application". Será criado um módulo comum (descendente de TDataModule) e um programa principal que cria uma instância deste módulo. Esta é uma das principais diferenças com relação ao fpWeb o qual utiliza um módulo especializado (TFPWebModule) e um descendente especializado de TCustomApplication para gerenciar o protocolo CGI (ou FastCGI).

Desta forma, é necessário acrescentar um componente TSpiderCGI, que é o responsável por manipular e direcionar as requisições CGI. O TSpiderCGI tem um evento OnRequest que é chamado se não for tiver sido registrado nenhuma ação para o caminho (Path) solicitado.

Caminhos e Ações

A forma de usar ações no FreeSpider é um pouco diferente do fpWeb. Em vez de ter uma propriedade (Actions) no módulo que maneja todas as ações, é necessário colocar um componente TSpiderAction no módulo para cada ação. Este contém uma propriedade Path que é o caminho associado à ação.

A ação a ser executada é determinada pelo caminho passado pelo programa, no caso, tudo aquilo que vier após o endereço do programa. Por exemplo: http://localhost/cgi-bin/mycgi/action/subaction o caminho a ser executado será "/action/subaction".

Carregamento de módulos por demanda

Uma das principais características do FreeSpider é a possibilidade de se carregar somente os módulos necessários para executar a ação desejada. Para isso é necessário registrar o módulo através da função AddDataModule do TSpiderCGI. Pode-se registrar um número arbitrário de módulos a cada módulo pode ser associado a vários caminhos.

Na prática, será sempre carregado o módulo principal que tem o componente TSpiderCGI e é criado explicitamente no código do programa. Caso o caminho solicitado está associado a um dos módulos registrados, este é carregado dinamicamente.

Uma das vantagens deste recurso é a possibilidade de compartilhar funções e componentes do módulo principal. Entretanto, se for seguir a documentação oficial a qual diz para registrar os módulos e chamar TSpiderCGI.Execute no evento OnCreate do módulo principal, ao tentar acessar o módulo principal a partir do secundário dará um erro pois, neste momento, a variável do módulo principal ainda não foi definida. A solução encontrada foi registrar os módulos e chamar TSpiderCGI.Execute no código do programa (veja o código do exemplo).

O programa

O programa de exemplo é exatamente igual ao proposto no artigo anterior. A sua estrutura conta com dois módulos:

1) O módulo principal no qual foi definido com um evento OnRequest responsável por retornar o formulário de pesquisa. O código HTML é criado com a ajuda do componente TSpiderForm que é bastante simples de usar: a função AddText adiciona texto/rótulo, AddInput adiciona os vários tipos de controles de entrada de dados (no caso foi utilizado uma entrada de texto e um botão de submissão de dados), a propriedade Action define a ação a ser executada quando o formulário for submetido.

2) O módulo secundário que foi registrado associado ao caminho "/searchcid" e é responsável por retornar os resultados da consulta. Ele utiliza uma função do módulo principal para criar o formulário de pesquisa. A tabela com o resultado da pesquisa é criada com o auxílio do componente TSpiderTable o qual basta ligar ao TDataset desejado.

Note que, ao contrário da versão do fpWeb, quando é solicitado a página principal (caminho = "/"), o componente TSqlite3Dataset não é carregado.

Bugs

Enquanto criava este programa me deparei com uma série de problemas com o FreeSpider, sendo os principais vazamentos de memória e dependência da LCL que cria arquivos enormes. Desta forma, fiz uma versão corrigindo estes problemas (o arquivo ficou um terço menor do que a versão do fpWeb) e coloquei aqui. Já enviei para o autor as modificações.

Criando um aplicativo CGI com FreePascal - Parte 2 (fpWeb)

noreply@blogger.com (Luiz Américo) — Sun, 27 Jun 2010 12:25:00 PDT

Por Luiz Américo

Introdução

O programa que decidi fazer realiza uma busca em uma base de dados da Classificação Internacional de Doenças (CID-10). Para simplificar as coisas, fiz um programa somente com visualização de dados, sem editar ou acrescentar dados.

A base de dados utilizado foi Sqlite3. Vale ressaltar que a escolha por esse banco de dados foi somente devido a simplicidade de uso visto que para programas que necessitam de alta concorrência e disponibilidade é necessário o uso de um sistema de gerenciamento de bancos de dados apropriado para a arquitetura cliente-servidor.

Preparação

Após instalar o componente weblaz (presente na pasta [lazarus]\fpweb), criei um projeto "CGI Application". São criados dois arquivos. O programa principal e uma unit com um TFPWebModule (descendente de TDataModule) o qual é registrado na inicialização através da função RegisterHTTPModule. A primeira coisa que fiz foi renomear o "Data Module" de FPWebModule1 para MainDataModule. Aí ocorreu um problema que pode trazer algum problema: na chamada para RegisterHTTPModule o nome do Data Module não é atualizado.

Outro problema que encontrei foi o uso do mecanismo antigo para carregar recursos (LResources). O mecanismo novo permite um arquivo menor, menos memória, além de permitir remover a dependência da LCL, aspectos fundamentais para um programa CGI.

Um ponto falho no fpWeb é a ausência de documentação. Após olhar nos demos, percebi que para começar é suficiente adicionar um evento OnRequest do TFPWebModule, adicionar alguma informação em AResponse.Contents e modificar Handled para True. Com isto já é possível mostrar alguma página da web, mas para algo mais complexo é necessário separar a criação de cada página/componente do programa. É aqui que entra o conceito de ações ("Actions").

Ações ("Actions")

Com as Ações é possível responder de forma diferente de acordo com a solicitação na URL. Cada Ação está associada a um evento OnRequest semelhante ao do TFPWebModule.

Para adicionar uma Ação clique na propriedade Actions (uma coleção de TFPWebAction) que aparecerá um editor. O nome da Ação a ser executada deverá ser definido na propriedade Name. Além disso é possível definir uma Ação padrão através da propriedade Default, a qual será chamada se não for encontrada a Ação solicitada.

A Ação a ser chamada é definida de duas formas. Na primeira, passando um campo de nome "action" na URL, por exemplo, http://localhost/cgi-bin/mycgi?action=myaction. Para exemplos de como usar campos na URL leiam este artigo. A outra forma é chamar o nome da Ação logo após o endereço do programa: http://localhost/cgi-bin/mycgi/myaction.

A sequência para se decidir qual Ação será chamada é a seguinte:

1) TFPModule.OnRequest é chamado. Se não tiver evento definido ou se Handled for False tenta o próximo.
2) Verifica se tem um Template definido. Se não tenta o próximo.
3) Verifica se a propriedade Actions tem a ação solicitada ou utiliza a ação padrão.

Modelos (Templates)

Cada TFPWebModule e TFPWebAction tem associado uma propriedade Template (TFPTemplate). Não cheguei a utilizar esse recurso por achar desnecessário neste caso. Além disso achei um pouco confusa a forma de utilizar. Em outro artigo vou fazer mais comentários sobre esta função do fpWeb.

Produtores de Conteúdo (Content Producers)

Cada ação tem uma propriedade ContentProducer que como o nome diz fica responsável pela criação de conteúdo daquela ação. O fpWeb vem com vários produtores de conteúdo padrão como THTMLPageProducer (responsável pela criação de uma página web) com a possibilidade de se definir o cabeçalho, o rodapé e o corpo. Cada uma destas partes pode ser criada através de eventos ou ligando a outros componentes produtores de conteúdo. Isto dá uma flexibilidade enorme ao projeto visto que você pode, por exemplo, definir um produtor de conteúdo para o cabeçalho e reutilizar em diferentes páginas. Tem também outros componentes interessantes (THTMLDatasetForm*Producer) que possibilitam criar formulários completos sem a necessidade de código. E na versão de desenvolvimento tem componentes para se retornar dados em formato JSON.

O ponto negativo fica pela dificuldade de se produzir conteúdo através da classe disponível para criação de HTML (THTMLWriter). Eu tentei utiliza-lá e desisti visto a quantidade de código necessário para se fazer algo simples.

O programa (CIDView)

Atenção: não vou entrar em detalhes do HTML usado, existe um monte de informação na web sobre isto

Bom, eu falei um bocado sobre o framework, mas e o programa?

O programa é bem simples:

Na tela inicial tem um formulário para entrar com o nome da doença a ser pesquisada e um botão para pesquisar. Após pressionar um botão, o resultado da pesquisa é mostrado, mantendo-se o formulário para uma nova pesquisa.

Para isto defini duas ações:

DefaultAction (Default = True): Retorna o título e o formulário de pesquisa
SearchCid: Retorna o mesmo que DefaultAction mais os resultados da pesquisa

Além disso utilizei os eventos BeforeRequest e AfterResponse para configurar a pesquisa ao banco de dados.

O código do programa se encontra aqui e pode ser executado aqui.

Acho que por hoje é só. Nos próximos artigos mostrarei como usei o FreeSpider para fazer o mesmo programa e as minhas críticas à arquitetura e implementação dos ambientes de desenvolvimento utilizados, pois nem tudo são flores...

Criando um aplicativo CGI com FreePascal - Parte 1 (Introdução)

noreply@blogger.com (Luiz Américo) — Sun, 27 Jun 2010 08:32:00 PDT

Por Luiz Américo

Recentemente, tem aumentado o interesse em se criar aplicativos web utilizando o FreePascal. Ao contrário de linguagens interpretadas como PHP, Perl ou Python, não é possível, atualmente, utilizar programas em pascal não compilados para construir aplicativos web. Entretanto é possível utilizar o FreePascal através do protocolo CGI/FastCGI. Se por um lado, isso diminui as opções para se desenvolver com pascal, por outro lado, ganha-se todas as vantagens de se utilizar programas compilados nativamente (velocidade, consumo de memória, verificação de tipos à compilação).

O FreePascal fornece quatro ambientes de desenvolvimento para CGI (fpWeb, FreeSpider, Powtils e ExtPascal). Para saber o que pode-se esperar de cada ambiente eu resolvi fazer um pequeno programa com o fpWeb e o FreeSpider. Não utilizarei o ExtPascal por ser específico para o ExtJS e o Powtils por ser código procedural e (aparentemente) com pouco desenvolvimento. Nas próximas postagens colocarei as minhas observações sobre cada ambiente.

Capitalização de texto codificado em UTF-8

noreply@blogger.com (Luiz Américo) — Wed, 02 Jun 2010 14:18:00 PDT

Sempre que surge um problema que as rotinas padrão do ambiente de desenvolvimento (no caso Freepascal/Lazarus) não conseguem resolver, a tendência do programador é criar uma solução caseira e comigo não é diferente.

Na maioria dos meus projetos acabo criando rotinas auxiliares, muitas destas, específicas para o projeto. Entretanto outras são genéricas e acabam sendo necessárias em outros programas. No início, seguindo as diretrizes POG, eu copiava as rotinas de um projeto para outro até que recentemente decidi colocar um pouco de ordem no caos.

Uma das funções que não encontrei no FreePascal, e que precisei em um dos meus programas, foi para capitalizar (primeira letra maiúscula, o resto minúscula) um texto. Na realidade até existe (AnsiProperCase na unit StrUtils) porém para funcionar com strings unicode/UTF-8 é preciso fazer contorcionismo:


  TextoCapitalizado := UTF8Encode(AnsiProperCase(UTF8Decode(TextoEmUTF8)));

Trocando em miúdos: a variável TextoEmUTF8 é convertida em uma string codificada em UTF-16 (WideString) que implicitamente é convertida em uma string temporária codificada no código de página ansi do sistema a qual é passada à função AnsiProperCase. Esta função retorna uma string codificada no código de página ansi do sistema que é implicitamente convertida em uma string codificada em UTF-16 (WideString) a qual, finalmente é convertida em UTF-8.

Código claro é isso aí!

Além do problema da falta de simplicidade desta abordagem, tecnicamente é possível ter corrupção de dados, visto que a conversão de UTF-16 <> Ansi não é 1 para 1 em todos casos.

Para solucionar o problema criei uma rotina (Capitalize) que utiliza dados em UTF-16/UTF-8 garantindo uma conversão exata e sem malabarismo. De quebra remove o excesso de espaços e existe a possibilidade de se excluir a capitalização de algumas palavras como por exemplo (de, da, o). Para ser utilizada em vários projetos coloquei em um pacote do lazarus o qual pode ser encontrada aqui.

Algumas notas para quem tiver interesse em usar a função:

Não é otimizada para velocidade

Pode ser usada sem instalar o pacote (luicomponents)

A versão para UTF-8 utiliza a versão UTF-16. Talvez, no futuro seja implementada uma versão específica para UTF-8

Talvez acrescente as opções encontradas nesta função

A interface pode mudar a qualquer momento

A função, como todo o código presente no meu repositório, pode ser usar em projeto comercial, porém agradeceria uma menção no programa

Temas em aplicativos Lazarus com GTK

silvioprog@gmail.com (Silvio Clécio • Blog) — Fri, 14 May 2010 02:34:00 PDT

Olá,

Sabemos que para aplicar um tema em um software sob o widget GTK2, basta apenas informar ao motor onde esta o arquivo de configuração do tema – gtkrc – e o executável do aplicativo a ser "embelezado", para aplicar em um aplicativo no Linux, seria basicamente assim:

$ GTK2_RC_FILES='/ShinyBlack/gtk-2.0/gtkrc' rhythmbox

Sendo que "ShinyBlack" é a pasta e nome do meu tema, e "rhythmbox" o executável do Rhythmbox, veja a foto dele com tema abaixo, e logo depois sem o tema:

Sem tema:

Legal heim? E que tal isso no seu aplicativo escrito com Lazarus? É isso que quero te mostrar.

Eu verifiquei algumas dicas no wiki do Lazarus, mas não consegui aplicar conforme estão lá. Também tentei uma que encontrei no fórum do Lazarus, mas sem sucesso. Após algum tempo tentando consegui resolver "a minha moda", e foi basicamente assim:

procedure TForm1.FormCreate(Sender: TObject);
begin
  gtk_rc_parse(PChar(ExtractFilePath(ParamStr(0)) + 'gtkrc'));
  gtk_rc_reparse_all;
end;

Veja o resultado abaixo:

Note que meu tema default é preto com laranja, e o que apliquei no aplicativo é preto com azul.

Alguns componentes poderão não receber o tema, mas isso vai variar de onde você pegue o tema, eu costumo pegar em:

art.gnome.org/themes/gtk2 (com diversas amostras)

Para que a dica fique mais clara para você, baixe os fontes de um exemplo em:

www.silvioprog.com.br/downloads/LazarusGTK2Theme.zip

Lembre-se que são temas para aplicativos que estão sob o widget GTK2, independente de estarem em Linux ou Windows.

Agora seus aplicativos não terão a "cara" padrão do SO, divirta-se :-)

Silvio Clécio

Junte-se ao nosso canal IRC sobre Lazarus!

gsilvioprog@gmail.com (programmer ObjectPascal) — Thu, 13 May 2010 11:31:00 PDT

Olá,

Ontem inauguramos um canal IRC sobre Lazarus aqui no Brasil, o canal chama-se #lazarus-br. Alguns caras como João Morais (PressObjects), Daniel Simões (ACBr), Luiz Américo (LuiPack) e outros membros ativos no Lazarus já apareceram lá. Só esta faltando você!

Perguntas

Você nunca usou um IRC antes? Não conhece um software para acessar e conversar com o pessoal? Não se preocupe, eu também não conhecia, aprendi tudo ontem e venho compartilhar com você com o maior prazer. :-)

Soluções Open Source

Se você usa Linux, use o XChat:

$ sudo apt-get install xchat

Se você usa Windows, tem uma versão para ele aqui:

http://www.silverex.org/download/xchat-2.8.6-2.exe (http://www.silverex.org/download/)

Prossiga com a instalação, e ao abrir o software, preencha os dados que ele pedir. Eu escolhi freenode e preenchi somente os dados básicos. De tão simples (mais fácil que acessar o MSN), não será necessário fotos para ilustrar. Mas se mesmo assim você tiver dúvidas, eu te indico dois links, foi lá que aprendi:

http://wiki.ubuntu-br.org/UsandoIRC (do básico ao intermediário)
http://board.katsuro.com.br/index.php?page=Thread&threadID=106 (vários comandos)

Atualmente estou frequentando o nosso canal sobre Lazarus – #lazarus-br), o canal do Ubuntu aqui no Brasil – #ubuntu-br, e o canal do Lazarus nos EUA – #lazarus-ide. Estou adorando estar em contato com a galera em tempo real. :-)

Esses canais são exclusivos para tirar dúvidas dos usuários, lá você terá grandes chances de resolver um problema em seu software, no caso dos canais que citei, dúvidas sobre Lazarus e Ubuntu. Procure mais canais na web sobre outros tópicos, existem milhares e estão ativos aí a um bom tempo.

Vai lá e acessa, qualquer dúvida fique a vontade para perguntar aqui nos comentários.

Boa sorte!

Silvio Clécio

Instalando o Lazarus no Lucid ou Maverick pelo SVN

gsilvioprog@gmail.com (programmer ObjectPascal) — Fri, 07 May 2010 14:28:00 PDT

Neste artigo vamos instalar no Lucid (ou Maverick) o Free Pascal 2.4.0-2, e a versão SVN do Lazarus. Vamos lá, temos muito trabalho a fazer!

Abrindo o Synaptic e instalando o Free Pascal 2.4.0-2

Primeiro, vá ao menu Sistema | Administração e abra o Gerenciador de pacotes Synaptic:

Feito isso, busque por "fpc" (sem aspas):

Observe com muita atenção as opções que marquei, se você esquecer uma delas o Lazarus não irá funcionar corretamente. As opções marcadas foram:

fpc
fp-utils
fpc-source
fp-units-misc

Todas referentes a versão 2.4.0-2 do Free Pascal. A instalação poderá levar alguns minutos, espere até concluir:

Após a conclusão da janela mostrada na figura acima o Free Pascal estará instalado, para testá-lo, abra o terminal e digite:

$ fpc

Ele irá exibir algumas informações, use Enter até concluir.

Instalando o Subversion e baixando os fontes do Lazarus por ele

Caso você não tenha instalado o Subversion em seu Lucid, use o comando abaixo:

$ sudo apt-get install subversion

Após isso, escolha algum diretório para salvar os fontes do Lazarus, lembrando que o mesmo deverá ter as devidas permissões. No meu caso, escolhi “/home/silvioprog” (meu $HOME):

$ cd '/home/silvioprog'

E logo depois :

$ svn co http://svn.freepascal.org/svn/lazarus/trunk lazarus

Você receberá várias linhas em seu terminal, conforme mostra a imagem a seguir:

O download levará algum tempo, enquanto isso você poderá minimizar o terminal e acessar outros artigos aqui do blog ;-)

Rodando o comando Make

Entre no diretório:

$ cd /home/SEU_USERNAME/lazarus

E rode o comando make, esperando sua total conclusão, pois serão muitas linhas a serem processadas:

$ make clean all

Veja os binários construídos na imagem a seguir:

Concluindo essa etapa com êxito, seu Lazarus estará pronto para o abate. :-)

Criando o menu para abrir o Lazarus

Você não vai querer ir sempre no diretório e dar duplo clique no binário para abrir o Lazarus, não? Vá ao menu Sistema | Preferências e escolha Menu principal:

Escolha Desenvolvimento, clique em Novo item, e preencha as propriedades:

As opções são:

Tipo: Aplicativo
Nome: Lazarus
Comando: startlazarus
Comentário: Lazarus IDE

Clique no botão onde aponta o cursor na imagem acima, e localize aquele ícone em “/home/SEU_USERNAME/lazarus/images/ide_icon48x48.png”. Após clicar em OK e Fechar, crie os seguintes links:

$ sudo ln -s '/home/SEU_USERNAME/lazarus/startlazarus' /usr/bin/startlazarus
$ sudo ln -s '/home/SEU_USERNAME/lazarus/lazarus' /usr/bin/lazarus

Agora use o novo menu criado e abra o Lazarus:

Se ao abrir o Lazarus ele não exibir nenhuma mensagem e conseguir compilar o Form aberto, pule para a conclusão.

Configurando o caminho dos fontes do Free Pascal no Lazarus

Provavelmente ao abrir o Lazarus você receberá a seguinte mensagem:

Não se assuste, foi apenas o Lazarus que não conseguiu encontrar os fontes do Free Pascal. Para resolver isso, vá ao menu do Lazarus, Environment | Options …, e configure conforme a imagem abaixo:

Em FPC source directory informe:

/usr/share/fpcsrc/$(FPCVer)/

Clique OK, e finalmente o seu Lazarus está pronto para o abate!

Conclusão

Algumas pessoas “temem” acompanhar projetos pelo SVN, devido as constantes mudanças nos fontes dos mesmos. Mas no caso do Lazarus, você poderá acompanhar novos recursos em tempo real, uma vez que as liberações finais dele demoram um pouco para sair (note que ainda estamos na beta), e o principal – Você poderá colaborar com o desenvolvimento informando bugs.
Eu acompanho e recomendo, pois estou usando novos recursos que não tem em versões anteriores, como por exemplo a função OpenURL da Unit LCLIntf, que serve para abrir um HTML local ou página da web no browser corrente.

É isso, abraços, e até a próxima!

Silvio Clécio

Artigo editado em 16/10/2010

Lazarus e BASS, executar áudio no Lazarus em Linux e Windows

gsilvioprog@gmail.com (programmer ObjectPascal) — Sun, 28 Mar 2010 17:53:00 PDT

Agora é possível executar áudio com Lazarus no Linux e Windows \o/. Tudo graças e um único arquivo para o determinado S.O, para Linux uma Lib, para Windows uma DLL, respectivamente libbass.so e bass.dll, lembrando que não é necessário a instalação ou registro desses arquivos, basta que estejam na mesma pasta do executável do seu aplicativo. Não é simples?

Testando:
Encontrei um exemplo no site do fabricante, bem prático, e foi escrito para ser compilado no Lazarus em Linux e Windows. Compilei aqui em meu Ubuntu; Explico como abrir um arquivo mp3:

Clique em Add;
Selecione o arquivo na lista;
Play;

Veja o exemplo em ação na imagem abaixo:

No exemplo o autor mostrou como usar os recursos básicos como play, stop e etc., e também a medição de consumo da CPU, mas deixo aqui o recado que a biblioteca bass processa efeitos sonoros, como eco, reverb, delay, flanger, chorus, phaser, tremulo, sampler e muito mais, acesse o site da biblioteca e veja diversos exemplos. A biblioteca é free para uso não comercial, veja mais detalhes sobre licenças na home page deles.

O exemplo completo pode ser baixado aqui, divirta-se :-)

Silvio Clécio

Form transparente no Lazarus

gsilvioprog@gmail.com (programmer ObjectPascal) — Sat, 27 Mar 2010 19:44:00 PDT

Olá a todos,

Ontem recebi um e-mail do membro Elson Junio (é Junio mesmo :-) ) de nosso grupo sobre Lazarus no Google, ele me mostrou a possibilidade de criar Forms transparentes no Linux/GTK2. Após uma boa lida na documentação do GTK ele encontrou a função gtk_widget_shape_combine_mask, escreveu um pequeno exemplo mostrando como usar a função e me enviou. A função é parecida com a SetWindowRgn da Unit win32proc. Para que o exemplo ficasse completo, escrevi uma parte exclusiva para Linux e Windows e disponibilizei em http://www.silvioprog.com.br/downloads/LazTransparentForm.zip. Aproveitei um dos skins do VLC Media Player.

Em ambos os S.Os eu notei que ao mover o Form rapidamente, ele era arremessado para fora da tela, mas resolvi adicionando um Timer ao exemplo. No final consegui fazer o recurso funcionar no Linux e Windows.

Após abrir o exemplo vocês verão como é fácil criar Forms transparentes no Lazarus, seja em Linux ou Windows. Simples assim :-)

Até a próxima,

Silvio Clécio

Utilizando Web Services SOAP no Lazarus

noreply@blogger.com (Luiz Américo) — Sun, 21 Mar 2010 14:42:00 PDT

Por Luiz Américo

Introdução

Recentemente, foi me solicitado que um dos meus programas importasse os dados de outro sistema, o qual disponibiliza uma interface de "Web Services" baseado no protocolo SOAP. O sistema em questão é um aplicativo para gestão hospitalar desenvolvido com tecnologia .NET com uma interface web. Uma versão pública para testes encontra-se em http://sah.saude.ba.gov.br/. É possível entrar com o login "teste" e a senha "teste".

Requerimentos para a implementação (testes realizados no windows):

Lazarus recente com fpc240
Web Services Toolkit (versão do svn: https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/wst)
Synapse (http://www.ararat.cz/synapse/)
Arquivo wsdl que deve ser baixado de http://sah.saude.ba.gov.br/ws.asmx (link Service Description)
* SoapUI (http://www.soapui.org/) - Opcional

1° Passo: Testar o Web Service (Opcional)

Apesar de opcional este passo é muito importante para saber se o serviço está realmente funcionando e para, de antemão, conhecer o formato do pedido e da resposta.

O melhor programa que eu encontrei foi o SoapUI, um programa Open Source bastante completo. Para configurá-lo não foi difícil. Apenas criei um projeto e defini a localização do arquivo WSDL (tudo com a configuração padrão). Após a criação do projeto aparecerá uma lista com todas as funções definidas pelo serviço. Cada função vem com um modelo de pedido (Request) pré-configurado que pode ser usado para testar o serviço. Abaixo tem uma tela do programa:

Nesta tela, à esquerda, fica os dados do pedido. No caso é necessário colocar o número do CNES (Cadastro Nacional de Estabelecimentos de Saúde) que é "00000" no sistema de teste. Para executar o pedido pressione o botão com a seta verde.
Após obter a resposta os dados aparecerão na tela à direita (mais sobre o formato da resposta adiante).

2° Passo: Instalar o pacote Web Services Toolkit (WST) junto com o Synapse

Para funcionar o WST precisa de um componente para se conectar ao servidor. Neste exemplo eu usei o Synapse.

Na pasta ide/lazarus do WST encontra-se vários pacotes. Abra e instale os seguintes: wst_core, wst_design e wst_synapse. Provavelmente ao tentar compilar o wst_synapse aparecerá um erro. Para consertá-lo abra o pacote wst_synapse, vá em Compiler Options / Other Units e adicione a pasta onde se encontra os fontes do synapse, no meu caso: "D:\sources\Synapse\source\lib\"

3° Passo: Criar as classes que definem o serviço.

Após instalar o pacote WST e baixar o arquivo wsdl, vá em Project > Web Services Toolkit > Import WSDL file...

Aparecerá a janela abaixo:

Defina a localização do arquivo WSDL e onde o código gerado será armazenado. Mantenha a configuração padrão (se desejar selecione "Add generated files to project"). Após o OK, dois arquivos serão criados: sah.pas e sah_proxy.pas. O primeiro contém classes que mapeiam as funções e tipos de dados definidos pelo Web Service. O segundo (sah_proxy.pas) implementa a interface do serviço, neste caso WSSoap.

4° Passo: Configurar o cabeçalho

Este serviço necessita que se configure a propriedade SoapAction do cabeçalho Http para cada função a ser chamada.

O WST utiliza meta dados que são definidos no procedimento Register_sah_ServiceMetadata. Para configurar a função ListarSetorInternamento, adicione o seguinte código:

mm.SetOperationCustomData(sUNIT_NAME,'WSSoap','ListarSetorInternamento','TRANSPORT_soapAction','http://rsconsis.uni.cc/ListarSetorInternamento');

De onde veio esta informação? No arquivo WSDL procure por SoapAction e o nome da função desejada. No caso a parte do código relevante para ListarSetorInternamento é:

< wsdl:operation name="ListarSetorInternamento">< soap:operation soapaction="http://rsconsis.uni.cc/ListarSetorInternamento" style="">

Isto deve ser feito para todas as funções que serão utilizadas, neste caso PesquisaEmpresa também.

5° Passo: Inicializar (e terminar) o serviço.

Para isso, na unit principal, defina uma variável WSSoap:

var  Service: WSSoap;

Também na unit principal, acrescente o seguinte código de inicialização/finalização:

initialization  SYNAPSE_RegisterHTTP_Transport();  Service := wst_CreateInstance_WSSoap();finalization  Service := nil;

Reparem na chamada para inicializar o transporte via synapse. Sem isso dá erro.

6° Passo: Executar a função PesquisaEmpresa

A função PesquisaEmpresa retorna os dados da Unidade de Saúde. Como dito anteriormente, é necessário passar o CNES. O formato da resposta é um arquivo xml serializado em uma string.

Os detalhes: PesquisaEmpresa (definida na interface WSSoap) requer um parametro PesquisaEmpresa_Type o qual contém um campo string para definir o CNES. A função retorna uma instância de um objeto PesquisaEmpresaResponse que por sua vez tem um campo string (PesquisaEmpresaResult). É neste campo que encontramos o xml serializado. Abaixo a rotina que chama o serviço e converte a string em um TXMLDocument. Após isto é só extrair os dados necessários (código completo no programa de demonstração)

function GetUnitNameXml(out XmlTree: TXMLDocument): Boolean;var  Param: PesquisaEmpresa_Type;  Response: PesquisaEmpresaResponse;  S: String;begin  XmlTree := nil;  Param := nil;  Response := nil;  Result := True;  try    Param := PesquisaEmpresa_Type.Create();    Param.cnes := '00000';    Response := Service.PesquisaEmpresa(Param);    //O serviço erroneamente declara como se fosse codificado em UTF-16.    S := StringReplace(Response.PesquisaEmpresaResult, 'utf-16', 'utf-8', [rfReplaceAll]);    Str2XmlFile(XmlTree, S);  except    FreeAndNil(XmlTree);    Result := False;  end;  Response.Free;  Param.Free;end;

7° Passo: Executar a função ListarSetorInternamento

Aqui a porca quase que torce o rabo!. Da mesma forma que na função anterior é necessário passar um parâmetro com o CNES definido e um objeto com a resposta é retornado. Entretanto o campo com o resultado (ListarSetorInternamentoResult) não é uma string e sim uma classe derivada do TBaseComplexRemotable:

ListarSetorInternamentoResponse_ListarSetorInternamentoResult_Type =class(TBaseComplexRemotable)end;

Quando me deparei com essa classe fui procurar em TBaseComplexRemotable uma string, um buffer, um TXMLDocument com o conteúdo da resposta e nada... Só depois de algum tempo batendo cabeça descobri que era necessário implementar o método Load definido na classe TBaseRemotable. Então, criei a classe TComplexXmlContentRemotable, derivada de TAbstractComplexRemotable, que pega o resultado e armazena em um buffer (TMemoryStream).

class procedure TComplexXmlContentRemotable.Load(var AObject: TObject;  AStore: IFormatterBase; var AName: string; const ATypeInfo: PTypeInfo);begin  if AObject = nil then    AObject := Create();  with AObject as TComplexXmlContentRemotable do  begin    if FStream = nil then      FStream := TMemoryStream.Create    else      FStream.Clear;    AStore.SaveToStream(FStream);    FStream.Position := 0;  end;end;

Depois disso é necessário redefinir a classe da resposta:

ListarSetorInternamentoResponse_ListarSetorInternamentoResult_Type = class(TComplexXmlContentRemotable);

e utilizar o xml armazenado no buffer:

ReadXMLFile(XmlTree, Response.ListarSetorInternamentoResult.Stream);

Fica a pergunta: porque o serviço não retorna o resultado com os dados já armazenados em seus devidos tipos?. O desenvolvedor do WST me relatou que a resposta contém namespaces e, no momento, esse tipo de resposta não é reconhecido devendo ser utilizado a informação crua.

O programa completo encontra-se aqui. Além de conter as rotinas para usar o serviço, o programa mostra como usar o XPath para extrair dados de uma árvore XML e como mostrar uma XML em um TreeView.

Artigo atualizado em 24/03/2010

Novo contribuidor - apresentação

noreply@blogger.com (Luiz Américo) — Sun, 21 Mar 2010 14:31:00 PDT

Olá, meu nome é Luiz Américo, sou usuário do Lazarus há longa data (desde 2001) e desenvolvo alguns componentes como o TSqlite3Dataset e o port do VirtualTreeView.

Com o aumento do interesse no Lazarus no Brasil decidi contribuir com a comunidade escrevendo também em português (tenho um blog em inglês). Sempre que houver algo interessante estarei postando aqui no blog do Silvio, ao qual desde já agradeço pelo espaço.

Prevenindo problemas com caracteres acentuados no Lazarus

gsilvioprog@gmail.com (programmer ObjectPascal) — Fri, 12 Mar 2010 16:15:00 PST

De início, vou mostrar o que falei em private certo dia para um amigo:

Você já percebeu como os sistemas comerciais evitam caracteres acentuados? Bancos, repartições públicas, sites na Web, e etc. Eu já fui contra isso, era do tipo que não aceitava um ATENCAO no lugar de um ATENÇÃO, só hoje com algum tempo na área de programação é que pude entender essa assídua fuga de acentuação gráfica em sistemas.

Antes de escrever esse artigo eu pesquisei com amigos no nosso grupo Lazarus no Google e na lista de discussão sobre Lazarus no Yahoo, em todos os emails eu havia deixado claro que estava evitando o OnChange, pois conversando com um amigo ele me mostrou outro método onde eu poderia trabalhar. Seria no OnKeyPress, ou OnUTF8KeyPress, mas infelizmente esses dois métodos estão recebendo suporte para o GTK2. Se você tem algum conhecimento sobre as implementações do Lazarus para o widget GTK2, poderá contribuir para resolver o problema aqui.

Mas este artigo não é para falar de problema no Lazarus, e sim precaver-se desse tipo de problema em seus aplicativos. Explicarei a maneira como consegui resolver e que será a usada em todos os meus aplicativos. Usarei a substituição de caracteres em tempo real.

Algumas pessoas tem bancos de dados enorme em formato Ansi, e julgam inviável migrar para UTF-8, e elas devem ter seus motivos. Mas eu sempre recomendo migrar, criar um banco novo e ir migrando para UTF-8 aos poucos, pois com as mudanças de unicode em diversas ferramentas, incluindo Lazarus e Delphi, mais cedo ou mais tarde começarão a aparecer problemas em sistemas que ainda estão em Ansi. Ou você nunca atualizará o seu sistema? Note que não falo de atualizar a IDE, mas o S.O e o sistema desenvolvido por você.
Ferramentas para conversão de unicode de banco de dados podem ser encontradas aqui. Se não atender a sua necessidade, serve como referência e ponto de partida.

Alguns amigos me ajudaram na implementação da classe que vou apresentar, busquei ajuda aqui no Brasil e nos Estados Unidos, não na lógica das rotinas, mas na prevenção de erros nelas por conta do unicode do Lazarus.

A minha lógica não é milagrosa e muito menos misteriosa, apenas irei substituir caracteres acentuados por caracteres equivalentes, por exemplo:

Comparação simples:

Ã = A
Ç = C
Ñ = N
Ê = E

Lista completa de caracteres acentuados:

'à', 'á', 'â', 'ã', 'ä', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ò', 'ó', 'ô', 'õ', 'ö', 'ù', 'ú', 'û', 'ü', 'À', 'Á', 'Â', 'Ã', 'Ä', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ù', 'Ú', 'Û', 'Ü', 'ç', 'Ç', 'ñ', 'Ñ'.

Faltou algum? Declare :-)

Tenho "trocentos" componentes para edição em meus Forms, como vou aplicar a regra de substituição de caracteres em todos eles?

Simples. Registre todos os componentes de edição na classe TWithoutAccent_pt_BR através do método de classe RegisterEdits, que recebe um array de TCustomEdit's, exemplo:

Código:

(...)

TWithoutAccent_pt_BR.RegisterEdits([Edit1, Edit2, MaskEdit1, Memo1]);

(...)

Você pode registrar quantos componentes quiser. Internamente a classe TWithoutAccent_pt_BR usa a classe TWithoutAccent, que usa a função WithoutAccent_ptBR no OnChange de cada componente, mas deixando-o intacto e livre para uso, em cada componente. Para ficar mais claro, mostrarei de uma forma bem simples como fiz, veja no código comentado abaixo:

Código:

var
  I: integer;
  S: string;
  VEdit: TCustomEdit; // Declarei para não ser necessário repetir tanto o TCustomEdit(Sender);
begin
  VEdit := TCustomEdit(Sender); // Capturo a instância do componente corrente para VEdit;
  S := WithoutAccent_ptBR(VEdit.Text); // Capturo o texto do componente e substituo os caracteres;
  if S <> VEdit.Text then // Verifico se há diferença no texto do componente e no texto sem caracteres acentuados ...

  begin
    I := VEdit.SelStart; // ... caso positivo, capturo a posição do cursor do componente;
    VEdit.Text := S; // Substituo o texto com caracteres acentuados pelo texto sem;
    VEdit.SelStart := I; // Devolvo a posição do cursor;
  end;
  if Assigned(FOldOnChange) then // Verifico se existe algo implementado no método OnChange do componente ...
    FoldOnChange(Sender); // ... caso positivo, o executo;
end;

Viu como é simples? Aproveitei a mesma lógica de como a classe TCustomEdit implementa o CharCase. Não entrarei em detalhes sobre as outras partes da classe pois ela é muito simples, um exemplo completo usando todos os recursos da classe pode ser baixado aqui.

Caso você tenha gostado – ou não :) –, ou em caso de dúvidas, comente, sinta-se a vontade.

Abraços e até a próxima.

Silvio Clécio

Baixe este artigo em formato PDF aqui.

Salvando configurações de aplicativo Lazarus

silvioprog@gmail.com (Silvio Clécio • Blog) — Wed, 03 Mar 2010 21:22:00 PST

Em algumas ocasiões precisamos salvar as configurações do aplicativo, como posição do Form quando foi fechado, texto em Edit de nome de login, e outras coisas como as opções do sistema – caso você tenha criado, claro.

Fazer isso no Lazarus é muito simples, e para agradar mais ainda o desenvolvedor, o recurso é nativo :-)

Os dois componentes que foram criados para esse fim, são:

IniPropStorage – Salva as configurações num arquivo INI;
XMLPropStorage – Salva as configurações num arquivo XML;

Vamos usar o XMLPropStorage e ver o componente em ação, para isso faça o seguinte:

Inicie um novo projeto;
Solte um componente XMLPropStorage no Form (ele fica na aba Misc);
No Form onde você colou o componente terá a propriedade SessionProperties, basta definir quais as propriedades do aplicativo que você quer salvar no XML;

Para testar, clique no botão com "..." e escolha as propriedades Lef e Top, vamos salvar a posição onde o Form estava quando foi fechado, veja a definição na imagem abaixo:

Rode o projeto, mova o Form para um canto da tela, feche o aplicativo e rode-o novamente, o Form irá abrir exatamente na posição onde você deixou quando o fechou. Simples não?!

Note que os componentes tem opções para configuração, você pode informar o caminho onde será salvo o arquivo de configuração (se deixar a propriedade FileName em branco ele cria um arquivo com o nome do seu projeto), dente outras coisas.

É isso, caso queira conhecer mais os componentes, visite o wiki do Lazarus, eu estou contribuindo por lá também ;-)

Silvio Clécio

Form e/ou função em Lib ou DLL com Lazarus

silvioprog@gmail.com (Silvio Clécio • Blog) — Sun, 28 Feb 2010 03:06:00 PST

Eu passei algumas horas pesquisando sobre isso e confesso que pensei que não era possível, mas no final vi que além de ser possível já tem gente modularizando sistema dessa maneira, dividindo o sistema em vários arquivos. Não sou muito a favor disso – modularizarão – mas deixo aí minha pequena contribuição mostrando uma saída, baixe o exemplo completo no link abaixo:

http://www.silvioprog.com.br/downloads/MakeYourFuncLib-FormLib.zip

Vale lembrar que testei no Linux e Windows, e funcionou perfeitamente. Deixei dois scripts (para os novatos ;-) ) para instalação das libs no Linux.

Enjoy!

Silvio Clécio

Desabilitando diálogo de erro nativo do Lazarus

silvioprog@gmail.com (Silvio Clécio • Blog) — Mon, 15 Feb 2010 22:01:00 PST

Se você não gosta dessa janela de erro nativa do Lazarus, e quer trocar por outra, acesse este link e baixe um exemplo que fiz para usar dois tipos de janelas, onde irá aparecer somente o botão OK.

O que foi feito?

Eu criei uma classe bem simples, que registra um novo ExceptionHandler e remove o antigo, bastando apenas chamar o método Register da classe no initialization na Unit do Form principal ou no OnCreate do mesmo.

Novamente, o link do exemplo esta aqui.

Enjoy!

Silvio Clécio

Atualize seu navegador

silvioprog@gmail.com (Silvio Clécio • Blog) — Sun, 07 Feb 2010 21:25:00 PST

Por que devo atualizar?

Navegadores antigos como o Internet Explorer 6 (lançado em 2001) não exibem sites dentro dos padrões web, são repletos de bugs, não oferecem as funcionalidades dos browsers atuais como navegação por abas ou gerenciador de downloads e estão submetidos a sérios problemas de segurança como vírus e malware.

Ainda comprometem a qualidade da exibição de sites e limitam a criação de desenvolvedores, que precisam perder tempo adaptando o site para rodar nesses navegadores obsoletos.

TMediaPlayer no Lazarus

silvioprog@gmail.com (Silvio Clécio • Blog) — Wed, 27 Jan 2010 13:17:00 PST

Não será bem o TMediaPlayer que vamos usar, e sim algo mais completo – o TMPlayerControl. O componente usa um aplicativo que costumo brincar falando o seguinte: "... o mplayer roda até tampa de garrafa" :-).

Agora vamos ao que interessa, executar áudio e vídeo no Lazarus!
O componente esta disponível no SVN e na seção de downloads daqui, segue links:

SVN:

lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/mplayer

Mirror:

sites.google.com/site/silvioprogbs/downloads/mplayer.zip

Após baixar o componente instale no Lazarus, e execute um aplicativo de demonstração disponível na pasta examples, veja na Figura 1 o componente instalado no Lazarus e o exemplo aberto:

Figura 1. TMPlayerControl.

Caso você não tenha o mplayer instalado no Linux, use o seguinte comando:

Comando:

$ sudo apt-get install mplayer-nogui

(Ou clique aqui)

Agora você tem um completíssimo executor de mídia open source compatível com Linux, e totalmente entendível pelo Lazarus.

Enjoy!

Silvio Clécio

Instalando o PostgreSQL no Ubuntu

silvioprog@gmail.com (Silvio Clécio • Blog) — Sun, 24 Jan 2010 17:05:00 PST

O objetivo deste artigo é apenas mostrar como instalar o PostgreSQL, descobrir os recursos desse poderoso SGBDOR open source ficará por sua conta; recomendo fortemente a leitura da documentação oficial do produto.

Primeiramente vamos baixar o pacote de instalação, lembrando que as janelas de instalação no Windows são idênticas as do Linux, com isso, você poderá usar este mesmo artigo como referência para instalar o PostgreSQL no Windows, mudando apenas o pacote de instalação. Acesse a home page do projeto, ou vá direto ao seguinte link:

Link:

www.enterprisedb.com/products/pgdownload.do

Baixe o arquivo conforme a figura a seguir:

Um mirror não oficial pode ser encontrado no link:

Link:

objectpascal.4shared.com

O arquivo usado na instalação será este – postgresql-8.4.2-1-linux.bin.

Supondo que você salvou o arquivo em /tmp, abra o terminal e execute os seguintes comandos:

Comandos:

$ sudo chmod 777 /tmp/postgresql-8.4.2-1-linux.bin
$ cd /tmp
$ sudo ./postgresql-8.4.2-1-linux.bin

Deverá aparecer uma janela como mostra a próxima figura:

Use o botão Next e prossiga a instalação. Irei resumir este artigo mostrando nas figuras a seguir os passos que usei para uma instalação com sucesso, adianto as seguintes informações sobre a instalação que fiz aqui:

Diretório onde será instalado o PostgreSQL – /opt/PostgreSQL/8.4;
Diretório onde o PostgreSQL irá salvar meus bancos de dados – /opt/PostgreSQL/8.4/data;
Senha que usei – postgres;
Porta – 5432;

Chegando com êxito até aqui, o seu PostgreSQL estará instalado! Agora acesse o menu gerado e abra o pgAdmin III, conforme mostra a figura a seguir:

Acesse o banco de dados padrão do PostgreSQL, usando as opções como mostram as imagens a seguir:

Caso ocorra erro de falta da lib "libpq.so", use o seguinte comando:

Comando:

$ sudo apt-get install libpq-dev

Pronto, o PostgreSQL esta perfeitamente instalado e configurado, use a documentação oficial e aproveite esse poderoso SGBDOR.

Enjoy!

Silvio Clécio

Este artigo esta disponível para download em formato PDF aqui.

Artigo atualizado em 15/02/2010