Status: New
Owner: ----
Labels: Version-3.5.0 Dist-Ubuntu Priority-High
New issue 537 by [email protected]: (Exec - for Read Write As "Process")
Don't work
http://code.google.com/p/gambas/issues/detail?id=537
---------------------------------------------PROBLEM START
This code don't work;
$hProcess = Exec ["mplayer", "-wid", CStr(dwgMoviePlayer.Handle),
Conv$(sPath, Desktop.Charset, System.Charset)] For Read Write As "Process"
but if i take off the "FOR READ WRITE AS 'PROCESS'";
$hProcess = Exec ["mplayer", "-wid", CStr(dwgMoviePlayer.Handle),
Conv$(sPath, Desktop.Charset, System.Charset)]
the code works fine. but i need the last code, for handle the function of
mplayer.
---------------------------------------------PROBLEM END
---------------------------------------------
---------------------------------------------SYSTEM INFORMATION START
[System]
Gambas=3.5.3
OperatingSystem=Linux
Kernel=3.11.0-24-generic
Architecture=x86
Distribution=Ubuntu 12.04.4 LTS
Desktop=GNOME
Theme=QGtk
Language=es_CL.UTF-8
Memory=5760M
[Libraries]
Cairo=libcairo.so.2.11000.2
Curl=libcurl.so.4.2.0
DBus=libdbus-1.so.3.5.8
GStreamer=libgstreamer-0.10.so.0.30.0
GStreamer=libgstreamer-1.0.so.0.1.0
GTK+=libgtk-x11-2.0.so.0.2400.10
OpenGL=libGL.so.1.2.0
Poppler=libpoppler.so.19.0.0
Qt4=libQtCore.so.4.8.1
SDL=libSDL-1.2.so.0.11.3
---------------------------------------------SYSTEM INFORMATION END
---------------------------------------------
---------------------------------------------CODE START
Static Private $hProcess As Process
Public sPath As String ' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub Process_read()
Dim sData As String
sData = Read #Last, -255
'Raise mpOutput(sData) ' We delegate the output parsing to a listener
End
Public Sub Process_kill()
$hProcess = Null
End
Public Sub Button1_Click()
sPath = User.Home &/ "PULCINO PIO - El Pollito Pio.mp4"
Try $hProcess = Exec ["mplayer", "-slave", "-idle", "-quiet", "-wid",
CStr(dwgMoviePlayer.Handle), Conv$(sPath, Desktop.Charset, System.Charset)]
For Read Write As "Process"
If Error Then
Print "error"
Endif
End
Public Sub dwgMoviePlayer_Draw()
End
---------------------------------------------CODE END
Required:
-Form (Form)
-buttom (buttom1)
-DrawingArea1 (dwgMoviePlayer)
--
You received this message because this project is configured to send all
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings
------------------------------------------------------------------------------
Want fast and easy access to all the code in your enterprise? Index and
search up to 200,000 lines of code with a free copy of Black Duck
Code Sight - the same software that powers the world's largest code
search on Ohloh, the Black Duck Open Hub! Try it now.
http://p.sf.net/sfu/bds
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
