Clipper/FiveWin - visualizar ficheros *.jpg

Hola compañeros de programación en FiveWin, necesito que me indiqueis con que función se visualizan los ficheros *.jpg en fiveWin, yo estoy útilizando actualmente la versión 2.4

fraguibo

Puedes utilizar un control TIMAGE:

REDEFINE IMAGE oImg ID xxx OF oDlg FILE "archivo.jpg"

@ reng, col IMAGE oImg SIZE xx,yy OF oDlg FILE "archivo.jpg"

Necesitaras el NVIEWLIB.DLL que esta en el directorio DLL de la instalacion original de FiveWin

Fraguibo :

Te anexo otro ejemplo para mostrar imagenes en una ventana.

FUNCTION Abrir()
LOCAL cArch
LOCAL oWindow
LOCAL oImg
cArch := cGetFile("JPEG | *.jpg |" + ;
"DIB | *.dib |" + ;
"PCX | *.pcx |" + ;
"Bitmap| *.bmp |" + ;
"GIF | *.gif |" + ;
"TARGA | *.tga |" + ;
"RLE | *.rle |" + ;
"All Files | *.* " ;
,"Seleccione una imagen",1,,,.T.)
IF ! EMPTY(cArch)
ImageWin(cArch)
ENDIF
RETURN(NIL)
/* ImageWin: Abre en una ventana la imagen que recibe como parametor */
FUNCTION ImageWin(cImageName)
LOCAL oWindow
LOCAL oImg
CursorWait()
SysRefresh()
DEFINE WINDOW oWindow MDICHILD OF oWnd TITLE cFileName(cImageName)
@ 0,0 IMAGE oImg FILE LFN2SFN(cImageName) ADJUST NOBORDER OF oWindow UPDATE PIXEL
oImg:Progress( .F. )
oWindow:SetControl(oImg)
ACTIVATE WINDOW oWindow ON INIT( oWindow:Refresh(),CursorArrow(),SYSREFRESH())
RETURN (.T.)
/* fin ImageWin */

Saludos desde México
Victor Manuel Tomás Díaz

Victor
Gracias por tu ejemplo, el cual he probado y funciona bien, pero necesita la .dll "NVIEWLIB.DLL", y lo que yo necesito, es visionar un archivo *.jpg, sin tener que utilizar dicha .dll.
Si sabeis de algun otro ejemplo, aunque sea en C++, o en ensamblador (asm), pues yo ya lo adaptaria para FW.

fraguibo