Fórum Componente para scanner #313912

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´

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

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

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

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

Olá amigos

estou disponibilizando novamente o link para download.

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

Um abraço

Silvio Guedes