Page 1 of 1
Cortar la image
Posted: Wed Mar 11, 2009 8:49 pm
by 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 ^^
Re: Cortar la image
Posted: Thu Mar 12, 2009 2:18 am
by 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
Re: Cortar la image
Posted: Thu Mar 12, 2009 3:14 am
by lailton.webmaster
Donde tien para descargar el freeimage.dll ?
es la miesma que tien en el diretorio del fivewin dll ?
Muchas gracias
Re: Cortar la image
Posted: Thu Mar 12, 2009 3:52 am
by César E. Lozada
Re: Cortar la image
Posted: Sun Aug 17, 2014 2:13 pm
by goosfancito
César E. Lozada wrote:http://freeimage.sourceforge.net/download.html
Cesar necesito comunicarme con vos.
gracias.
Re: Cortar la image
Posted: Sun Aug 17, 2014 8:55 pm
by joseluisysturiz
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...

Re: Cortar la image
Posted: Mon Aug 18, 2014 2:40 am
by goosfancito
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.