RESOLVIDO!!! DIGITALIZANDO IMAGEM
Amigos eu digitalizo imagem diretamente do meu projeto do vb6, mais estou com um probleminha, é q a digitalização pode ser feita com vários documentos de uma só vez, e naum sei como renomear automaticamente cada um deles.
Tipo, o primeiro documento saria [Ô]001.tif[Ô] o segundo [Ô]002.tif[Ô], e por ai em diante.
naum sei se é utilizado um [Ô]FOR[Ô] ou um DO WHILE[Ô] pra isso, mais eu utilizo assim:
dim i as integer
ImgScan.Image = App.path & [Ô]\imgtemp\[Ô] & format(i,[Ô]0000[Ô])
i = i +1
ImgScan.OpenScanner
ImgScan.StartScan
ImgScan.CloseScanner
como poderia colocar um [Ô]FOR[Ô] ou um [Ô]DO WHILE[Ô] ai?
alguem por favor me ajuda!
Tipo, o primeiro documento saria [Ô]001.tif[Ô] o segundo [Ô]002.tif[Ô], e por ai em diante.
naum sei se é utilizado um [Ô]FOR[Ô] ou um DO WHILE[Ô] pra isso, mais eu utilizo assim:
dim i as integer
ImgScan.Image = App.path & [Ô]\imgtemp\[Ô] & format(i,[Ô]0000[Ô])
i = i +1
ImgScan.OpenScanner
ImgScan.StartScan
ImgScan.CloseScanner
como poderia colocar um [Ô]FOR[Ô] ou um [Ô]DO WHILE[Ô] ai?
alguem por favor me ajuda!
AMIGOS POR FAVOR ME AJUDEM, ESTOU MUITO NECESSITADO!!!
Assim,
No seu caso, assim
Citação:Name [Ô]caminho\arq1.txt[Ô] As [Ô]caminho\arq2.txt[Ô]
No seu caso, assim
Citação:Name [Ô]caminho\arquivo.jpg[Ô] AS [Ô]caminho\[Ô] & format(i,[Ô]0000[Ô]) & [Ô].jpg[Ô]
Amigo PLUS,
Desculpa, mais axo q vc naum entendeu meu problema!!!
SEJA:
dim i as integer
i = 1
ImgScan.Image = App.path & [Ô]\imgtemp\[Ô] & format(i,[Ô]0000[Ô])
i = i + 1
ImgScan.OpenScanner
ImgScan.StartScan
ImgScan.CloseScanne
DO JEITO QUE ESTA ELE RENOMEI SIM, MAIS SÓ O PRIMEIRO, E REPETE OS PROXIMO, PQ QUANDO ELE CHEGA MA LINHA [Ô]ImgScan.StartScan[Ô], é q ele começa a Digitaliza, e naum faz um for, se houver mais de um documento ele digitaliza tudo e naum renomeia, entendel?
para nesta linha [Ô]ImgScan.StartScan[Ô], e digitaliza tudo, preciso saber como renomeia todos os documentos quando para nesta linha.
Desculpa, mais axo q vc naum entendeu meu problema!!!
SEJA:
dim i as integer
i = 1
ImgScan.Image = App.path & [Ô]\imgtemp\[Ô] & format(i,[Ô]0000[Ô])
i = i + 1
ImgScan.OpenScanner
ImgScan.StartScan
ImgScan.CloseScanne
DO JEITO QUE ESTA ELE RENOMEI SIM, MAIS SÓ O PRIMEIRO, E REPETE OS PROXIMO, PQ QUANDO ELE CHEGA MA LINHA [Ô]ImgScan.StartScan[Ô], é q ele começa a Digitaliza, e naum faz um for, se houver mais de um documento ele digitaliza tudo e naum renomeia, entendel?
para nesta linha [Ô]ImgScan.StartScan[Ô], e digitaliza tudo, preciso saber como renomeia todos os documentos quando para nesta linha.
Você sabe quais são os arquivos que ele criou?
Se souber é só fazer um for usando o Name que passei.
Se souber é só fazer um for usando o Name que passei.
Citação:
ImgScan.StartScan
For i=1 to qtde de arquivos criados
Aqui você pode buscar o arquivo pela data de criação, o mais antigo seria o 1, depois o 2 etc ai precisa do comando Name
Usa o FSO para retornar os arquivos.
next
ImgScan.CloseScanne
naum funciona!!!
Quando ele Cria os arquivo, sobrescreve o anterior, pois esta com o mesmo nome, ele digitaliza o primeiro, e renomeia, daà digitaliza o Segundo e remoneia, como o nome é o meso, sobrescreve o primeiro, e as vezes nem cria o próximo, por ja existir um.
esse é meu dilema!!!
OBS: O sistema de Digitalização e Criação que ele utiliza é o TWAIN e ISIS.
Quando ele Cria os arquivo, sobrescreve o anterior, pois esta com o mesmo nome, ele digitaliza o primeiro, e renomeia, daà digitaliza o Segundo e remoneia, como o nome é o meso, sobrescreve o primeiro, e as vezes nem cria o próximo, por ja existir um.
esse é meu dilema!!!OBS: O sistema de Digitalização e Criação que ele utiliza é o TWAIN e ISIS.
Então coloca a rotina dentro do método StartScan, pois lá dentro ele já tem um For e com certeza o nome do arquivo e caminho que ele acabou de criar/sobreescrever, o que pode fazer é justamente na linha seguinte ao momento em que ele cria/sobreescreve colocar o Name [Ô]caminho\arquivo.jpg[Ô] AS [Ô]caminho\[Ô] & format(i,[Ô]0000[Ô]) & [Ô].jpg[Ô]
Amigo PLUS,
o Método StartScan, é uma Referência de DLL, como Posso mexe na rotina, Desculpa, mais vc naum entendeu mesmo meu problema!!!
Gostaria de poder mexe na DLL.
existe um Componete da KODAK Chamado [Ô]ImgScan[Ô] q é quem da da o StarScan e faz o processo, entende?
o Método StartScan, é uma Referência de DLL, como Posso mexe na rotina, Desculpa, mais vc naum entendeu mesmo meu problema!!!
Gostaria de poder mexe na DLL.existe um Componete da KODAK Chamado [Ô]ImgScan[Ô] q é quem da da o StarScan e faz o processo, entende?
Tópico encerrado , respostas não são mais permitidas