Há uma semana mencionei que publicaria um review de meu artigo Escaneando Documentos com Delphi publicado na revista ClubeDelphi 83. Pois bem, como mencionado no Twitter o componente que utilizava até então não funcionou muito bem com Delphi XE o que me forçou a procurar outro componente. Acabei descobrindo uma suíte bem legal com diversos controles e recursos.

Nesse post veremos como fazer a aquisição de imagens utilizando-se de qualquer scanner e da suíte TImageEnIO. Utilizei nesse post o mesmo exemplo desenvolvido para a revista tempos atrás. O exemplo apenas conecta-se a um banco de dados em Firebird com apenas uma tabela. A estrutura da tabela é bem simples possuindo apenas campos para Descrição, Nome de Arquivo e um Blob para armazenar a fotografia do documento escaneado.

O exemplo encontra-se disponível na seção Downloads no link http://bit.ly/hjaMOj.
Em meu canal de tecnologia disponibilizei um vídeo de utilização do componente.

Para vermos como é simples escanear um documento, veja o principal trecho de chamada:

procedure TfrmPrincipal.btnCapturaClick(Sender: TObject);
begin
  {Scaneando}
  ImageEnView1.IO.TWainParams.VisibleDialog  := True;
  ImageEnView1.IO.WIAParams.ProcessingBitmap := ImageEnView1.IEBitmap;
  ImageEnView1.IO.WIAParams.Transfer(Nil, false);
  ImageEnView1.Update;
end;

Assista ao vídeo explicativo:

Adriano Santos
Twitter @asrsantos

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos