SAOliveira Posted November 5, 2011 Report Share Posted November 5, 2011 Estou precisando redimencionar o tamanho de imagens (BMP,JPG), bem parecido com o redimencionar do PAINT. Alguma ideia. Tem que ser via sistema. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted November 5, 2011 Author Report Share Posted November 5, 2011 Estou precisando redimencionar o tamanho de imagens (BMP,JPG), bem parecido com o redimencionar do PAINT. Alguma ideia. Tem que ser via sistema. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted November 5, 2011 Report Share Posted November 5, 2011 Ola Sergio, ve se é isto que vc esta querendo... REDEFINE IMAGE oImage FILENAME alltrim(cArquivo) ID 4002 OF oDlg UPDATE SCROLL REDEFINE CHECKBOX oImage:lStretch ID 4003 OF oDlg ; ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() ) Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted November 5, 2011 Report Share Posted November 5, 2011 Olá amigo! Veja se ajuda, no meu sistema pego qq imagem e redefino o tamanho dela assim: //...define objeto imagem... //...obtém o arquivo de imagem IF !Empty(gcFile) .and. File(gcFile) //tratamento oImg:LoadBmp( gcFile ) nX := 215 nY := 333 oImg:hBitmap := ResizeBmp( oImg:hBitmap, nX, nY, .T. ) //redimensiona oImg:lStretch := .T. oImg:Refresh() endif Caraguatatuba/sp Editado por - jmsilva on 05/11/2011 09:44:50 Quote Link to comment Share on other sites More sharing options...
william Posted November 5, 2011 Report Share Posted November 5, 2011 olá S.A. , uma outra forma é vc utilizar o metodo :move() para redimensionar o objeto, veja 1 exemplo abaixo: * fator de redimensionamento nFactorWitdh=1.5 nFactorHeight=2.0 ad:=getcoors(obmp:hWnd) //pega coordenadas do objeto * ownd é o objeto a redimensionar, image, bmp, etc... oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) abraço William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários." Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted November 5, 2011 Author Report Share Posted November 5, 2011 Como sempre não soube me explicar claramente. Preciso redimencionar fisicamente mesmo e salvar no HD. Ex. Imagem original = 1333x750 Redimencionada ficaria 640x360, esta sim salvar no HD. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 5, 2011 Report Share Posted November 5, 2011 // Se entendi... cFile := SubStr( cGetFile( "*.BMP", "Selecione o Arquivo Bitmap (.BMP)" ), 3 ) nResHoriz := oWndMain:nHorzRes() // retorna a resolucao horizontal nResVert := oWndMain:nVertRes() // retorna a resolucao vertical IF nResHoriz = 1440 .AND. nResVert = 900 @ 0, 0 IMAGE oImage SIZE 1440, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1360 .AND. nResVert = 768 @ 0, 0 IMAGE oImage SIZE 1360, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1280 .AND. nResVert = 720 @ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1280 .AND. nResVert = 768 @ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1280 .AND. nResVert = 800 @ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1280 .AND. nResVert = 960 @ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1280 .AND. nResVert = 720 @ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1600 .AND. nResVert = 1200 @ 0, 0 IMAGE oImage SIZE 1600, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1680 .AND. nResVert = 1050 @ 0, 0 IMAGE oImage SIZE 1680, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 2560 .AND. nResVert = 1600 @ 0, 0 IMAGE oImage SIZE 2560, 668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSEIF nResHoriz = 1024 .AND. nResVert = 768 IF ISWINXP() @ 0, 0 IMAGE oImage SIZE 1024,668 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSE @ 0, 0 IMAGE oImage SIZE 1024,678 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ENDIF ELSE IF ISWINXP() @ 0, 0 IMAGE oImage SIZE 800,500 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ELSE @ 0, 0 IMAGE oImage SIZE 800,510 OF oWin ADJUST oImage:Progress( .F. ) oImage:LoadBmp( cFile ) ENDIF ENDIF id=code>id=code>Salve... João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted November 5, 2011 Author Report Share Posted November 5, 2011 JMSilva seria quase isto, o detalhe é que vou ter que salvar em HD esta imagem redimencionada. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
william Posted November 6, 2011 Report Share Posted November 6, 2011 se a solução do JMsilva te resolve o problema, para gravar no HD é facil, observe o metodo saveimage da classe timage, faz o que vc quer. METHOD SaveImage( cFile, nFormat, nQuality ) CLASS TImage // 0 -> Bmp // 2 -> Jpg // 13 -> Png William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários." Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 12, 2013 Report Share Posted March 12, 2013 amigo to precisando de uma aplicação que fará a importacao de XMLé assim que preciso que seja importado.. a minha aplicação busca de tempos em tempos os XML que ficaram em um FTP e salva na pasta C:\XML_CLIENTES dentro dessa pasta tem aA SUB-PASTAS C:\XML_CLIENTES\IMPORTADOS C:\XML_CLIENTES\REJEITADOS o seja a aplicação que preciso é para a cada tempo ir lendo essa pasta e importar o(s) XML que vao sendo recebidos. separando assim CABEÇALHO, ITENS, CONTAS A PAGAR, TRANSPORTADORA(ESSE PODE ATÉ FICAR JUNTO COM O CABECALHO) APOS IMPORTAR COM EXITO ELE MOVE O XML PARA C:\XML_CLIENTES\IMPORTADOS, SE DER ERRO DE IMPORTACAO C:\XML_CLIENTES\REJEITADOS ASSIM ATÉ A PASTA NÃO TER NADA MAIS. TERIA UMA IDEIA DE CUSTO E TEMPO ? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.