Universal Screenshot function {please extend}

Monkey Forums/Monkey Code/Universal Screenshot function {please extend}

k.o.g.

(Posted 2015) [#1]

Hi,

i would share my screenshot function code with you, at the moment its only avaiable in html5.

You can extend it with other Targets :)

Issues HTML5:
- Internet Explorer accepts no data URL in an Anchor element!
- Some browsers don't support the "download" attribute

#if TARGET = "html5" then
Import dom.dom
Extern Private
	Function toDataUrl:String(el:HTMLCanvasElement, type:String = "image/png", quality:Float = 1.0) = "HTMLCanvasElement.prototype.toDataURL.call"
	
	Class CustomHTMLAnchorElement Extends HTMLAnchorElement = "HTMLAnchorElement"
		Field download:string
	End
Public
#end

	Function Screenshot:Void(name:String, quality:Float = 1.0)
		Local pos:Int = name.FindLast(".")
		If pos = -1 Return
		
		Local ext:String = name[pos + 1 ..]
		name = name[0 .. pos]
		Local format:String = "png"
		Select ext.ToLower()
			Case "png" format = "png"
			Case "jpg" format = "jpeg"
			Case "jpeg" format = "jpeg"
			Case "bmp" format = "bmp"
		End
		
#if TARGET = "html5" then
		Local canvas:HTMLCanvasElement = HTMLCanvasElement(document.getElementById("GameCanvas"))
		Local data:String = toDataUrl(canvas, "image/" + format, quality)
		pos = data.Find(";")
		data = data[pos + 1 ..]
		
		Local a:CustomHTMLAnchorElement = CustomHTMLAnchorElement(document.createElement("a"))
		a.href = "data:application/octet-stream;headers=Content-Disposition%3A%20attachment%3B%20filename=~q" + name + "." + ext + ";" + data
		a.download = name + "." + ext
		a.click()
#else
		Print "Not implemented"
#end
	End