xsharp.eu

Code: Select all

class ProdPlan.XStartupCode
[STAThreadAttribute];
static method Start as void
	local oSB as System.Text.StringBuilder

	try
	Functions.Start()
	catch oEx as Exception
	AllocConsole()
	oSB			:= System.Text.StringBuilder{}
	Output( oSB, "An unhandled exception has occurred" )
	Output( oSB, "===================================" )
	do while oEx != null
		Output( oSB, "Exception: " + oEx:Message )
		Output( oSB, "Callstack:")
		Output( oSB, oEx:StackTrace )
		Output( oSB, "" )
		oEx				:= oEx:InnerException
	enddo
	Output( oSB, "===================================" )
	Output( oSB, "Press return to close the application" )
	Wait()
	System.IO.File.AppendAllText( System.IO.Path.Combine( AppDomain.CurrentDomain:BaseDirectory, "ApplicationError.log" ), oSB:ToString() )
	end try
	return

static method Output( oSB as System.Text.StringBuilder, cText as string ) as void
	oSB:AppendLine( cText )
	Console.WriteLine( cText )
	return

static method Wait() as void
	Console.ReadLine()
	return

[DllImport("kernel32.dll", SetLastError := true)];
[return: MarshalAs(UnmanagedType.Bool)];
static extern method AllocConsole() as logic

[DllImport("user32.dll", CharSet := CharSet.Ansi)];
static method MessageBox(hwnd as IntPtr, lpText as string, lpCaption as string, uType as dword) as int pascal

end class

[STAThreadAttribute];
function Start() as int
	local oApp as App
	oApp 		:= App{}
	oApp:Run()
	return 0

Code: Select all

	Catch exception As System.Exception
		LogEvents("IC2WebExchangeWCF",0,Null_Object,"Exception from start "+exception:message,0,"")									// Added logging on runtime error 7-11-2015