Ler foto direto do Scanner
14/02/2003
0
Estou precisando ler uma foto 3x4 com tamanho e resolucao já definido (permanente) , não queria ter q deixar o usuario passar no scanner, gravar e depois chamar... alguém pode me dar uma dica ou indicar um site q posso clarear essa duvida??
Ahhh.. PEQUENO detalhe!!! Tem que ser compativel com o WINDOWS XP e tb , WINDOWS ME E 98!!!
Ahhh.. PEQUENO detalhe!!! Tem que ser compativel com o WINDOWS XP e tb , WINDOWS ME E 98!!!
Andrewsporto
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Nadilson
Bom dia, Andrews Porto...
Eu posso lhe dar uma pequena ajuda, mas o único problema é que ainda não testei...
Primeiro, abra o DELPHI e se você tiver instalado o aplicativo IMAGING (vem com o Windows 98), vá até COMPONENT\IMPORT ACTIVE X CONTROL e selecione na lista que surgir o KODAK IMAGE SCAN CONTROL (VERSÃO 1.0) e instale-o. Depois de instalado o controle active x, adicione um ao form (estará na guia ACTIVE X) e no evento ONCLICK de um botão, adicione este código:
if ImgScan1.ScannerAvailable then
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
ImgScan1.Image:=´CAMINHO + NOME DO ARQUIVO + EXTENSÃO´;
ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile(MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´)
end;
Espero ter ajudado...
Eu posso lhe dar uma pequena ajuda, mas o único problema é que ainda não testei...
Primeiro, abra o DELPHI e se você tiver instalado o aplicativo IMAGING (vem com o Windows 98), vá até COMPONENT\IMPORT ACTIVE X CONTROL e selecione na lista que surgir o KODAK IMAGE SCAN CONTROL (VERSÃO 1.0) e instale-o. Depois de instalado o controle active x, adicione um ao form (estará na guia ACTIVE X) e no evento ONCLICK de um botão, adicione este código:
if ImgScan1.ScannerAvailable then
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
ImgScan1.Image:=´CAMINHO + NOME DO ARQUIVO + EXTENSÃO´;
ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile(MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´)
end;
Espero ter ajudado...
Responder
Clique aqui para fazer login e interagir na Comunidade :)
