Fórum Scanner #152104

eu vi no forum, testei... e Funcionou BLZ... só que eu não consegui reduzir a qualidade... só q não tive tempo de testar mais ...


´
Primeiro, abra o DELPHI e se você tiver instalado o aplicativo IMAGING (vem com o Windows 9, 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

´