Monkeybread Xojo plugin - Example: /Win/HTMLViewer Windows/HTMLViewer Post and Headers

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/HTMLViewer Windows/HTMLViewer Post and Headers

Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/HTMLViewer Windows/HTMLViewer Post and Headers

This example is the version from Sun, 9th May 2020.

Project "HTMLViewer Post and Headers.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class MainWindow Inherits Window

Control HTMLViewer1 Inherits HTMLViewer

ControlInstance HTMLViewer1 Inherits HTMLViewer

End Control

Control LoadButton Inherits PushButton

ControlInstance LoadButton Inherits PushButton

EventHandler Sub Action() Dim w As IEWebBrowserMBS = HTMLViewer1.IEWebBrowserMBS If w = Nil Then MsgBox "Not native Internet Explorer used?" Else Dim Flags As Integer = 0 Const TargetFrameName = "" Dim Headers As String = header.Text // make sure it's UTF-8 Headers = ConvertEncoding(Headers, Encodings.UTF8) // make sure line endings are right Headers = ReplaceLineEndings(Headers, EndOfLine.Windows) // post data is passed as is w.Navigate(URL.Text, Flags, TargetFrameName, PostData.Text, Headers) End If End EventHandler

End Control

Control Label2 Inherits Label

ControlInstance Label2 Inherits Label

End Control

Control URL Inherits TextField

ControlInstance URL Inherits TextField

End Control

Control Label3 Inherits Label

ControlInstance Label3 Inherits Label

End Control

Control Header Inherits TextArea

ControlInstance Header Inherits TextArea

End Control

Control Label4 Inherits Label

ControlInstance Label4 Inherits Label

End Control

Control PostData Inherits TextArea

ControlInstance PostData Inherits TextArea

End Control

EventHandler Sub Open() HTMLViewer1.LoadURL "about:blank" End EventHandler

Property searching As boolean = false

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar

End Project