Cortar la image

[lailton.webmaster]

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 ^^

[César E. Lozada]

¡ 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

[lailton.webmaster]

Donde tien para descargar el freeimage.dll ?

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

Muchas gracias

[César E. Lozada]

http://freeimage.sourceforge.net/download.html

[goosfancito]

http://freeimage.sourceforge.net/download.html

Cesar necesito comunicarme con vos.
gracias.

[joseluisysturiz]

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...

[goosfancito]

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.