Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio Plugin Tutorial Videos

PHP Source

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Event implementations
  Sub Open()
    dim p as PHPMBS
    
    p=new MyPHP
    
    if not p.LoadAPI("C:\Programme\PHP\php5ts.dll") then
      MsgBox "Failed to load php library."
    end if
    
    if p.init then
      'MsgBox p.Execute("echo ""PHP version: "".phpversion();")
      
      p.setVariable "test","REALbasic"
      
      'MsgBox p.Execute("echo ""Hello world from $test."";")
      
      'MsgBox p.Execute("print_r(get_loaded_extensions());")
      
      'MsgBox p.Execute("echo callRealbasic(""add"",4,5);")
      
      if p.run("echo ""Hello World"";") then
        // ok
      end if
      
      if p.run("echo 1+2;") then
        // ok
      end if
      
      if p.run("3u") then
        MsgBox "OK"
      else
        MsgBox "failed to compile"
      end if
      
      
    end if
    
  End Sub
End Class

Class MyPHP
Inherits PHPMBS
  // Event implementations
  Function Callback() As variant
    if CallbackArgumentCount=3 then
      if CallbackArgumentString(0)="add" then
        dim a,b as double
        
        a=CallbackArgumentDouble(1)
        b=CallbackArgumentDouble(2)
        
        Return a+b
      end if
    end if
    
    Return "Hello from the callback event"
    
  End Function
  Sub Write(data as string)
    MsgBox "Write got this data: "+data
  End Sub
End Class

All movies

Loading


Links
MBS Real Studio PDF Plugins - Besuchen Sie die Jugendzentrum Nickenich Webseite