RunWithDocker get port and start service

Author: hunsche

Src/Command/Command.Runner.pas

@@ -3,54 +3,61 @@
 interface
 
 uses
-  DOSCommand, OpenToolApi.CommandMessage;
+  DOSCommand, OpenToolApi.CommandMessage, UtilityFunctions, System.Classes;
 
-function Runner(APath, ACommand: string): Integer; overload;
-function Runner(ACommand: string): Integer; overload;
+type
+  TRunnerReturn = record
+    ExitCode: Integer;
+    Output: string;
+    constructor Create(AExitCode: Integer; AOutput: string);
+  end;
+
+function Runner(APath, ACommand: string): TRunnerReturn; overload;
+function Runner(ACommand: string): TRunnerReturn; overload;
 
 implementation
 
 uses
   System.SysUtils, Vcl.Forms;
 
-var
-  FMonitorLock: TObject;
-
-function DoRunner(APath, ACommand: string): Integer;
+function DoRunner(APath, ACommand: string): TRunnerReturn;
 var
   LDosCommand: TDosCommand;
 begin
-//System.TMonitor.Enter(FMonitorLock);
+  LDosCommand := TDosCommand.Create(nil);
   try
-    LDosCommand := TDosCommand.Create(nil);
-    try
-//      LDosCommand.InputToOutput := False;
-      LDosCommand.CurrentDir := APath;
-      LDosCommand.CommandLine := ACommand;
-      LDosCommand.Execute;
-
-      while LDosCommand.IsRunning do
-      begin
-        Application.ProcessMessages;
-      end;
-
-      Result := LDosCommand.ExitCode;
-    finally
-      LDosCommand.Free;
+    LDosCommand.InputToOutput := True;
+    LDosCommand.CurrentDir := APath;
+    LDosCommand.CommandLine := ACommand;
+    LDosCommand.Execute;
+
+    while LDosCommand.IsRunning do
+    begin
+      Application.ProcessMessages;
     end;
+
+    Result := TRunnerReturn.Create(LDosCommand.ExitCode, LDosCommand.Lines.Text);
   finally
-//    System.TMonitor.Exit(FMonitorLock);
+    LDosCommand.Free;
   end;
 end;
 
-function Runner(ACommand: string): Integer;
+function Runner(ACommand: string): TRunnerReturn;
 begin
-  Result := DoRunner('C:/', ACommand);
+  Result := DoRunner(ExtractFilePath(ActiveProject.FileName), ACommand);
 end;
 
-function Runner(APath, ACommand: string): Integer;
+function Runner(APath, ACommand: string): TRunnerReturn;
 begin
   Result := DoRunner(APath, ACommand);
 end;
 
+{ TRunnerReturn }
+
+constructor TRunnerReturn.Create(AExitCode: Integer; AOutput: string);
+begin
+  ExitCode := AExitCode;
+  Output := AOutput;
+end;
+
 end.

Src/Constants/Constants.Version.pas

@@ -2,12 +2,25 @@
 
 interface
 
+uses
+  SysUtils, Winapi.Windows;
+
 type
 
+  TSemanticVersion = record
+    Major: integer;
+    Minor: integer;
+    Patch: integer;
+    function ToString: string;
+    constructor Create(AMajor: integer; AMinor: integer; APatch: integer);
+  end;
+
   TVersion = class
   private
     FName: string;
     FSemantic: string;
+    FIDEVersion: TSemanticVersion;
+    function GetIDEVersion: TSemanticVersion;
     class var FInstance: TVersion;
   public
     class function GetInstance: TVersion;
@@ -19,24 +32,66 @@   TVersion = class
 
 implementation
 
+uses
+  ToolsAPI;
+
+{ TSemanticVersion }
+
+constructor TSemanticVersion.Create(AMajor, AMinor, APatch: integer);
+begin
+  Major := AMajor;
+  Minor := AMinor;
+  Patch := APatch;
+end;
+
+function TSemanticVersion.ToString: string;
+begin
+  Result := Major.ToString + '.' + Minor.ToString + '.' + Patch.ToString;
+end;
+
 { TVersion }
 
 constructor TVersion.Create;
 begin
-  // {$IFDEF CONDITIONALEXPRESSIONS}
+  FIDEVersion := GetIDEVersion;
+
 {$IFDEF VER330}
-  FName := 'Rio';
-  FSemantic := '10.3.0';
+  FName := 'rio';
+
+  if FIDEVersion.Minor.ToString.StartsWith('32') then
+    FSemantic := '10.3.1';
+
+  if FIDEVersion.Minor.ToString.StartsWith('32') then
+    FSemantic := '10.3.0';
 {$ENDIF}
-{$IFDEF VER331}
-  FName := 'Rio';
-  FSemantic := '10.3.1'
+{$IFDEF VER320}
+  FName := 'tokyo';
+  FSemantic := '10.2.3'
 {$ENDIF}
-  // {$IF RTLVersion >= 14.0}
-  // {$DEFINE HAS_ERROUTPUT}
-  // {$IFEND}
-  // {$ENDIF}
-  // end;
+end;
+
+function TVersion.GetIDEVersion: TSemanticVersion;
+var
+  VerInfoSize: Cardinal;
+  VerValueSize: Cardinal;
+  Dummy: Cardinal;
+  PVerInfo: Pointer;
+  PVerValue: PVSFixedFileInfo;
+  LFileName: string;
+begin
+  LFileName := ParamStr(0);
+  VerInfoSize := GetFileVersionInfoSize(PChar(LFileName), Dummy);
+  GetMem(PVerInfo, VerInfoSize);
+  try
+    if GetFileVersionInfo(PChar(LFileName), 0, VerInfoSize, PVerInfo) then
+      if VerQueryValue(PVerInfo, '\', Pointer(PVerValue), VerValueSize) then
+        with PVerValue^ do
+        begin
+          Result := TSemanticVersion.Create(HiWord(dwFileVersionMS), HiWord(dwFileVersionLS), LoWord(dwFileVersionLS));
+        end;
+  finally
+    FreeMem(PVerInfo, VerInfoSize);
+  end;
 end;
 
 class function TVersion.GetInstance: TVersion;

Src/Docker/Docker.RunWithDocker.pas

@@ -2,23 +2,69 @@
 
 interface
 
+uses
+  UtilityFunctions, SysUtils;
+
 type
   TRunWithDocker = class
+  const
+    COMMAND_ERROR = 1;
+    COMMAND_SUCESS = 0;
   public
     procedure Execute;
   end;
 
 implementation
 
 uses
-  Vcl.Dialogs, Command.Runner, Constants.Version;
+  Vcl.Dialogs, Command.Runner, Constants.Version, System.Classes;
 
 { TRunWithDocker }
 
 procedure TRunWithDocker.Execute;
+var
+  LLine, LContainerVersion, LContainerName: string;
+  LReturn: TRunnerReturn;
+  LPAServerPort: Integer;
+  LHasPAServerPort: Boolean;
+  LPorts: TArray<string>;
 begin
-//  Runner('dir');
-  Runner('docker ps');
+  if not(ActiveProject.CurrentPlatform = 'Linux64') then
+    raise Exception.Create('Plataform not suported');
+
+  LContainerVersion := TVersion.GetInstance.Semantic + '-' + TVersion.GetInstance.Name;
+  LContainerName := ExtractFileName(ActiveProject.FileName).Split(['.'])[0] + '_' + LContainerVersion;
+
+  LReturn := Runner('docker start ' + LContainerName);
+
+  if LReturn.ExitCode = COMMAND_ERROR then
+    LReturn := Runner('docker run -tP --name ' + LContainerName + ' hashload/delphi-dev:' +
+      LContainerVersion);
+
+  if LReturn.ExitCode = COMMAND_SUCESS then
+  begin
+    LReturn := Runner('docker ps --filter name=teste_10.3.0-rio --format "{{.Ports}}"');
+
+    LPorts := LReturn.Output.Split([',']);
+    for LLine in LPorts do
+    begin
+      LHasPAServerPort := False;
+      if LLine.Contains('->64211/tcp') then
+      begin
+        LPAServerPort := LLine.Substring(LLine.IndexOf(':') + 1, LLine.IndexOf('->') - LLine.IndexOf(':') - 1)
+          .ToInteger;
+        LHasPAServerPort := True;
+        Break;
+      end;
+    end;
+
+    if not LHasPAServerPort then
+      raise Exception.Create('PAServer not found');
+  end;
+
+  if LReturn.ExitCode = COMMAND_ERROR then
+    raise Exception.Create(LReturn.Output);
+
   ShowMessage('Version ' + TVersion.GetInstance.Semantic);
 end;
 

Src/wrapper/Wrapper.DockerCompose.pas

@@ -27,9 +27,9 @@ function DockerComposePS(APath: string): Boolean;
 
 function DockerComposeUp(APath: string): Boolean;
 begin
-  Result := Runner(DOCKER_COMPOSE_UP_D, APath) = 0;
-  Sleep(100);
-  TCommandCmd.GetInstance.Run(DOCKER_COMPOSE_LOGS_F, APath);
+//  Result := Runner(DOCKER_COMPOSE_UP_D, APath) = 0;
+//  Sleep(100);                                     8
+//  TCommandCmd.GetInstance.Run(DOCKER_COMPOSE_LOGS_F, APath);
 end;
 
 function DockerComposeDown(APath: string): Boolean;