Ralp, Então a solução que eu te dou é verificar na Registry do Windows em qual chave está a pasta setada pela última abertura do Scanner. Assim vou poderá através do delphi controlar essa chave de registro. Creio que assim poderá resolver o seu problema. Eu consegui fazendo isso através da minha aplicação, onde o problema do scanner poderia também ser executado, então pela chamada do executável eu forçava a gravação do caminho na chave de registro do scanner que na época era o Logitech. Uma dica é entrar através do aplicativo do scanner e verificar o caminho que ele grava e qual a chave utilizada. Espero que resolva,
Em 22 de fevereiro de 2010 13:59, Ralp Alves Bezerra <ral...@gmail.com>escreveu: > > > 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 <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:33 > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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 <ralprd%40gmail.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><delphi-br% > 40yahoogrupos.com.br> [mailto: > > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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><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> <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> <jericssonsup% > 40gmail.com> > > jericsson...@jericsson.com.br > > <jericssonsup%40jericsson.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 <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 >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html