Gambas ONE

' Gambas class file

Export

Public p As Process

Public Sub WebButton1_Click()

  Dim sName As String = File.SetExt(Temp(), "gbs")
  Dim sTxt As String = taCode.Text

  If InStr(sTxt, "Shell ", 0, gb.Like) Or If InStr(sTxt, "Exec ", 0, gb.Like) Then
    Message("Shell and Exec are not allowed.")
    Return
  Endif

  If WebComboBox1.Index = 0 Then
    File.Save(sName, taCode.Text)
    taResult.Text = ""
    p = Exec ["gbs3", sName] For Read As "PROC"
    While p.State = Process.Running
      Wait 0.1
      If Not Object.IsValid(p) Then Break
    Wend
    Kill sName

  Else
    Try taResult.Text = Eval(taCode.Text)
    If Error Then taResult.Text = "Error:\n" & Error.Text
  Endif

End

Public Sub PROC_Read()

  Dim sText As String
  sText = Read #p, -256
  taResult.Text &= sText

End