Example: /Images/JPEG/JPEG Thread Test

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Images/JPEG/JPEG Thread Test


Required plugins for this example: MBS Main Plugin, MBS Images Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Images/JPEG/JPEG Thread Test

This example is the version from Sat, 22th Feb 2013.

Project "JPEG Thread Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
EventHandler Sub Open() // we run a lot of threads in parallel to see if it doesn't crash. dim pic as Picture = LogoMBS(200) dim data as string = PictureToJPEGStringMBS(pic, 80) dim t as TestThread t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t t = new TestThread t.data = data t.run Threads.Append t End EventHandler
Property threads() As TestThread
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
Class TestThread Inherits Thread
EventHandler Sub Run() do test loop End EventHandler
Sub test() dim j as new JPEGImporterMBS j.YieldTicks = 1 j.Data = data if j.InitJPEG then dim h as integer =j.Height dim w as integer =j.Width j.FinishJPEG else break end if End Sub
Property data As string
End Class
End Project

See also:

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


💬 Ask a question or report a problem