FiveTech Software tech support forums

Gracias Adhemar por tu idea, pero necesito trabajar solo con MCISendStr() Por ahora he traducido lo siguiente: Local cFile:= "C:\Pruebas\Luis\demo_prueba_de_sonido_Explosion_de_Misil.mp3"Local nSec:= 0mciSendStr("OPEN " + LFN2SFN(cFile) ...

... Sub http://www.vbforums.com/showthread.php?395665-help-with-mciSendString-song-duration-resolved En FWH tenemos la función MciSendStr()

... bitmap de "PLAY" a "STOP" pero, al finalizar la reproduccion recupere el bitmap de "PLAY".. Con respecto al comando mciSendStr me ha dado uno que otro error, invenstigando sobre dicho comando se que cada pista debe tener un "Alias" para identificar que pista ...

... FUNCTION PlayMP3( oWnd, cFile, lLoop ) DEFAULT lLoop := .F. if cFile != NIL mciSendStr( "OPEN " + cFile + " TYPE MPEGVIDEO ALIAS MP3",, oWnd:hWnd ) mciSendStr( "PLAY MP3 " + iif( lLoop, "REPEAT" ...

AIDA wrote:Hola

yo tenia por ahi guardadito un programita en fivewin MP3 Player (ejecutar MP3 desde FW) lo buscare y te lo paso

Saluditos

Aida:

Lo que tienes es usando MCISendStr ?

Me lo puedes pasar a mi tambien ?
alejandro6996@hotmail.com

Gracias!

... oTimer INTERVAL 1000 ACTION Endloslauf() OF oWnd ACTIVATE TIMER oTimer ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ShowVideo() FUNCTION ShowVideo() mciSendStr( "OPEN AVIVIDEO!"+Upper(Alltrim(cFile))+" ALIAS VIDEO STYLE POPUP", @cBuffer, oWnd:hWnd) mciSendStr( "WINDOW VIDEO HANDLE "+Alltrim(str(oBmp:hWnd)), ...

... LOCAL nStart := 0 cBuffer:=Space(200) IF EMPTY(cFileV) cFileV := "MyVideo.avi" ENDIF mciSendStr("OPEN AVIVIDEO!"+Upper(Alltrim(cFileV))+" ALIAS VIDEO PARENT "; +Alltrim(str(oBmp3:hWnd)),@cBuffer,oDlg:hWnd) ...

... a los programadores el acceso a estos medios de comunicación. Antes de hacerte la pregunta quiero dejar claro que mi intención es lograr que mcisendstr( cadena length ) lo pueda hacer desde Fivewin y no desde otro medio. ¿En FiveWin desde código se puede comunicar con los controles MCI al ...

... archivos MP3! * With this function you can play MP3 files ! */ FUNCTION PlayMP3( oWnd, cFile, lLoop ) DEFAULT lLoop := .F. if cFile != NIL mciSendStr( "OPEN " + cFile + " TYPE MPEGVIDEO ALIAS MP3",, oWnd:hWnd ) mciSendStr( "PLAY MP3 " + iif( lLoop, "REPEAT" , "" ),, oWnd:hWnd ) endif RETURN ...

... to implement voice recording and playback. Using something like this: ::cCmnd := "Record RecWavFile" if ( nResult := MciSendStr( ::cCmnd, @::cResult ) ) > 0 MsgStop( "MCI Error " + ::cResult, cValToChar( nResult ...

Reinaldo,

FW provides MciSendStr( cMciCommand, @cResult, nHWnd ) --> nResult to manage MCI (Media Control Interface MciSendString()).

Now review this site http://www.devx.com/vb2themax/Tip/18383 to easily record using such function.