Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCF/NewCFObjectMBSFromXML Test
Required plugins for this example: MBS MacCF Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCF/NewCFObjectMBSFromXML Test
This example is the version from Thu, 24th Jul 2013.
Project "NewCFObjectMBSFromXML Test.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
EventHandler Sub Open() dim xml as string = MakeXML dim o as CFObjectMBS = NewCFObjectMBSFromXML(NewCFBinaryDataMBSStr(xml)) if o isa CFDictionaryMBS then dim d as CFDictionaryMBS = CFDictionaryMBS(o) dim key as CFStringMBS = NewCFStringMBS("Key") dim valueObject as CFObjectMBS = d.Value(key) if valueObject isa CFStringMBS then dim value as CFStringMBS = CFStringMBS(valueObject) MsgBox value.str else // error break end if else // error break end if End EventHandler
Protected Function MakeXML() As string dim d as new CFMutableDictionaryMBS dim key as CFStringMBS = NewCFStringMBS("Key") dim value as CFStringMBS = NewCFStringMBS("My Value") d.set(key, value) dim b as CFBinaryDataMBS = d.XML Return b.Str End Function
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacCF Plugin.

MBS FileMaker Plugins