Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Tools Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Tools/RFC/RFC Test
This example is the version from Fri, 19th Mar 2020.
Project "RFC Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
// Mac APP gets killed if DYLD_LIBRARY_PATH is not set to point to folder of libraries
// or maybe works if libraries are embedded
#If TargetWin32
Const path = "sapnwrfc.dll"
#Else
Dim path As FolderItem = GetFolderItem("libsapnwrfc.dylib")
Dim LibPath As String = path.parent.NativePath
Call RFCModuleMBS.SetCurrentWorkingDirectory(libPath)
#EndIf
If RFCModuleMBS.LoadLibrary(path) Then
MsgBox "Library loaded."
Else
MsgBox "Failed to load library"+EndOfLine+EndOfLine+RFCModuleMBS.LibraryLoadErrorMessage
quit
End If
'MsgBox RFCModuleMBS.Version
'Break
Dim loginParams As New Dictionary
loginParams.Value("ashost") = "hostname"
loginParams.Value("sysnr") = "05"
loginParams.Value("client") = "800"
loginParams.Value("user") = "user"
loginParams.Value("passwd") = "****"
loginParams.Value("lang") = "EN"
Dim connection As New RFCConnectionMBS(loginParams)
Dim fd As RFCFunctionDescriptionMBS = connection.FunctionDescription("BAPI_COMPANY_GETDETAIL")
Dim f As RFCFunctionMBS = fd.CreateFunction
f.StringValue("COMPANYID") = "000007"
f.Invoke
Dim s As RFCStructureMBS = f.StructureValue("RETURN")
Dim t As String = s.StringValue("MESSAGE")
MsgBox t
Exception r As RFCErrorExceptionMBS
MsgBox r.message
End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
The items on this page are in the following plugins: MBS Tools Plugin.