xsharp.eu

Code: Select all

USING Gma.QrCodeNet.Encoding
USING Gma.QrCodeNet.Encoding.Windows.Render
USING System.IO
USING System.Drawing
USING System.Drawing.Imaging
CLASS TestQrCode
METHOD Generate(cText AS STRING, nSize AS WORD, cType AS STRING, cFile AS STRING) AS LOGIC PASCAL CLASS TestQrCode
	// cText		Zu codierender Text
	// nSize		QRCode Größe 1-255
	// cType		Output Filetyp PNG, BMP, JPEG
	// cFile		Output Filename inkl. Pfad ohne Extension
	// Return	true/false
	LOCAL qrEncoder AS QREncoder
	LOCAL qrCode AS QrCode
	LOCAL renderer AS GraphicsRenderer
	LOCAL format AS ImageFormat
	LOCAL cOutput AS STRING

	IF Empty(cText) .or. nSize < 1
		RETURN FALSE
	ENDIF
	
	DO CASE
	CASE Lower(cType) == "png"
		format := ImageFormat.Png
		cOutput := cFile + ".png"
	CASE Lower(cType) == "bmp"
		format := ImageFormat.Bmp
		cOutput := cFile + ".bmp"
	OTHERWISE
		format := ImageFormat.Jpeg
		cOutput := cFile + ".jpg"
	ENDCASE

	FErase(cOutput)
	
	qrEncoder := QrEncoder{ErrorCorrectionLevel.H}
	qrCode := qrEncoder:Encode(cText)
	renderer := GraphicsRenderer{FixedModuleSize{nSize, QuietZoneModules.Two}, System.Drawing.Brushes.Black, System.Drawing.Brushes.White}
	BEGIN USING VAR stream := FileStream{cOutput, FileMode.Create}
		renderer:WriteToStream(qrCode:Matrix, format, stream)
	END USING
	
	RETURN iif(File(cOutput), TRUE, FALSE)

END CLASS