E o seguinte, minha aplicação já executa a digitalização normalmente salvando em banco ok através do TAcquireImage.
A questão e que foi comprado um scanner que faz a digitalização em alta velocidade (Avision). O que eu preciso fazer é informar ao scanner em que pasta o mesmo deve digitalizar as imagens e após a digitalização, farei a importação destas imagens para o sistema e gravarei no firebird 2.1. Será que isso é possível? Devido ao custo elevado do equipamento, o mesmo será utilizado em 2 setores distintos, por isso preciso configurar antes da digitalização qual seria a pasta de digitalização das imagens. Abraços. Ralp Alves -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, Você está usando algum componente para scannear a imagem ? Como você está abrindo o aplicativo ? Pelo Delphi, se estiver usando um componente, basta informar o caminho que deseja. Informe mais a sua situação para que possamos ajuda-lo. Abraços. Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra <ral...@gmail.com>escreveu: > > > Está rotina irei utilizar para fazer a carga dos arquivos. > > O que eu queria saber é como configurar a pasta na qual o scanner vai > digitalizar as imagens. > > Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao > scanner a pasta que o mesmo deverá digitalizar as imagens. > > Abraço > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em > nome de Jorge Ericsson > Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: Re: [delphi-br] Pasta scanner > > > Ralp, se estiver usando o OpenDialog faça como abaixo: > > var > dlg: TOpenDialog; > ... > dlg := TOpenDialog.Create(Self); > // podia ser dlg := TOpenDialog.Create(nil); > try > dlg.DefaultExt := 'jpeg'; > dlg.Filter := ' Arquivo > < > http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/# > > > > de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*'; > dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist]; > dlg.Title := 'Diretório das Imagens'; > dlg.InitialDir := ExtractFilePath(Application.ExeName); > > if dlg.Execute then begin > // dlg.FileName tem o nome do arquivo > end; > finally > dlg.Free; > end; > > Espero ter ajudado. > > Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra > <ral...@gmail.com <ralprd%40gmail.com>>escreveu: > > > > > > > Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a > lista. > > > > Teria uma maneira via Delphi de configurar a pasta em que as imagens > serão > > digitalizadas. > > > > Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar > > as > > imagens. > > > > As imagens serão digitalizadas em um scanner de alta velocidade e após a > > digitalização serão importadas para o meu sistema pegando as imagens na > > pasta que configurei. > > > > Estou utilizando Delphi 7 e Firebird 2.1. > > > > Agradeço desde já e abraço a todos. > > > > Ralp Alves > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Grato, > > Jorge Ericsson S. Pinheiros > Ericsson Sistemas e Soluções > (61) 3244-4748 / 8592-9960 / 9227-4785 > http://www.jericsson.com.br > jericsson...@gmail.com <jericssonsup%40gmail.com> > jericsson...@jericsson.com.br <jericssonsup%40jericsson.com.br> > skype:jericsson > Brasília - DF > > [As partes desta mensagem que não continham texto foram removidas] > > ------------------------------------ > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > __________ Information from ESET NOD32 Antivirus, version of virus > signature > database 4887 (20100222) __________ > > The message was checked by ESET NOD32 Antivirus. > > http://www.eset.com > > > > __________ Information from ESET NOD32 Antivirus, version of virus > signature > database 4887 (20100222) __________ > > The message was checked by ESET NOD32 Antivirus. > > http://www.eset.com > > > > -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> __________ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __________ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset.com