kapiaba Posted March 22, 2010 Report Share Posted March 22, 2010 Bom dia Galera, Ajuda ahi: Como faço para colocar uma imagem .JPG em um formulário usando a PRINTER.PRG? // Como faço para pegar uma .BMP diretamente do meu arquivo.res? Desde já, abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 22, 2010 Author Report Share Posted March 22, 2010 Bom dia Galera, Ajuda ahi: Como faço para colocar uma imagem .JPG em um formulário usando a PRINTER.PRG? // Como faço para pegar uma .BMP diretamente do meu arquivo.res? Desde já, abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aferra Posted March 23, 2010 Report Share Posted March 23, 2010 Olá Kapi, veja se ajuda. function imprimirbmp() local oPrn local oBmp := LoadBitmap(GetResources(),"") local nZoomBmp local anchuraBmp local alturaBmp local oJpg := LoadBitmap(GetResources(),"") local nZoomJpg local anchuraJpg local alturaJpg LOCAL cBmpFile // poderia acrescentar essa linha cBmpFile := cGetFile( "Windows JPEG (*.JPG) | *.jpg",; "Selecione a Imagem" ) id=red>nZoomBmp:=oBmp:Zoom() anchuraBmp:=oBmp:nWidth()*nZoomBmp alturaBmp :=oBmp:nHeight()*nZoomBmp nZoomJpg:=oJpg:Zoom() anchuraJpg:=oJpg:nWidth()*nZoomJpg alturaJpg :=oJpg:nHeight()*nZoomJpg nZoomSel:=cBmpFile:Zoom() anchuraSel:=cBmpFile:nWidth()*nZoomSel alturaSel :=cBmpFile:nHeight()*nZoomSel PRINT oPrn NAME "BITMAP" // Imprime .BMP PAGE oPrn:SayBitmap(0,0,bmp,anchuraBmp,alturaBmp) ENDPAGE // Imprime .JPG PAGE oPrn:SayImage(0,0,bmp,anchuraJpg,alturaJpg) ENDPAGE // Imprime Imagem Selecionada em .JPG PAGE oPrn:SayImage(0,0,cBmpFile,anchuraSel,alturaSel) ENDPAGEid=red> ENDPRINT return nil id=code>id=code>Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> Editado por - aferra on 23/03/2010 15:31:53 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 23, 2010 Author Report Share Posted March 23, 2010 Orbigado Friend. Testarei en la noche. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 23, 2010 Author Report Share Posted March 23, 2010 Alessandro, esqueci: Como pego um .JPG direto do diretorio para imprimir? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luisão Posted March 23, 2010 Report Share Posted March 23, 2010 Fala Kapi! Eu tinha respondido este tópico ontem, mas a manutenção do fórum apagou meu post (acho que deram um rollback hehehe) Mas então, acredito que seja mais ou menos assim: oImage:= TImage(...) aRet=oPrinter:Cmtr2Pix(TamanhoX,TamanhoY) nw=aRet[1] nh=aRet[2] aRet=oPrinter:Cmtr2Pix(PosicaoX,PosicaoY) ny=aRet[1] nx=aRet[2] oPrinter:SayBitMap(ny,nx,"RESOURCE",nw,nh) oPrinter:SayImage(ny,nx,oImage,nw,nh) id=code>id=code>Luis Fernando Jr. (Luisão) "What we do in life echoes in eternity" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
aferra Posted March 23, 2010 Report Share Posted March 23, 2010 kapi eu acrescentei no post original. Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 23, 2010 Author Report Share Posted March 23, 2010 citação:kapi eu acrescentei no post original. Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> id=quote>id=quote>NO REBOLATION, NO REBOLATION... NO REBOLATION, NO REBOLATION... NO REBOLATIOOOOOOOOONNNNNSSS! KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Eita kabra bão... kuando eu krescer, kero ser ke nem ocê, BOFFYYYYY!! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aferra Posted March 24, 2010 Report Share Posted March 24, 2010 kkkkkkkkkkkkkk UUUUUUIIIIIIIII kkkkkkkkkkkkkk Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 24, 2010 Author Report Share Posted March 24, 2010 citação:kkkkkkkkkkkkkk UUUUUUIIIIIIIII kkkkkkkkkkkkkk Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> id=quote>id=quote>NOOOSSSA!! PAAAARRRRRAAAAAA!! O bunitão, eu preciso dá: FreeImage.dll para funcionar? Olha o triplo sentido, heim??!! João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aferra Posted March 24, 2010 Report Share Posted March 24, 2010 hehehehehehe Tomando as devidas precauções, sim, para usar com JPG existe a necessidade de ter a freeimage.dll na pasta onde se encontra o executavel. hehehehehehe Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 24, 2010 Author Report Share Posted March 24, 2010 citação:hehehehehehe Tomando as devidas precauções, sim, para usar com JPG existe a necessidade de ter a freeimage.dll na pasta onde se encontra o executavel. hehehehehehe Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> id=quote>id=quote>Obrigado. Você manja muito. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe 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.