PC Toledo

guanabara escreveu:inseri um textbox para que eu possa digitar um novo nome para o arquivo e que apos o enter o mesmo renomei-e e mova para uma pasta com o mesmo nome

guanabara escreveu:só que quando chega mais o menos em 150 registros modificados a imagem da tela não é mais substituida pela próxima imagem

Não precisa incluir o Directry.ch, pois você não está utilizando nenhuma constante do Directry.

Você colocou como variáveis PUBLIC as que eram do tipo LOCAL. Isso ocupa mais memória, sem necessidade.

Não seria mais prático mudar o nome do arquivo de dentro do grid ?
- Qual é a necessidade de alterar o nome do arquivo ?
- Por qual motivo mudar para uma sub-pasta ? Não seria melhor mudar o nome para outro que não exista ?
- Acho que esta sintaxe, não deve estar funcionando. RENAMEFILE('C:\IMAGENS\TIF\' + cimagem, ...//... Verifique se não está se perdendo o arquivo renomeado. Pelo que eu entendo, deveria copiar com novo nome e depois excluir o arquivo, seria mais seguro.

Mudando o arquivo para outra pasta, na visualização, ele utiliza o cPath que estaria fixo. Portanto não iria encontrar o arquivo na nova pasta/sub-pasta.

Você poderia disponibilizar um PrintScreen para ver os nomes dos arquivo a partir desses 150 registros ?

  If valor > 100
      Thiswindow.Release()
   endif

guanabara escreveu:Eu mudei de Local para Public pois apareceu o seguinte erro: Error Base/1003 Variable does not existe: CIMAGEM called from Renomear(174). Só resolveu quando passei para Public... Nem me pergunte porque.....

guanabara escreveu:Pelo textbox ficou bem pratico, funciona assim: quando abro o executável o SetFocus vai direto pro textbox, e lá digito o nome de uma cidade que visualizo na imagem do arquivo *.TIF, após digitar o nome da cidade dou enter, o que acontece: criasse uma pasta com o mesmo nome da cidade que digitei no textbox, renomeias-se o arquivo assim: Textbox + - + PRO01OLV.TIF, a parte final do nome do arquivo vem dos nomes originais que são: PRO01OLV.TIF, PRO01OLW.TIF, PRO01OLX.TIF (são 64mil arquivos, sem ordem nenhuma, na mesma pasta que só podem ser identificados após visualização). fazendo assim não fica com nome repetido, e o próprio comando RENAMEFILE os move para a pasta criada pois o caminho do arquivo renomeado é diferente

guanabara escreveu:Não é bem 150 registros, cada hora é um tanto, não são os mesmo arquivos pois quando chega pelos 150 registros os anteriores já foram renomeados e movidos, tipo, parece ser um problema de memoria da Imagem, pois se eu fechar o programa quando renomear 100 registros e abri-lo novamente, não acontece nada... Tanto que fiz essa gambiarra

Pablo César, antes escreveu:Com respeito ao tamanho da janela, o programa não iria ficar estranho, caso a resolução da tela de algum terminal possa a ser menor ?

kkkkk (quê idade você tem ? você parece ser muito hilário, rs). É simples, ocorre que ao passá-las como Public, além das variáveis tornaram-se visíveis estarão ativas durante toda a execução do programa, sem fazer reposição de memória como era feito com Local. Isto é uma prática muito comum em Clipper, mas tem que deixar alguns vícios que poderão custar caros quanto a performance dos seus programas que sejam mais complexos. Se a função está precisando da variável cImagem, então re-crie ela como local da mesma forma que foi criada na função Exibir().

Agora entendi a sua real necessidade, mas o inconveniente que eu vejo em tudo isso é que criasse um monte de sub-pasta, sem necessidade (ao meu ver). O que você acha de ao invés de mover para sub-pasta, você renomeia os arquivo com o nome da cidade ? E aqui vai outra pergunta que vai ser chave para uma solução bem mais prática e mais abrangente: Cada cidade poderá ter mais de uma tif ? Pois se for, podemos renomear várias tif ao mesmo tempo com nomenclatura sequencial. Exemplo: "São Paulo_001.tif", "São Paulo_002.tif", "São Paulo_003.tif" ... e assim sucessivamente. Bastará você selecionar os registros com MultiSelect para renomeá-los.

Se o programa for utilizado em diversos terminais, tem que se certificar que todos eles tem a mesma resolução ou até maior, mas nunca menor. Senão vai ficar com a imagem cortada, ao menos que disponibilize outra janela para visualização ou colocar a janela com ScrollBar para rolagem da janela.

Olá Pablo !

Fiz uma pequena alteração no código do nosse amigo, sei que ficou meio confuso mas poderá ser melhor explicado e quem sabe...melhorado né...rs, essa alteração resolve o problema de resoluções diferentes, vc tendo um tempinho pra testar e dar seu parecer, sinta-se em casa...rs

*mudei para minigui por não ter hmg disponivel

Se bem que o colega Wellington (alias guanabara) ainda não respondeu as minhas questões apresentadas, o que eu temia era sobre a resolução da tela e o que poderia ser feito para que o tamanho das imagens não excedam o tamanho do form principal. A minha sugestão seria visualizar num segundo form e que pudesse adicionar scrollbars. E você apresentou uma solução muito útil para dimensionar tamanhos de acordo a resolução. Também postei uma outra solução de redimensionamento em tempo de execução no link que passei aqui acima.

As vezes os colegas não gostam de serem questionados, mas tudo depende de qual é o resultado exigido e o que pode ser melhorado. Parece ser perda de tempo as vezes quando fazemos muitas perguntas, mas tem o objetivo de apresentar soluções mais adequadas e que dão lugar a novas ideias enriquecendo o nosso constante aprendizado.