Added docker call cmd

Author: snakeice

.gitignore

@@ -66,3 +66,4 @@ modules/
 # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
 *.stat
 *.cbk
+modules

DelphiDocker.dpk

@@ -30,8 +30,7 @@ package DelphiDocker;
 
 requires
   rtl,
-  designide,
-  boss_ide;
+  designide;
 
 contains
   OpenToolApi.Register in 'Src\OpenToolApi\OpenToolApi.Register.pas',
@@ -44,6 +43,7 @@ contains
   Wrapper.Docker in 'Src\wrapper\Wrapper.Docker.pas',
   Wrapper.DockerCompose in 'Src\wrapper\Wrapper.DockerCompose.pas',
   Command.Cmd in 'Src\Command\Command.Cmd.pas',
-  Command.Message in 'Src\Command\Command.Message.pas';
+  Command.Message in 'Src\Command\Command.Message.pas',
+  Docker.Utils in 'Src\Docker\Docker.Utils.pas';
 
 end.

DelphiDocker.dproj

@@ -95,7 +95,7 @@
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <Debugger_HostApplication>E:\tools\Embarcadero\Studio\20.0\bin\bds.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>E:\tools\Embarcadero\Studio\19.0\bin\bds.exe</Debugger_HostApplication>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -113,7 +113,6 @@
         </DelphiCompile>
         <DCCReference Include="rtl.dcp"/>
         <DCCReference Include="designide.dcp"/>
-        <DCCReference Include="boss_ide.dcp"/>
         <DCCReference Include="Src\OpenToolApi\OpenToolApi.Register.pas"/>
         <DCCReference Include="Src\OpenToolApi\OpenToolApi.ToolBarItem.pas">
             <Form>ToolBarItem</Form>
@@ -129,6 +128,7 @@
         <DCCReference Include="Src\wrapper\Wrapper.DockerCompose.pas"/>
         <DCCReference Include="Src\Command\Command.Cmd.pas"/>
         <DCCReference Include="Src\Command\Command.Message.pas"/>
+        <DCCReference Include="Src\Docker\Docker.Utils.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -150,11 +150,8 @@
                     <Source Name="MainSource">DelphiDocker.dpk</Source>
                 </Source>
                 <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\DataExplorerDBXPluginEnt260.bpl">DBExpress Enterprise Data Explorer Integration</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k260.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp260.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                 </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="3">

Src/Command/Command.Runner.pas

@@ -12,40 +12,36 @@ implementation
 uses
   System.SysUtils, Vcl.Forms;
 
+var
+  FMonitorLock: TObject;
+
 function Runner(ACommand, APath: string): Cardinal;
 var
   LDosCommand: TDosCommand;
 begin
-  LDosCommand := TDosCommand.Create(nil);
+  System.TMonitor.Enter(FMonitorLock);
   try
-    LDosCommand.OnNewLine := procedure(ASender: TObject; const ANewLine: string; AOutputType: TOutputType)
-      begin
-//        TCommandMessage.GetInstance.WriteLn(ANewLine);
-      end;
-
-    LDosCommand.OnTerminated := procedure(ASender: TObject)
+    LDosCommand := TDosCommand.Create(nil);
+    try
+      LDosCommand.InputToOutput := False;
+      LDosCommand.CurrentDir := APath;
+      LDosCommand.CommandLine := ACommand;
+      LDosCommand.Execute;
+
+      while LDosCommand.IsRunning do
       begin
-//        ASender.Free;
+        Application.ProcessMessages;
+        Sleep(0);
       end;
 
-    LDosCommand.InputToOutput := False;
-    LDosCommand.CurrentDir := APath;
-    LDosCommand.CommandLine := ACommand;
-    LDosCommand.Execute;
+      Result := LDosCommand.ExitCode
 
-    while LDosCommand.IsRunning do
-    begin
-      Application.ProcessMessages;
-      Sleep(0);
+    finally
+      LDosCommand.Free;
     end;
-
-    Result := LDosCommand.ExitCode
-
   finally
-    LDosCommand.Free;
+    System.TMonitor.Exit(FMonitorLock);
   end;
 end;
 
-
-
 end.

Src/Docker/Docker.Utils.pas

@@ -0,0 +1,46 @@
+unit Docker.Utils;
+
+interface
+
+function DockerIsRunning: Boolean;
+function DockerIsInstalled: Boolean;
+
+implementation
+
+uses
+  Winapi.TlHelp32, Winapi.Windows, System.SysUtils;
+
+function processExists(exeFileName: string): Boolean;
+var
+  ContinueLoop: BOOL;
+  FSnapshotHandle: THandle;
+  FProcessEntry32: TProcessEntry32;
+begin
+  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
+  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
+  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
+  Result := False;
+  while Integer(ContinueLoop) <> 0 do
+  begin
+    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(exeFileName)) or
+      (UpperCase(FProcessEntry32.szExeFile) = UpperCase(exeFileName))) then
+    begin
+      Result := True;
+    end;
+    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
+  end;
+  CloseHandle(FSnapshotHandle);
+end;
+
+function DockerIsRunning: Boolean;
+begin
+  processExists('dockerd.exe')
+end;
+
+function DockerIsInstalled: Boolean;
+begin
+  Result := processExists('where docker');
+end;
+
+
+end.

Src/OpenToolApi/OpenToolApi.Register.pas

@@ -32,7 +32,8 @@ procedure AddToolBarDocker;
   try
     LServices.AddImages(TToolBarItem.GetInstance.ImageListDocker);
 
-    UtilityFunctions.CreateMenuItem('RunWithDocker', 'Run With Docker', 'Run', TToolBarItem.GetInstance.teste, nil,
+    UtilityFunctions.CreateMenuItem('RunWithDocker', 'Run With Docker', 'Run',
+      TToolBarItem.GetInstance.RunWithDocker, nil,
       False, True, 'Alt+F9');
 
   finally

Src/OpenToolApi/OpenToolApi.ToolBarItem.dfm

@@ -145,23 +145,4 @@ object ToolBarItem: TToolBarItem
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000}
   end
-  object ActionListDocker: TActionList
-    Images = ImageListDocker
-    OnExecute = ActionListDockerExecute
-    OnUpdate = ActionListDockerUpdate
-    Left = 40
-    Top = 40
-    object ToolBarItemDocker: TAction
-      Category = 'Run'
-      Caption = 'Run With Docker'
-      ImageIndex = 0
-    end
-  end
-  object MainMenuDocker: TMainMenu
-    Left = 128
-    Top = 88
-    object Este21: TMenuItem
-      Action = ToolBarItemDocker
-    end
-  end
 end

Src/OpenToolApi/OpenToolApi.ToolBarItem.pas

@@ -8,42 +8,28 @@ interface
 type
   TToolBarItem = class(TDataModule)
     ImageListDocker: TImageList;
-    ActionListDocker: TActionList;
-    ToolBarItemDocker: TAction;
-    MainMenuDocker: TMainMenu;
-    Este21: TMenuItem;
-    procedure ActionListDockerExecute(Action: TBasicAction; var Handled: Boolean);
-    procedure ActionListDockerUpdate(Action: TBasicAction; var Handled: Boolean);
   private
+    FImageStartIndex: Integer;
     class var FInstance: TToolBarItem;
   public
     class function GetInstance: TToolBarItem;
-    class procedure teste(ASender:TObject);
+    class procedure RunWithDocker(ASender: TObject);
     class procedure Release;
     constructor Create; reintroduce;
   end;
 
 implementation
 
 uses
-  ToolsAPI, Vcl.Dialogs, Wrapper.DockerCompose, UtilityFunctions;
+  ToolsAPI, Vcl.Dialogs, Wrapper.DockerCompose, UtilityFunctions, Wrapper.Docker;
 
 {%CLASSGROUP 'Vcl.Controls.TControl'}
 {$R *.dfm}
 
-procedure TToolBarItem.ActionListDockerExecute(Action: TBasicAction; var Handled: Boolean);
-begin
-  ShowMessage('Rodando com docker');
-end;
-
-procedure TToolBarItem.ActionListDockerUpdate(Action: TBasicAction; var Handled: Boolean);
-begin
-//  ShowMessage('Update');
-end;
-
 constructor TToolBarItem.Create;
 begin
   inherited Create(nil);
+  FImageStartIndex := NativeServices.AddImages(ImageListDocker, 'docker');
 end;
 
 class function TToolBarItem.GetInstance: TToolBarItem;
@@ -60,15 +46,33 @@ class procedure TToolBarItem.Release;
     FInstance.Free;
 end;
 
-class procedure TToolBarItem.teste(ASender: TObject);
+class procedure TToolBarItem.RunWithDocker(ASender: TObject);
 var
- LDebugger: IOTADebuggerServices;
+  LDebugger: IOTADebuggerServices;
+  LMainMenu: TMainMenu;
+  LMenuItem: TMenuItem;
 begin
-  DockerComposeUp(ExtractFilePath(ActiveProject.FileName));
+  if not DoDockerPreFlight then
+    Exit;
+
+
+
+
+  if not DockerComposeUp(ExtractFilePath(ActiveProject.FileName)) then
+  begin
+    MessageDlg('Can''t start docker compose or docker not started, verify output messages.',
+      TMsgDlgType.mtError,
+      [TMsgDlgBtn.mbOK],
+      1);
+    Exit;
+  end;
+
+  LMainMenu := NativeServices.MainMenu;
 
-  ActiveProject.ProjectBuilder.BuildProject(TOTACompileMode.cmOTABuild, True, True);
+  LMenuItem := LMainMenu.Items.Find('Run').Find('Run');
+  if Assigned(LMenuItem) then
+    LMenuItem.Action.Execute;
 
-//  (BorlandIDEServices as IOTADebuggerServices).CreateProcess('E:\Projetos\_playground\dosCommandTest\Win32\Debug\Project3.exe', '');
 end;
 
 initialization

Src/OpenToolApi/UtilityFunctions.pas

@@ -103,6 +103,8 @@
     strShortCut : String) : TMenuItem;
   Procedure PatchActionShortcuts(Sender : TObject);
 
+  function NativeServices: INTAServices;
+
 Implementation
 
 Uses
@@ -1129,6 +1131,12 @@ function FindMenuItem(strParentMenu : String): TMenuItem;
   {$ENDIF}
 End;
 
+
+function NativeServices: INTAServices;
+begin
+  Result := (BorlandIDEServices as INTAServices);
+end;
+
 (** Creates an object list for storing all action reference so they can be
     removed from the IDE. **)
 Initialization

Src/wrapper/Wrapper.Docker.pas

@@ -2,8 +2,38 @@
 
 interface
 
+function DockerIsRunning: Boolean;
+function DockerIsInstalled: Boolean;
 
+function DoDockerPreFlight: Boolean;
 
 implementation
 
+uses
+  Command.Runner, System.SysUtils;
+
+const
+  Docker = 'docker';
+  DOCKER_PS = Docker + ' ps';
+  WHERE_DOCKER = 'where docker.exe';
+
+function DockerIsRunning: Boolean;
+begin
+  Result := Runner(DOCKER_PS) = 0;
+end;
+
+function DockerIsInstalled: Boolean;
+begin
+  Result := Runner(WHERE_DOCKER) = 0;
+end;
+
+function DoDockerPreFlight: Boolean;
+begin
+  if not DockerIsInstalled then
+    raise Exception.Create('Docker is not installed on your system.');
+
+  if not DockerIsRunning then
+    raise Exception.Create('Docker is not started.');
+end;
+
 end.