Como chamar scanner direto do delphi ??

Question

Caros amigos.Algu�m saberia como escanear um documento jogando a imagem direto para o delphi ? Explicando melhor... Seria abrir o scanner, escanear o documento j� jogando a imagem escaneada para dentr...

Ricvictor · Answer

Turma... realizei uma pesquisa e acabei encontrando o componente Twain, f�cil de usar, que funciona da forma como pretendida aqui nessa quest�o (disposta no f�rum).

Por�m, me esbarrei com uma limita��o. A imagem escaneada vindo direto para um componente do tipo Image, no visual, fica cortando. Seria ideal se consegu�ssemos fazer carregar a imagem escaneada direto para um componente que possua barra de rolagem.

Algu�m teria uma id�ia ?

Abra�o a todos e obrigado desde j� aos que ajudarem.

Ricardo - Natal/RN.

Altingon · Answer

N�o cheguei a testar....mas veja se funciona

var
  MyBitmap: TBitmap;

...

procedure TForm1.ScrollBar2Change(Sender: TObject);
var
  RectDest, RectSource: TRect;
begin
  RectDest:=Rect(0, 0, Image1.Width, Image1.Height);
  RectSource:=Rect(
    ScrollBar1.Position, 
    ScrollBar2.Position, 
    Scrollbar1.Position+Image1.Width, 
    ScrollBar2.Position+Image1.Height);
  Image1.Canvas.CopyRect(RectDest, MyBitmap.Canvas, RectSource);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyBitmap:=TBitmap.Create;
  MyBitmap.LoadFromFile(�factory.bmp�);
  Image1.Picture.Bitmap.Assign(MyBitmap);
  ScrollBar1.Max:=MyBitmap.Width-1-Image1.Width;
  ScrollBar2.Max:=MyBitmap.Height-1-Image1.Height;
end;

Ricvictor · Answer

Valeu pela id�ia, altingon.Ainda n�o funcionou conforme o esperado, mas da�, � apenas um detalhe, um acerto nos limites que o scroll deva reconhecer.A partir da tua id�ia, vou tentar aprimorar. Postarei aqui, caso consiga atingir os 100�.Grande abra�o e obrigado.Ricardo - Natal/RN....

Ricvictor · Answer

A�� Altingon, deu certo a partir da tua id�ia.

Segue o teu c�digo, com as devidas corre��es:

...
var
MyBitmap: TBitmap;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
RectDest, RectSource: TRect;
begin
RectDest:=Rect(0, 0, Image1.Width, Image1.Height);
RectSource:=Rect(
ScrollBar2.Position,
ScrollBar1.Position,
Scrollbar2.Position+Image1.Width,
ScrollBar1.Position+Image1.Height);
Image1.Canvas.CopyRect(RectDest, MyBitmap.Canvas, RectSource);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyBitmap:=TBitmap.Create;
MyBitmap.LoadFromFile(�C:\Documents and Settings\Administrador\Meus documentos\Minhas imagens\Counter Strike.bmp�);
Image1.Picture.Bitmap.Assign(MyBitmap);
ScrollBar2.Max:=MyBitmap.Width-1-Image1.Width;
ScrollBar1.Max:=MyBitmap.Height-1-Image1.Height;
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
self.ScrollBar1Change(nil);
end;

...

Bom, � isso.

Grande abra�o e valeu pela grande ajuda.

Ricardo - Natal/RN.

Altingon · Answer

Que bom que deu certo cara...Credito merecido a esse endere�o: //www.vbforums.com/showthread.php?t=292700Valeu...

Lincesmarques · Answer

Cara poderia mandar o link do componente TWAIN pra gente? To precisando dele tamb�m.Obrigado....

Powerlog Tecnologia · Answer

Consegui fazer a rotina de scanner no meu sistema, atrav�s de um artigo da revista ACTIVE DELPHI, edi��o 51 de Maio/2008.

[url]http://www.activedelphi.com.br/mostra_edicao.php?ed=51[/url]

O link para baixar o twain que ele informou no artigo � o [url]www.informaticon.com.br/downloads/DelphiTwain.zip[/url]

Espero ter ajudado :!:

J�natas Silva · Answer

caros amigos gostaria de saber se tem como scanear pelo delphi 2010...