Process: dump the memory of selected process (ref clrMd 0.8.31 beta)

Closes #2

Author: fremag

MemoScope/MemoScope.csproj

@@ -48,6 +48,10 @@
       <HintPath>..\packages\ObjectListView.2.7.1\lib\ListViewPrinter.dll</HintPath>
       <Private>True</Private>
     </Reference>
+    <Reference Include="Microsoft.Diagnostics.Runtime, Version=0.8.31.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Diagnostics.Runtime.0.8.31-beta\lib\net40\Microsoft.Diagnostics.Runtime.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="ObjectListView, Version=2.8.1.33936, Culture=neutral, PublicKeyToken=b1c5bf581481bcd4, processorArchitecture=MSIL">
       <HintPath>..\packages\ObjectListView.Official.2.8.1\lib\net20\ObjectListView.dll</HintPath>
       <Private>True</Private>

MemoScope/Modules/Process/ProcessModule.Designer.cs

@@ -1,9 +1,13 @@
 using System;
 using System.Collections.Generic;
+using System.IO;
 using System.Linq;
 using System.Windows.Forms;
 using System.Windows.Forms.DataVisualization.Charting;
+using Microsoft.Diagnostics.Runtime;
+using Microsoft.Diagnostics.Runtime.Interop;
 using WinFwk.UIModules;
+using WinFwk.UITools.Log;
 
 namespace MemoScope.Modules.Process
 {
@@ -56,6 +60,8 @@ public ProcessModule()
             chart1.ChartAreas[0].AxisX.LabelStyle.Format = "HH:mm:ss";
             chart1.ChartAreas[0].AxisY.LabelStyle.Format = "###,###,###,##0";
             chart1.ChartAreas[0].AxisY.IsStartedFromZero = false;
+
+            tbRootDir.Text = MemoScopeSettings.Instance.RootDir;
         }
 
         private void AddValue(string name, string group, Func<ProcessWrapper, object> func, bool visible = false, string format = "{0:###,###,###,##0}", bool addSeries = true)
@@ -136,5 +142,58 @@ public void Init()
                 proc = (ProcessWrapper) lastProcess;
             }
         }
+
+        private void btnDump_Click(object sender, EventArgs e)
+        {
+            if (proc == null)
+            {
+                Log("Can't dump: no process selected !", LogLevelType.Error);
+                return;
+            }
+
+            if (proc.Process.HasExited)
+            {
+                Log("Can't dump: process has exited !", LogLevelType.Error);
+                return;
+            }
+
+            if (!Directory.Exists(tbRootDir.Text))
+            {
+                try
+                {
+                    Directory.CreateDirectory(tbRootDir.Text);
+                }
+                catch (Exception ex)
+                {
+                    Log("Can't create directory: " + tbRootDir.Text, ex);
+                    return;
+                }
+            }
+            DataTarget target = null;
+            try
+            {
+                target = DataTarget.AttachToProcess(proc.Process.Id, 5000, AttachFlag.NonInvasive);
+                string dumpFileName = string.Format("{0}_{1:yyyy_MM_dd_HH_mm_ss}.dmp", proc.Process.ProcessName, DateTime.Now);
+                string dumpPath = Path.Combine(tbRootDir.Text, dumpFileName);
+
+                int r = target.DebuggerInterface.WriteDumpFile(dumpPath, DEBUG_DUMP.DEFAULT);
+                if (r == 0)
+                {
+                    Log("Process dumped ! "+Environment.NewLine+ dumpPath, LogLevelType.Notify);
+                }
+
+            }
+            catch (Exception ex)
+            {
+                Log("Can't dump process !", ex);
+            }
+            finally
+            {
+                if (target != null)
+                {
+                    target.DebuggerInterface?.DetachProcesses();
+                }
+            }
+        }
     }
 }

MemoScope/Modules/Process/ProcessModule.cs

@@ -2,6 +2,8 @@
 <packages>
   <package id="Antlr" version="3.5.0.2" targetFramework="net46" />
   <package id="ExpressionEvaluator" version="2.0.3.0" targetFramework="net46" />
+  <package id="Microsoft.Diagnostics.Runtime" version="0.8.31-beta" targetFramework="net46" />
   <package id="ObjectListView" version="2.7.1" targetFramework="net46" />
   <package id="ObjectListView.Official" version="2.8.1" targetFramework="net46" />
+  <package id="System.Diagnostics.Debug" version="4.0.11-beta-23409" targetFramework="net46" />
 </packages>