support IIS Express

data/resources/StringResources.resx

@@ -3756,13 +3756,13 @@ You can also choose to store the setting in the .user-file instead of the projec
     <value>Web Server</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.CreateVirtualDir" xml:space="preserve">
-    <value>Create virtual directory</value>
+    <value>Create application/virtual directory</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.IISNotFound" xml:space="preserve">
-    <value>IIS was not found</value>
+    <value>Local IIS or IIS Express was not found.</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.VirtualDirCreated" xml:space="preserve">
-    <value>Virtual directory was created</value>
+    <value>Application/virtual directory was created.</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.ProjectUrl" xml:space="preserve">
     <value>Project Url:</value>
@@ -3771,7 +3771,7 @@ You can also choose to store the setting in the .user-file instead of the projec
     <value>Use local IIS Web server</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.UseIISExpress" xml:space="preserve">
-    <value>Use local IIS Express Web server</value>
+    <value>Use IIS Express Web server</value>
   </data>
   <data name="ICSharpCode.WepProjectOptionsPanel.NoProjectUrlOrProgramAction" xml:space="preserve">
     <value>There's no Project Url specified or external program. Check the web server at Project Properties -&gt; Debug tab.</value>
@@ -3785,6 +3785,12 @@ You can also choose to store the setting in the .user-file instead of the projec
   <data name="ICSharpCode.WepProjectOptionsPanel.UnableToAttach" xml:space="preserve">
     <value>Debugger was unable to attach to process.</value>
   </data>
+  <data name="ICSharpCode.WepProjectOptionsPanel.DisableWebServerButton" xml:space="preserve">
+    <value>Disable web server options</value>
+  </data>
+  <data name="ICSharpCode.WepProjectOptionsPanel.Port" xml:space="preserve">
+    <value>Server port:</value>
+  </data>
   <data name="ICSharpCode.NoStartupProject" xml:space="preserve">
     <value>There is no startup project to debug.</value>
   </data>

src/AddIns/Debugger/Debugger.AddIn/Service/WindowsDebugger.cs

@@ -156,33 +156,30 @@ namespace ICSharpCode.SharpDevelop.Services
 				
 				if (debugData.Data.WebServer != WebServer.None) {
 					
-					// try attach to IIS WP
+					System.Diagnostics.Process defaultAppProcess = null;
-					var processes = System.Diagnostics.Process.GetProcesses();
-					string processName = WebProjectService.WorkerProcessName;
-					if (debugData.Data.WebServer == WebServer.IISExpress)
-						processName = WebProjectService.IIS_EXPRESS_PROCESS_NAME;
 					
-					System.Diagnostics.Process localProcess = null;
+					string processName = WebProjectService.WorkerProcessName;
 					
-					// try find the worker process
+					// try find the worker process directly or using the process monitor callback
-					int index = processes.FindIndex<System.Diagnostics.Process>(
+					var processes = System.Diagnostics.Process.GetProcesses();
-						p => p.ProcessName.IndexOf(processName, StringComparison.OrdinalIgnoreCase) == 0);
+					int index = processes.FindIndex(p => p.ProcessName.Equals(processName, StringComparison.OrdinalIgnoreCase));
 					if (index > -1){
 						Attach(processes[index]);
 					} else {
 						this.monitor = new ProcessMonitor(processName);
 						this.monitor.ProcessCreated += delegate {
+							if (attached)
+								return;
 							processes = System.Diagnostics.Process.GetProcesses();
-							index = processes.FindIndex<System.Diagnostics.Process>(
+							index = processes.FindIndex(p => p.ProcessName.Equals(processName, StringComparison.OrdinalIgnoreCase));
-								p => p.ProcessName.IndexOf(processName, StringComparison.OrdinalIgnoreCase) == 0);
+							WorkbenchSingleton.SafeThreadCall((Action)(() => Attach(processes[index])));
-							Attach(processes[index]);
 							
 							if (!attached) {
 								if(debugData.Data.WebServer == WebServer.IIS) {
 									string format = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.NoIISWP");
 									MessageService.ShowMessage(string.Format(format, processName));
 								} else {
-									Attach(localProcess);
+									WorkbenchSingleton.SafeThreadCall((Action)(() => Attach(defaultAppProcess)));
 									if (!attached) {
 										MessageService.ShowMessage(ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.UnableToAttach"));
 									}
@@ -192,15 +189,23 @@ namespace ICSharpCode.SharpDevelop.Services
 						this.monitor.Start();
 					}
 					
+					if (debugData.Data.WebServer == WebServer.IISExpress) {
+						// start IIS express and attach to it
+						if (WebProjectService.IISVersion == IISVersion.IISExpress)
+							System.Diagnostics.Process.Start(WebProjectService.IIS_EXPRESS_PROCESS_LOCATION);
+						else
+							MessageService.ShowError("${res:ICSharpCode.WepProjectOptionsPanel.NoProjectUrlOrProgramAction}");
+					}
+					
 					// start default application(e.g. browser)
 					if (project.StartAction == StartAction.StartURL)
-						localProcess = System.Diagnostics.Process.Start(processStartInfo.FileName);
+						defaultAppProcess = System.Diagnostics.Process.Start(processStartInfo.FileName);
 					else {
 						if (!string.IsNullOrEmpty(debugData.Data.ProjectUrl) && debugData.Data.WebServer == WebServer.IIS)
-							localProcess = System.Diagnostics.Process.Start(debugData.Data.ProjectUrl);
+							defaultAppProcess = System.Diagnostics.Process.Start(debugData.Data.ProjectUrl);
 						else {
 							if (debugData.Data.WebServer == WebServer.IISExpress)
-								localProcess = System.Diagnostics.Process.Start(debugData.Data.ProjectUrl);
+								defaultAppProcess = System.Diagnostics.Process.Start(debugData.Data.ProjectUrl);
 						}
 					}
 				}

src/Main/Base/Project/ICSharpCode.SharpDevelop.csproj

@@ -44,7 +44,7 @@
     <DefineConstants>TRACE;PUBLICINTERPROCESS</DefineConstants>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="Microsoft.Web.Administration" />
+    <Reference Include="Microsoft.CSharp" />
     <Reference Include="Mono.Cecil">
       <HintPath>..\..\..\Libraries\Mono.Cecil\Mono.Cecil.dll</HintPath>
       <Private>False</Private>

src/Main/Base/Project/Src/Gui/Dialogs/OptionPanels/ProjectOptions/DebugOptions.cs

@@ -61,7 +61,7 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 				if (isWebProject) {
 					ElementHost host = new ElementHost();
 					host.Anchor = AnchorStyles.Left | AnchorStyles.Top | AnchorStyles.Right;
-					host.Height = 150;
+					host.Height = 175;
 					host.Width = 550;
 					host.Top = 240;
 					host.Left = 8;					
@@ -95,5 +95,13 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 			
 			UpdateEnabledStates(null, EventArgs.Empty);
 		}
+		
+		public void SetExternalProgram(string externalProgram)
+		{
+			if (externalProgram == null)
+				return;
+			
+			Get<TextBox>("startExternalProgram").Text = externalProgram;
+		}
 	}
 }

src/Main/Base/Project/Src/Gui/Dialogs/OptionPanels/ProjectOptions/WebProjectOptions/WebProjectOptions.cs

@@ -64,5 +64,8 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 		
 		[DefaultValue(WebServer.None)]
 		public WebServer WebServer { get; set; }
+		
+		[DefaultValue("8080")]
+		public string Port { get; set; }
 	}
 }

src/Main/Base/Project/Src/Gui/Dialogs/OptionPanels/ProjectOptions/WebProjectOptions/WebProjectOptionsPanel.xaml

@@ -4,32 +4,42 @@
 >
 	<GroupBox Margin="0, 0, 85, 0"
 	          Header="{core:Localize ICSharpCode.WepProjectOptionsPanel.Server}">
-		<widgets:StackPanelWithSpacing SpaceBetweenItems="5">
+		<widgets:StackPanelWithSpacing SpaceBetweenItems="3">
 			<!--IIS Express-->
-			<widgets:StackPanelWithSpacing SpaceBetweenItems="5">
+			<widgets:StackPanelWithSpacing SpaceBetweenItems="3">
 				<RadioButton
 					IsChecked="False"
 					GroupName="WebProject"
 					x:Name="UseIISExpress"
 					Click="UseIISExpress_Click"
 					Content="{core:Localize ICSharpCode.WepProjectOptionsPanel.UseIISExpress}" />
+				<Grid Margin="10, 3"
+				      IsEnabled="False"
+				      x:Name="IISExpressGroup"
+				      VerticalAlignment="Top">
+					<Grid.ColumnDefinitions>
+						<ColumnDefinition Width="Auto"/>
+						<ColumnDefinition Width="Auto"/>
+					</Grid.ColumnDefinitions>
+					<TextBlock Text="{core:Localize ICSharpCode.WepProjectOptionsPanel.Port}"/>
+					<TextBox Grid.Column="1" x:Name="PortTextBox" PreviewTextInput="PortTextBox_PreviewTextInput" Text="8080"/>
+				</Grid>
 			</widgets:StackPanelWithSpacing>
 			<!--IIS Local Server-->
-			<widgets:StackPanelWithSpacing SpaceBetweenItems="5">
+			<widgets:StackPanelWithSpacing SpaceBetweenItems="3">
 				<RadioButton
 					IsChecked="False"
 					GroupName="WebProject"
 					x:Name="UseLocalIIS"
 					Click="UseLocalIIS_Click"
 					Content="{core:Localize ICSharpCode.WepProjectOptionsPanel.UseLocalIIS}" />
-				<Grid Margin="10, 10"
+				<Grid Margin="10, 3"
 				      IsEnabled="False"
 				      x:Name="LocalIISGroup"
 				      VerticalAlignment="Top">
 					<Grid.ColumnDefinitions>
 						<ColumnDefinition Width="Auto"/>
 						<ColumnDefinition Width="Auto"/>
-						<ColumnDefinition Width="Auto"/>
 					</Grid.ColumnDefinitions>
 					<TextBlock
 						VerticalAlignment="Center"
@@ -42,14 +52,8 @@
 						x:Name="ProjectUrl"
 						TextChanged="ProjectUrl_TextChanged"
 						MinWidth="250" />
-					<Button
-						Grid.Row="1"
-						Grid.Column="2"
-						Style="{x:Static core:GlobalStyles.ButtonStyle}"
-						Name="CreateVirtualDirectoryButton"
-						Content="{core:Localize ICSharpCode.WepProjectOptionsPanel.CreateVirtualDir}"
-						Click="CreateVirtualDirectory_Click" />
 				</Grid>
+			</widgets:StackPanelWithSpacing>
 			<TextBlock
 				Foreground="Red"
 				TextDecorations="Underline"
@@ -57,7 +61,19 @@
 				FontWeight="Bold"
 				TextWrapping="Wrap"
 				Name="StatusLabel" />
-			</widgets:StackPanelWithSpacing>
+			<widgets:UniformGridWithSpacing Columns="2" SpaceBetweenColumns="10">
+				<Button
+					IsEnabled="False"
+					Style="{x:Static core:GlobalStyles.ButtonStyle}"
+					Name="CreateVirtualDirectoryButton"
+					Content="{core:Localize ICSharpCode.WepProjectOptionsPanel.CreateVirtualDir}"
+					Click="CreateVirtualDirectory_Click" />
+				<Button
+					Style="{x:Static core:GlobalStyles.ButtonStyle}"
+					Name="ClearWebServerButton"
+					Content="{core:Localize ICSharpCode.WepProjectOptionsPanel.DisableWebServerButton}"
+					Click="ClearWebServerButton_Click" />
+			</widgets:UniformGridWithSpacing>
 		</widgets:StackPanelWithSpacing>
 	</GroupBox>
 </UserControl>

src/Main/Base/Project/Src/Gui/Dialogs/OptionPanels/ProjectOptions/WebProjectOptions/WebProjectOptionsPanel.xaml.cs

@@ -25,16 +25,32 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 				CurrentProjectDebugData = new WebProjectDebugData();
 			
 			Loaded += delegate(object sender, RoutedEventArgs e) {
+				
+				if (!WebProjectService.IsIISInstalled) {
+					StatusLabel.Text = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.IISNotFound");
+					return;
+				}
+				
 				switch (CurrentProjectDebugData.WebServer)
 				{
 					case WebServer.IISExpress:
+						if (WebProjectService.IISVersion == IISVersion.IISExpress) {
 							UseIISExpress.IsChecked = true;
-						UseIISExpress_Click(null, null);
+							IISExpressGroup.IsEnabled = true;
+							CreateVirtualDirectoryButton.IsEnabled = true;
+							PortTextBox.Text = CurrentProjectDebugData.Port;
+						}
 						break;
 					case WebServer.IIS:
+						if (WebProjectService.IISVersion == IISVersion.IIS5 ||
+						    WebProjectService.IISVersion == IISVersion.IIS6 ||
+						    WebProjectService.IISVersion == IISVersion.IIS7 ||
+						    WebProjectService.IISVersion == IISVersion.IIS_Future) {
 							UseLocalIIS.IsChecked = true;
+							LocalIISGroup.IsEnabled = true;
+							CreateVirtualDirectoryButton.IsEnabled = true;
 							ProjectUrl.Text = CurrentProjectDebugData.ProjectUrl ?? string.Empty;
-						UseLocalIIS_Click(null, null);
+						}
 						break;
 					default:
 						// do nothing
@@ -83,12 +99,20 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 		{
 			WebProjectDebugData data = new WebProjectDebugData();
 			data.WebServer = WebServer.IISExpress;
+			data.Port = PortTextBox.Text;
+			data.ProjectUrl = string.Format(@"http://localhost:{0}/" + ProjectService.CurrentProject.Name, PortTextBox.Text);
+			bool isIISExpressInstalled = WebProjectService.IISVersion == IISVersion.IISExpress;
 			
-			if (ProjectService.CurrentProject is CompilableProject) {
+			if (!isIISExpressInstalled) {
-				((CompilableProject)ProjectService.CurrentProject).StartAction = StartAction.Program;
+				UseIISExpress.IsChecked = false;
-				parentPanel.SetStartAction(StartAction.Program);
+				data.WebServer = WebServer.None;
+				StatusLabel.Text = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.IISNotFound");
+				data.ProjectUrl = string.Empty;
 			}
+			else
+				StatusLabel.Text = string.Empty;
 			
+			IISExpressGroup.IsEnabled = CreateVirtualDirectoryButton.IsEnabled = isIISExpressInstalled;
 			LocalIISGroup.IsEnabled = false;
 			CurrentProjectDebugData = data;
 		}
@@ -97,11 +121,16 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 		{
 			WebProjectDebugData data = new WebProjectDebugData();
 			data.WebServer = WebServer.IIS;
+			data.Port = string.Empty;
+			bool isIISInstalled = WebProjectService.IISVersion == IISVersion.IIS5 ||
+				WebProjectService.IISVersion == IISVersion.IIS6 ||
+				WebProjectService.IISVersion == IISVersion.IIS7;
 			
-			if (!WebProjectService.IsIISInstalled) {
+			if (!isIISInstalled) {
 				StatusLabel.Text = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.IISNotFound");
 				ProjectUrl.Text = string.Empty;
 				data.WebServer = WebServer.None;
+				UseLocalIIS.IsChecked = false;
 			}
 			else {
 				StatusLabel.Text = string.Empty;
@@ -109,15 +138,8 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 			}
 			
 			data.ProjectUrl = ProjectUrl.Text;
-			CreateVirtualDirectoryButton.IsEnabled = WebProjectService.IsIISInstalled;
+			LocalIISGroup.IsEnabled = CreateVirtualDirectoryButton.IsEnabled = isIISInstalled;
-			ProjectUrl.IsEnabled = WebProjectService.IsIISInstalled;
+			IISExpressGroup.IsEnabled = false;
-			
-			if (ProjectService.CurrentProject is CompilableProject) {
-				((CompilableProject)ProjectService.CurrentProject).StartAction = StartAction.Project;
-				parentPanel.SetStartAction(StartAction.Project);
-			}
-			
-			LocalIISGroup.IsEnabled = true;
 			CurrentProjectDebugData = data;
 		}
 		
@@ -128,5 +150,37 @@ namespace ICSharpCode.SharpDevelop.Gui.OptionPanels
 			data.ProjectUrl = ProjectUrl.Text;
 			CurrentProjectDebugData = data;
 		}
+		
+		void ClearWebServerButton_Click(object sender, RoutedEventArgs e)
+		{
+			UseIISExpress.IsChecked = false;
+			UseLocalIIS.IsChecked = false;
+			CreateVirtualDirectoryButton.IsEnabled = false;
+			ProjectUrl.Text = string.Empty;
+			LocalIISGroup.IsEnabled = false;
+			IISExpressGroup.IsEnabled = false;
+			
+			WebProjectDebugData data = new WebProjectDebugData();
+			data.WebServer = WebServer.None;
+			data.ProjectUrl = string.Empty;
+			
+			CurrentProjectDebugData = data;
+		}
+		
+		bool AreAllValidNumericChars(string str)
+		{
+			foreach(char c in str)
+			{
+				if(!Char.IsNumber(c)) return false;
+			}
+
+			return true;
+		}
+		
+		void PortTextBox_PreviewTextInput(object sender, System.Windows.Input.TextCompositionEventArgs e)
+		{
+			e.Handled = !AreAllValidNumericChars(e.Text);
+			base.OnPreviewTextInput(e);
+		}
 	}
 }

src/Main/Base/Project/Src/Services/WebProjectService/WebProjectService.cs

@@ -3,6 +3,9 @@
 
 using System;
 using System.EnterpriseServices.Internal;
+using System.IO;
+using System.Reflection;
+
 using ICSharpCode.Core;
 using Microsoft.Win32;
 
@@ -10,6 +13,7 @@ namespace ICSharpCode.SharpDevelop.Project
 {
 	public enum IISVersion
 	{
+		None = 0,
 		IIS5 = 5,
 		IIS6,
 		IIS7,
@@ -46,6 +50,8 @@ namespace ICSharpCode.SharpDevelop.Project
 		public const string IIS_5_PROCESS_NAME = "aspnet_wp";
 		public const string IIS_NEW_PROCESS_NAME = "w3wp";
 		
+		public const string IIS_EXPRESS_PROCESS_LOCATION = @"C:\Program Files\IIS Express\iisexpress.exe";
+		
 		/// <summary>
 		/// Gets the IIS worker process name.
 		/// </summary>
@@ -149,12 +155,18 @@ namespace ICSharpCode.SharpDevelop.Project
 					RegistryValueKind.DWord,
 					out regValue);
 				
+				if (regValue > 4)
 					return (IISVersion)regValue;
+				
+				if (File.Exists(WebProjectService.IIS_EXPRESS_PROCESS_LOCATION))
+					return IISVersion.IISExpress;
+				
+				return IISVersion.None;
 			}
 		}
 		
 		/// <summary>
-		/// Creates a virtual directory in IIS.
+		/// Creates a virtual directory in local IIS or IIS Express.
 		/// </summary>
 		/// <param name="virtualDirectoryName">Virtual directory name.</param>
 		/// <param name="virtualDirectoryPath">Physical path.</param>
@@ -179,10 +191,23 @@ namespace ICSharpCode.SharpDevelop.Project
 						break;
 						
 					default:
-						using (var manager = new Microsoft.Web.Administration.ServerManager())
+						// TODO: find a better way to create IIS 7 applications without Microsoft.Web.Administration.ServerManager
-						{
-							if (manager.Sites[DEFAULT_WEB_SITE] != null) {
 						string name = "/" + virtualDirectoryName;
+						// load from GAC - IIS7 is installed
+						Assembly webAdministrationAssembly;
+						try {
+							// iis 7
+							webAdministrationAssembly = Assembly.Load("Microsoft.Web.Administration, Version=7.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35");
+						}
+						catch {
+							// iis express
+							webAdministrationAssembly = Assembly.Load("Microsoft.Web.Administration, Version=7.9.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35");
+						}
+						
+						// use dynamic because classic reflection is way TOO ugly
+						dynamic manager = webAdministrationAssembly.CreateInstance("Microsoft.Web.Administration.ServerManager");
+						
+						if (manager.Sites[DEFAULT_WEB_SITE] != null) {
 							if (manager.Sites[DEFAULT_WEB_SITE].Applications[name] == null) {
 								manager.Sites[DEFAULT_WEB_SITE].Applications.Add(name, physicalDirectoryPath);
 								manager.CommitChanges();
@@ -190,10 +215,16 @@ namespace ICSharpCode.SharpDevelop.Project
 							} else {
 								error = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.ApplicationExists");
 							}
+						} else {
+							if (manager.Sites[0].Applications[name] == null) {
+								manager.Sites[0].Applications.Add(name, physicalDirectoryPath);
+								manager.CommitChanges();
+								error = string.Empty;
+							} else {
+								error = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.ApplicationExists");
 							}
-							else
-								error = ResourceService.GetString("ICSharpCode.WepProjectOptionsPanel.MultipleIISServers");
 						}
+						manager.Dispose();
 						break;
 				}