Platforms to show: All Mac Windows Linux Cross-Platform

/MacCF/Proxy/CFProxy Tests


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/Proxy/CFProxy Tests

This example is the version from Thu, 6th Apr 2016.

Project "CFProxy Tests.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub ExpandRow(row As Integer) dim v as Variant = me.RowTag(row) if v isa Dictionary then end if End EventHandler
End Control
EventHandler Sub Open() dim d as Dictionary = CFProxyMBS.SystemProxySettings List.AddFolder "SystemProxySettings" List.RowTag(List.LastIndex) = d dim d1() as Dictionary = CFProxyMBS.ProxiesForURL("ftp://www.hello.de") List.AddFolder "ProxiesForURL" List.RowTag(List.LastIndex) = d1 p = new proxy // read a proxy file dim f as FolderItem = FindFile("proxy.pac") if f.Exists then dim b as BinaryStream = BinaryStream.Open(f) dim data as string = b.Read(b.Length, Encodings.utf8) dim e as CFErrorMBS dim d2() as Dictionary = CFProxyMBS.ProxiesForAutoConfigurationScript(data, "ftp://www.hello.de", e) List.AddFolder "ProxiesForAutoConfigurationScript" List.RowTag(List.LastIndex) = d2 if p.ExecuteProxyAutoConfigurationScript(data, "ftp://www.hello.de") then System.DebugLog "ExecuteProxyAutoConfigurationScript started." end if end if if p.ExecuteProxyAutoConfigurationURL("http://www.monkeybreadsoftware.de/proxy.pac", "ftp://www.hello.de") then System.DebugLog "ExecuteProxyAutoConfigurationURL started." end if End EventHandler
Function FindFile(name as string) As FolderItem // Look for file in parent folders from executable on dim parent as FolderItem = app.ExecutableFile.Parent while parent<>Nil dim file as FolderItem = parent.Child(name) if file<>Nil and file.Exists then Return file end if parent = parent.Parent wend End Function
Property p As proxy
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
Class Proxy Inherits CFProxyMBS
EventHandler Sub AutoConfigurationResult(error as CFErrorMBS, proxyList() as Dictionary) System.DebugLog CurrentMethodName End EventHandler
End Class
End Project

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


The biggest plugin in space...