Dificuldade com Controle ActiveX
Srs. Gostaria da colaboração de voces!
Estou utilizando um componenet TImgScan para capturar imagem de uma Web Cam LG (Instalei os drivers) e lançar em um TImage, só que o controle ActiveX que o componente está utilizando é o da minha Impressora/Scanner (Sharp) é o ´Kodak Image Scan Control - (Version 1.0)´.
O problema é que o componente só funciona com o scanner ligado!!
Quando desligado retorna a mensagem: ´Scanner or Scanner handler error´.
Como é que faço o ActiveX ser ativado pelo meu aplicativo e não somente pelo scanner?
Estou utilizando o comando abaixo:
begin
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo:=2;
ImgScan1.FileType := 3;
ImgScan1.Image:= ExtractFilePath(ParamStr(0)) + ´imagens\´ + Q_Nome.FieldByName(´Cod_Bar´).AsString + ´.bmp´;
ImgScan1.StartScan;
application.ProcessMessages;
finally
try
ImgScan1.CloseScanner;
imgFoto.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ´imagens\´ + Q_Nome.FieldByName(´Cod_Bar´).AsString + ´.bmp´);
except
end;
end;
end;
---------------------
Obs. já tentei instalar o DsPack descrito aqui no forum mas não consegui sempre diz que está faltando o arquivo D3DX9ab.dll. (uso o Delphi 6).
Agradeço muito se alguem puder me ajudar!!
Obrigado :oops:
Estou utilizando um componenet TImgScan para capturar imagem de uma Web Cam LG (Instalei os drivers) e lançar em um TImage, só que o controle ActiveX que o componente está utilizando é o da minha Impressora/Scanner (Sharp) é o ´Kodak Image Scan Control - (Version 1.0)´.
O problema é que o componente só funciona com o scanner ligado!!
Quando desligado retorna a mensagem: ´Scanner or Scanner handler error´.
Como é que faço o ActiveX ser ativado pelo meu aplicativo e não somente pelo scanner?
Estou utilizando o comando abaixo:
begin
try
ImgScan1.OpenScanner;
ImgScan1.ScanTo:=2;
ImgScan1.FileType := 3;
ImgScan1.Image:= ExtractFilePath(ParamStr(0)) + ´imagens\´ + Q_Nome.FieldByName(´Cod_Bar´).AsString + ´.bmp´;
ImgScan1.StartScan;
application.ProcessMessages;
finally
try
ImgScan1.CloseScanner;
imgFoto.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ´imagens\´ + Q_Nome.FieldByName(´Cod_Bar´).AsString + ´.bmp´);
except
end;
end;
end;
---------------------
Obs. já tentei instalar o DsPack descrito aqui no forum mas não consegui sempre diz que está faltando o arquivo D3DX9ab.dll. (uso o Delphi 6).
Agradeço muito se alguem puder me ajudar!!
Obrigado :oops:
Aurino003
Curtidas 0