Fórum Capturar uma imagem do scanner #285492
21/06/2005
0
Instalei o imgscan.ocx da kodak... o scanner chega a fazer todo o processo.... mas na hora de jogar a imagem para um TImage... eu não consigo encontrar a imagem no caminho que foi especificado para ser salvo.
Usei o seguinte código...
if ImgScan1.ScannerAvailable then
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
ImgScan1.Image:=´CAMINHO´;
ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile(MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´)
end
Usei o seguinte código...
if ImgScan1.ScannerAvailable then
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
ImgScan1.Image:=´CAMINHO´;
ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile(MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´)
end
Mgsmauricio
Curtir tópico
+ 0
Responder
Posts
21/06/2005
Sremulador
if ImgScan1.ScannerAvailable then
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
[b:eccc653039]ImgScan1.Image.Loadfromfile (´CAMINHO´);[/b:eccc653039]ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile([b:eccc653039]MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´[/b:eccc653039])
end
acho que e isto :)
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo := 2;
[b:eccc653039]ImgScan1.Image.Loadfromfile (´CAMINHO´);[/b:eccc653039]ImgScan1.StartScan ;
Application.ProcessMessages;
finally
ImgScan1.CloseScanner ;
Image1.Picture.LoadFromFile([b:eccc653039]MESMO CAMINHO DEFINIDO EM ´IMGSCAN1.IMAGE´[/b:eccc653039])
end
acho que e isto :)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)