Componente para scanner

Delphi

22/02/2006

Ola pessoal.

Preciso desenvolver um aplicativo para armazenar documentos scanneados... Alguem poderia me indicar algum componente para trabalhar com scanners...

Obrigado

Cleiton Sakamuta


Sakamuta

Sakamuta

Curtidas 0

Respostas

Erivando

Erivando

22/02/2006

Ola pessoal. Preciso desenvolver um aplicativo para armazenar documentos scanneados... Alguem poderia me indicar algum componente para trabalhar com scanners... Obrigado Cleiton Sakamuta



se vc estiver usando win98 existe uma solução do proprio delphi na paleta ActiveX , va vai em import ActiveX e instala o ´Controle de digitalização de imagens Kodak´


GOSTEI 0
Sakamuta

Sakamuta

22/02/2006

estou trabalhando com winxp... mas precisaria de algo que fosse funcional para quaquer versao do windows...


GOSTEI 0
Silviogs

Silviogs

22/02/2006

Olá amigo

manda um e-mail para silvio_guedes_pb@yahoo.com.br que te mando os fontes de componente taiwan funcionando beleza.

Silvio Guedes


GOSTEI 0
Silviogs

Silviogs

22/02/2006

Olá amigos

estou disponibilizando para todos no:

http://geocities.yahoo.com.br/silvio_guedes_pb/CompScanner.zip

Obs: eu uso PostgreSQL 8.1.3

o procedimento de scanear direto para o banco de
dados.

procedure TFmProcessos.SPBtnScanearClick(Sender:
TObject);
begin
inherited;
FrmScanear := TFrmScanear.Create(Self);
FrmScanear.ShowModal;
FrmScanear.Free;
if (DSParecer.State = dsInsert) or (DSParecer.State
= dsEdit) then
DM.Parecerparecer.LoadFromFile(´.\scanner.jpg´);
end;

outro procedimento para carregar arquivios já
scaneados. No caso já tenham arquivos jpeg no disco.

procedure TFmProcessos.SpeedButton1Click(Sender:
TObject);
var
imagem, img: TJPegImage;
BMP : TBitmap;
MemoryStream: TMemoryStream;
BlobField: TBlobField;
Image: TImage;
Stream1 : TStream;
begin
inherited;
if OpenDialog1.Execute then begin
DSParecer.DataSet.Edit;
BMP := TBitmap.Create;
BMP.PixelFormat := pf1bit;
BMP.LoadFromFile(OpenDialog1.FileName);
imagem := TJpegImage.Create;
imagem.CompressionQuality := 5;
imagem.Assign(BMP);
imagem.Compress;
Stream1 :=
DM.Parecer.CreateBlobStream(DM.Parecer.FieldByName(´parecer´),
bmReadWrite);
Stream1.Seek(0, soFromBeginning);
imagem.SaveToStream(Stream1);
(DSParecer.DataSet.FieldByName(´parecer´) as
TBlobField).LoadFromStream(Stream1);
DSParecer.DataSet.Post;
BMP.Free;
imagem.Free;
end;
end;

Atenciosamente

Silvio Guedes


GOSTEI 0
Silviogs

Silviogs

22/02/2006

Olá amigos

a quem interessar aviso que não trabalho mais com Delphi e afins. Minha atuação agora é SoftWare Livre: Ubuntu, Java Swing, Java Web, Netbeans, Eclipse e PostgreSQL

Não tenho mais os componentes para Delphi.

Um abraço a todos


Silvio Guedes


GOSTEI 0
Silviogs

Silviogs

22/02/2006

Olá amigos

estou disponibilizando novamente o link para download.

http://geocities.yahoo.com.br/silvio_guedes_pb/scanner.zip

Um abraço

Silvio Guedes


GOSTEI 0
POSTAR