FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cortar la image
Posts: 603
Joined: Sun May 04, 2008 08:44 PM
Cortar la image
Posted: Wed Mar 11, 2009 08:49 PM
Alguem conhece alguma função para recortar parte de uma imagem com o fivewin


igual a essa imagem por exemplo alguma funcao que especifique
nombre(odwn,imagem,x,y,xx,yy)

onde x seria o inicil da linha a cortar y inicil da coluna a cortar xx final da linha a cortar e yy final da coluna a cortar ?

estou procurando e procurando mas nao encontrei nada ainda... vlw

[X]Harbour 1.1.0|Fwh 8.5|Bcc55|Pelles|MySQL ^^
Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Re: Cortar la image
Posted: Thu Mar 12, 2009 02:18 AM

¡ Con FreeImage.dll !

Baje la última versión. Viene con una ayuda excelente!

//CEL 08-Mar-2009
DLL32 FUNCTION FI_JpgCrop(cSource AS LPSTR, cDest AS LPSTR,;
nLeft AS LONG, nTop AS LONG,;
nRight AS LONG, nBottom AS LONG) AS BOOL;
PASCAL FROM "_FreeImage_JPEGCrop@24" LIB hLib

Nota: Sólo para archivos jpg.
Para hacerlo desde una imagen en un control oImg, guarde antes la imagen en un archivo jpg con oImg:Save(cDest,2). Luego aplique FI_JpgCrop()

Otra forma:

FICopyImg(cSource,x1,y1,x2,y2,cDest)

FUNCTION FICOPYIMG( cSrcFile, nX1,nY1,nX2,nY2,cDstFile ) //CEL 24-Jun-2007
LOCAL nSrcFormat, hDib, lOk, hDib2

ifdef CLIPPER

hLib = LOADLIB32( "freeimage.dll" )

else

hLib = LOADLIBRARY( "freeimage.dll" )

endif

nSrcFormat = FIGETFILETYPE( cSrcFile, 0 )
hDib = FILOAD( nSrcFormat, cSrcFile,  )
hDib2 = FICOPY( hDib,nX1,nY1,nX2,nY2  )
lOk = FISAVE( nSrcFormat, hDib2, cDstFile, 0 )

ifdef CLIPPER

FREELIB32( hLib )

else

FREELIBRARY( hLib )

endif

return lOk

DLL32 STATIC FUNCTION FICOPY( hDib AS LONG, nLeft AS LONG, nTop AS LONG,nRight AS LONG,nBottom AS LONG ) AS LONG;
PASCAL FROM "_FreeImage_Copy@20" LIB hLib

Posts: 603
Joined: Sun May 04, 2008 08:44 PM
Re: Cortar la image
Posted: Thu Mar 12, 2009 03:14 AM

Donde tien para descargar el freeimage.dll ?

es la miesma que tien en el diretorio del fivewin dll ?

Muchas gracias

Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Re: Cortar la image
Posted: Thu Mar 12, 2009 03:52 AM
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Cortar la image
Posted: Sun Aug 17, 2014 02:13 PM
César E. Lozada wrote:http://freeimage.sourceforge.net/download.html



Cesar necesito comunicarme con vos.
gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Cortar la image
Posted: Sun Aug 17, 2014 08:55 PM
César E. Lozada wrote:http://freeimage.sourceforge.net/download.html

Colega Cesar, hasta hoy 17/08/2014 me doy cuenta que usted es parroquia, hace dias estube por los teques en un cliente nuevo, ya somos varios los usuarios de FW y del foro de Venezuela, seria bueno darnos un encuentro si es posible, hay gente de barquisimeto, guatire, guarenas, caracas, los teques, valencia, etc...mi skype es joseluisy, alli estoy a la orden aunque sea para una reunion virtual, saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Cortar la image
Posted: Mon Aug 18, 2014 02:40 AM
joseluisysturiz wrote:
César E. Lozada wrote:http://freeimage.sourceforge.net/download.html

Colega Cesar, hasta hoy 17/08/2014 me doy cuenta que usted es parroquia, hace dias estube por los teques en un cliente nuevo, ya somos varios los usuarios de FW y del foro de Venezuela, seria bueno darnos un encuentro si es posible, hay gente de barquisimeto, guatire, guarenas, caracas, los teques, valencia, etc...mi skype es joseluisy, alli estoy a la orden aunque sea para una reunion virtual, saludos... :-)


el mio es farameo jose luis voy a agregarte tambien.

saludos.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion