https://foro.gambas-es.org/viewtopic.php?f=5&t=7184&p=43292#p43292
-----------------------------------
tincho
Sabado, 13 Octobre 2018, 14:20

Re: Gambas Frontend Que Se Comunique Mediante SSH A Una Computadora
-----------------------------------
En base a otros post he modificado esto:
[code linenumbers=false syntax=gambas]
' Gambas class file

Private hProceso As Process
Private textoError As String

Public Sub Form_Open()

End

Public Sub btnEjecutar_Click()

    Dim strComando As String

    textoError = ""
    TextArea1.Clear
    strComando = "mpg123 -q " & User.Home &/ "cancion.mp3"
    Print strComando
    hProceso = Shell strComando For Read Write As "Proceso"

End

Public Sub Proceso_read()

    Dim scad As String

    Line Input #Last, scad
    TextArea1.Text &= scad & "\n"

End

Public Sub Button2_Click()
    
    ' ¿Que hay que poner aca para enviar un comando al proceso?

End

Public Sub btnKill_Click()

    hProceso.Kill

End
[/code]

Lo curiosos es que si uso mpg123 -q cancion.mp3 la canción se reproduce pero sin  el paramento -q no lo hace.
Y luego intento enviarle el "comando" pausa "s" pero no logro hacerlo.

Saludos.


