[Gambas-user] Issue 537 in gambas: (Exec - for Read Write As "Process") Don't work

[gambas at ...2524...]

Status: New
Owner: ----
Labels: Version-3.5.0 Dist-Ubuntu Priority-High

New issue 537 by pato.... at ...626...: (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