Recent

Author Topic: Componente para digitalização  (Read 6744 times)

fernandocg

  • New member
  • *
  • Posts: 7
Componente para digitalização
« on: April 08, 2015, 11:33:03 pm »
Boa noite!

Alguém já utilizou algum componente para digitalização no Lazarus? Tentei usar o Delphi Twain mas ele é meio confuso.

Quem souber de algum outro, agradeço.

progdias

  • Newbie
  • Posts: 3
Re: Componente para digitalização
« Reply #1 on: April 09, 2015, 12:31:44 am »
Boa noite

Nunca tentei, mas se estiveres em linux, dá uma vista de olhos a:

http://wiki.lazarus.freepascal.org/PascalSane

Espero ter ajudado   :)

fernandocg

  • New member
  • *
  • Posts: 7
Re: Componente para digitalização
« Reply #2 on: April 09, 2015, 12:40:28 am »
Obrigado pela resposta ProgDias, mas infelizmente é para Windows.

Continuo com a dúvida. Quem souber algo, agradeço.

andrej.silva

  • Newbie
  • Posts: 6
Re: Componente para digitalização
« Reply #3 on: April 09, 2015, 02:43:55 am »
Oi, eu uso o Delphi Twain, se quiser posso postar um exemplo, ele sempre funcionou

fernandocg

  • New member
  • *
  • Posts: 7
Re: Componente para digitalização
« Reply #4 on: April 09, 2015, 01:42:55 pm »
Bom dia andrej.silva,

Se puderes colocar um exemplo, ficarei agradecido.
Caso queira me enviar por email: fernandogeneroso@ig.com.br

Obrigado!

andrej.silva

  • Newbie
  • Posts: 6
Re: Componente para digitalização
« Reply #5 on: April 10, 2015, 03:20:18 am »
Oi, então precisa somente declarar uma váriavel do tipo TDelphiTwain

Scanner: TDelphiTwain;
    procedure DelphiTwain1TwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);


  Scanner := TDelphiTwain.Create(Application);
  Scanner.OnTwainAcquire := @DelphiTwain1TwainAcquire;

Dentro da procedure "DelphiTwain1TwainAcquire" você pega a imagem digitalizada pela variavel Image

Exemplo:

Image1.Picture.Assign(Image);

Para chamar o Scanner

Var
  SourceIndex: Integer;
  Source: TTwainSource;

begin

     Scanner.LibraryLoaded := true;
     Scanner.SourceManagerLoaded := true;
     SourceIndex := Scanner.SelectSource();
     if SourceIndex <> -1 then
     begin
       Source := Scanner.Source[SourceIndex];
       Source.Loaded := true;
       Source.Enabled := true;
     end;


end;

Não esqueça de declarar na sessão uses DelphiTwain

fernandocg

  • New member
  • *
  • Posts: 7
Re: Componente para digitalização
« Reply #6 on: April 10, 2015, 02:06:02 pm »
Muito obrigado André.

Vou fazer e qualquer dúvida posto aqui.

hugoengel2003

  • New member
  • *
  • Posts: 8
Re: Componente para digitalização
« Reply #7 on: November 15, 2018, 01:37:29 am »
Boa noite,
Se for possível, poderia mandar um exemplo de como utilizar o DelphiTwain, por favor.

 

TinyPortal © 2005-2018