xsharp.eu

Code: Select all

FUNCTION Test() AS LOGIC PASCAL
	System.Console.WriteLine("Hello aus Function")
	RETURN TRUE

Code: Select all

_DLL FUNCTION Test() AS LOGIC PASCAL:RksvDll.Test
METHOD DoRksvDll() CLASS StandardShellWindow
	LOCAL lReturn AS LOGIC
	lReturn := Test()
	InfoBox{SELF, "DoRskvDll", "X#Dll returns " + AsString(lReturn)}:Show()
	RETURN SELF

Code: Select all

LOCAL panel AS Panel
LOCAL padding AS System.Drawing.Point
LOCAL dSize AS DrawingSize

qrEncoder := QrEncoder{ErrorCorrectionLevel.H}
qrCode := qrEncoder:Encode(cText)
renderer := GraphicsRenderer{FixedModuleSize{nSize, QuietZoneModules.Two}, System.Drawing.Brushes.Black, System.Drawing.Brushes.White}

panel := Panel{}
padding := System.Drawing.Point{10, 16}
dSize := renderer:SizeCalculator:GetSize(qrCode:Matrix:Width)
panel:AutoSize := FALSE
panel:Size := Size{dSize:CodeWidth, dSize:CodeWidth} + Size{2*padding:X, 2*padding:Y}
BEGIN USING VAR graphics := panel:CreateGraphics()
	renderer:Draw(graphics, qrCode:Matrix, padding)
END USING

Code: Select all

using RGiesecke.DllExport;
using System.Runtime.InteropServices;
class Test
{
  [DllExport("add", CallingConvention = CallingConvention.Cdecl)]
  public static int TestExport(int left, int right)
  {
     return left + right;
  } 
}

Code: Select all

USING RGiesecke.DllExport
USING System.Runtime.InteropServices
USING Mono.Cecil.dll
[DllExport("add", CallingConvention = CallingConvention.Cdecl)]
CLASS Test
PUBLIC STATIC METHOD TestExport(left AS INT, right AS INT) AS INT PASCAL
	RETURN left + right
END CLASS

Code: Select all

USING RGiesecke.DllExport
USING System.Runtime.InteropServices
USING Mono.Cecil
[DllExport("add", CallingConvention := CallingConvention.Cdecl)];
CLASS Test
PUBLIC STATIC METHOD TestExport(left AS INT, right AS INT) AS INT PASCAL
	RETURN left + right
END CLASS

Code: Select all

error XS0246: The type or namespace name 'DllExportAttribute' could not be found (are you missing a using directive or an assembly reference?)
error XS0246: The type or namespace name 'DllExport' could not be found (are you missing a using directive or an assembly reference?)
error XS1069: The type name 'CallingConvention' could not be found in the namespace 'System.Runtime.InteropServices'. This type has been forwarded to assembly 'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' Consider adding a reference to that assembly.

Code: Select all

using RGiesecke.DllExport
using System.Runtime.InteropServices

class Test
[DllExport("add", CallingConvention := CallingConvention.Cdecl)];
public static method TestExport(left as int, right as int) as int pascal
	return left + right
end class