topic-31519

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Intentando mostrar un .AVI
Posted: Thu Oct 29, 2015 10:25 PM

Compañeros, buenas:

Llevo 2 días completos intentando mostrar un .AVI mediante recurso (Pelles C) en un Dialog, pero sin resultado!!

- He seguido los pasos según \samples\copyfile.prg y \samples\testvid.prg
- y también el hilo:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26565&p=151661&hilit=video#p151661

pero nada... me muestra el Dialog y un recuadro blanco donde debería aparecer el video, pero NADA.
En Pelles C he intentado con el control Tanimate y con Tvideo

... pero NADA.
Tengo FHW 8.07
¿Algún alma caritativa?

Mil gracias.
Un saludo
Desde Cádiz, españa.

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: Intentando mostrar un .AVI
Posted: Fri Oct 30, 2015 11:50 AM

Loren

Consider this code ..make a few changes for your resource file ..

Rick Lipkin

Code (fw): Select all Collapse

// playavi.prg

#INCLUDE "FIVEWIN.CH"

//----------------------
Function _Playavi( cDEFA )

LOCAL oDLG, oAVI

IF .not. FILE( cDEFA+"\DHEC.AVI" )
   RETURN(NIL)
ENDIF

DEFINE DIALOG oDLG FROM 0,1  to 24,80   ;
       COLOR "N/N,N/N,N/N,N/N,N/N"  ;
       TITLE "Fleet Vehicle Maint"      ;
       STYLE nOr( WS_THICKFRAME, WS_POPUP )

  @ 1,9.5 VIDEO oAVI FILE ( cDEFA+"\DHEC.AVI" ) of oDLG SIZE 158,100 NOBORDER

ACTIVATE DIALOG oDLG CENTERED  ;
         ON INIT ( oAVI:PLAY(), AviTimer( oDLG, 2.5)  )

oDLG:END()
oAVI:END()

oDLG := NIL
oAVI := NIL

SysReFresh()

RETURN(NIL)

//-------------------
Static Func AviTimer(oDLG, nSECONDS )

LOCAL oTMR

DEFINE TIMER oTMR OF oDLG INTERVAL nSECONDS * 1000 ;
       ACTION ( oDLG:END() )

ACTIVATE TIMER oTMR

RETURN(NIL)

// end playavi.prg

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Intentando mostrar un .AVI
Posted: Fri Oct 30, 2015 05:21 PM

Rick , with version 14.12 the code is not working .

regards

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: Intentando mostrar un .AVI
Posted: Sat Oct 31, 2015 01:02 PM

Rick , with version 8.07 the code is not working .
Only a window appears with white background where the video should be .
Any other suggestions , please?
Thanks

Lorenzo
Desde Cádiz, España.

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: Intentando mostrar un .AVI
Posted: Sat Oct 31, 2015 05:00 PM

Loren

The code I suggested to you has been working for many Years with FWH just about all versions .. Make sure you are pointing to the file and also .. my default .avi player is Windows Media player.

Rick Lipkin

FiveTech Support Forums

Continue the discussion