Platforms to show: All Mac Windows Linux Cross-Platform
/MacControls/HTMLViewer Mac/TestWebKit Flash/TestWebKit Flash
Function:
Required plugins for this example: MBS MacBase Plugin, MBS MacCF Plugin, MBS Main Plugin, MBS MacCocoa Plugin, MBS MacControls Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacControls/HTMLViewer Mac/TestWebKit Flash/TestWebKit Flash
Function:
Required plugins for this example: MBS MacBase Plugin, MBS MacCF Plugin, MBS Main Plugin, MBS MacCocoa Plugin, MBS MacControls Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacControls/HTMLViewer Mac/TestWebKit Flash/TestWebKit Flash
Project "TestWebKit Flash.xojo_binary_project"
FileTypes
Filetype text
Filetype application/pdf
End FileTypes
Class Window1 Inherits Window
Control info Inherits Label
ControlInstance info Inherits Label
End Control
Control HTMLViewer1 Inherits HTMLViewer
ControlInstance HTMLViewer1 Inherits HTMLViewer
End Control
EventHandler Sub EnableMenuItems()
FileSavePDF.Enable
FileJavascriptTest.Enable
FileCurrentURL.Enable
FileRefresh.Enable
Exception
MsgBox "Enablemenuitems exception"
End EventHandler
EventHandler Sub Open()
dim e as integer
dim f as WebFrameMBS
dim url as CFURLMBS
url=NewCFURLMBSFile(FindFile("teste.swf"))
HTMLViewer1.LoadURLMBS url.str.str
if not me.Composite then
MsgBox "This window must be composite!"
end if
End EventHandler
Function FileCurrentURL() As Boolean
msgbox HTMLViewer1.mainFrameMBS.DataSource.response.URL
End Function
Function FileJavascriptTest() As Boolean
dim s as string
s=HTMLViewer1.EvaluateJavaScriptMBS("return document.title;")
if s="" then
MsgBox "Error"
else
MsgBox s
end if
End Function
Function FileRefresh() As Boolean
HTMLViewer1.ReloadMBS
Return true
End Function
Function FileSavePDF() As Boolean
dim f as FolderItem
dim d as string
dim b as BinaryStream
f=GetSaveFolderItem("application/pdf","Webkit output.pdf")
if f<>Nil then
d=HTMLViewer1.RenderPDFMBS
if d<>"" then
b=f.CreateBinaryFile("application/pdf")
if b<>Nil then
b.Write d
b.Close
end if
end if
end if
Return true
End Function
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
End Class
MenuBar MenuBar1
MenuItem UntitledMenu2 = ""
MenuItem FileMenu = "&File"
MenuItem FileSavePDF = "Save PDF..."
MenuItem FileJavascriptTest = "Javascript Test"
MenuItem FileCurrentURL = "Current URL"
MenuItem FileRefresh = "Refresh"
MenuItem UntitledMenu1 = "-"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open()
if TargetMachO then
// ok
else
MsgBox "This project works only as MachO target on Mac OS X."
end if
End EventHandler
End Class
End Project
See also:
- /MacControls/HTMLViewer Mac/Custom Printing
- /MacControls/HTMLViewer Mac/Custom Printing with WebPrintMBS
- /MacControls/HTMLViewer Mac/DOM Form Fields
- /MacControls/HTMLViewer Mac/HTMLViewer Get and Set Field
- /MacControls/HTMLViewer Mac/HTMLViewer get html source
- /MacControls/HTMLViewer Mac/HTMLViewer Image Tests
- /MacControls/HTMLViewer Mac/HTMLViewer on TabPanels fix
- /MacControls/HTMLViewer Mac/HTMLViewer Printing and Email
- /MacControls/HTMLViewer Mac/WebDownloadDelegateMBS Test
- /MacControls/HTMLViewer Mac/WebResourceLoadDelegate
The items on this page are in the following plugins: MBS MacControls Plugin.
Feedback: Report problem or ask question.