├── embdeploy.res
├── LICENSE
├── README.md
├── .gitignore
├── embdeploy.dpr
├── DeployChannels.pas
├── deployer.pas
└── embdeploy.dproj


/embdeploy.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vldgeorgiev/EmbDeploy/HEAD/embdeploy.res


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | The MIT License (MIT)
 2 | 
 3 | Copyright (c) 2013 Vladimir Georgiev
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy of
 6 | this software and associated documentation files (the "Software"), to deal in
 7 | the Software without restriction, including without limitation the rights to
 8 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
 9 | the Software, and to permit persons to whom the Software is furnished to do so,
10 | subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
17 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
18 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
19 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
20 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
21 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | EmbDeploy
 2 | =========
 3 | 
 4 | http://vldgeorgiev.wordpress.com/2014/04/29/automated-deployment-of-a-delphi-osx-project-from-the-command-line/
 5 | 
 6 | (c) Vladimir Georgiev, 2013
 7 | 
 8 | Automated deployer for Embarcadero RAD Studio projects.
 9 | Uses the paclient.exe tool from Embarcadero to automate deploying projects to remote hosts from the command line. By default it is possible to deploy a project to OSX or another host only from the Delphi IDE, and not from a command line or script. This makes it harder to write automated build scripts.
10 | The "embdeploy" tool simplifies this by parsing the project and issuing commands to paclient.exe to deploy the project files.
11 | 
12 | Embdeploy also has to option to execute custom commands on the remote host, e.g. "copy", "rm", "chmod", "codesign", etc. The command has to be enclosed in double quotes and can contain additional single quotes inside. The inside quotes might have to be escaped, depending on how you call Embdeploy.
13 | The command is executed from the folder above the remote project root. E.g. if the project is for OSX and called "myproject" it will be deployed to "<paclient profile folder>/myproject.app" and the command executed from the <paclient profile folder>.
14 | There is a parameter $PROOT that can be used inside commands and is replaced with the name of the project folder, which is "myproject.app" in the case above.
15 | 
16 | There is also an option to produce a ZIP archive of the deployment files. It is useful for creating a ZIP of an OSX project ".app" bundle without deploying it to OSX first. This makes it easier to use an automated build script and upload the files from Windows only without switching to OSX. It can only be used on non-sandboxed applications, because the codesigning is done on OSX only.
17 | 
18 | Vladimir Georgiev, 2013
19 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
 1 | # Uncomment these types if you want even more clean repository. But be careful.
 2 | # It can make harm to an existing project source. Read explanations below.
 3 | #
 4 | # Resource files are binaries containing manifest, project icon and version info.
 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
 6 | #*.res
 7 | #
 8 | # Type library file (binary). In old Delphi versions it should be stored.
 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
10 | #*.tlb
11 | #
12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
13 | # Uncomment this if you are not using diagrams or use newer Delphi version.
14 | #*.ddp
15 | #
16 | # Visual LiveBindings file. Added in Delphi XE2.
17 | # Uncomment this if you are not using LiveBindings Designer.
18 | #*.vlb
19 | #
20 | # Deployment Manager configuration file for your project. Added in Delphi XE2.
21 | # Uncomment this if it is not mobile development and you do not use remote debug feature.
22 | #*.deployproj
23 | # 
24 | # C++ object files produced when C/C++ Output file generation is configured.
25 | # Uncomment this if you are not using external objects (zlib library for example).
26 | #*.obj
27 | #
28 | 
29 | # Delphi compiler-generated binaries (safe to delete)
30 | *.exe
31 | *.dll
32 | *.bpl
33 | *.bpi
34 | *.dcp
35 | *.so
36 | *.apk
37 | *.drc
38 | *.map
39 | *.dres
40 | *.rsm
41 | *.tds
42 | *.dcu
43 | *.lib
44 | *.a
45 | *.o
46 | *.ocx
47 | 
48 | # Delphi autogenerated files (duplicated info)
49 | *.cfg
50 | *.hpp
51 | *Resource.rc
52 | 
53 | # Delphi local files (user-specific info)
54 | *.local
55 | *.identcache
56 | *.projdata
57 | *.tvsconfig
58 | *.dsk
59 | 
60 | # Delphi history and backups
61 | __history/
62 | __recovery/
63 | *.~*
64 | 
65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
66 | *.stat


--------------------------------------------------------------------------------
/embdeploy.dpr:
--------------------------------------------------------------------------------
  1 | {
  2 | Automated deployer for Embarcadero RAD Studio projects
  3 | Created by Vladimir Georgiev, 2013
  4 | 
  5 | MIT License (MIT)
  6 | }
  7 | 
  8 | program embdeploy;
  9 | 
 10 | {$APPTYPE CONSOLE}
 11 | 
 12 | {$R *.res}
 13 | 
 14 | uses  System.SysUtils,
 15 |   System.IOUtils,
 16 |   Deployer in 'Deployer.pas',
 17 |   DeployChannels in 'DeployChannels.pas';
 18 | 
 19 | const
 20 |   VERSION = '1.4';
 21 | 
 22 | var
 23 |   Deployer: TDeployer;
 24 |   Project, Param, DelphiVer: String;
 25 |   logExceptions: boolean;
 26 | 
 27 | // Display the parameters usage information
 28 | procedure ShowUsage;
 29 |   procedure ShowParam(aParam, aText: String);
 30 |   begin
 31 |     Writeln(Format('  %-16s %s', [aParam, aText]));
 32 |   end;
 33 | begin
 34 |   WriteLn('');
 35 |   Writeln('Usage: embdeploy [-delphiver "ver"] -deploy|(-cmd "command")|(-bundle "zip") [-platform|-profile|-config|-proot "name"] [-ignore] ProjectName');
 36 |   WriteLn('');
 37 |   ShowParam('ProjectName', 'Name (relative or absolute) of the project file (.dproj)');
 38 |   ShowParam('-delphiver "ver"',  'Delphi version to use the paclient from. It is the number from the HKCU/Software/Emb...');
 39 |   ShowParam('-deploy', 'Deploy the project to the remote profile');
 40 |   ShowParam('-platform "name"', 'Platform to deploy (Win32, OSX32, iOSDevice, etc). If not specified the default one from ' +
 41 |                                 'the project is used');
 42 |   ShowParam('-profile "name"',  'Name of the remote profile to use. If not specified the default one for the platform is used');
 43 |   ShowParam('-config "name"',   'Release or Debug configuration. If not specified the default one from the project file is used');
 44 |   ShowParam('-proot "name"',    'Remote project root folder. If not specified a default one is generated from the project name');
 45 |   ShowParam('-cmd "command"', 'Execute an arbitrary command line on the remote server. The command is anything that ' +
 46 |                               'can be executed from a terminal or command line prompt. It is executed from ' +
 47 |                               'above the remote project folder. The command can contain the $PROOT parameter, which is ' +
 48 |                               'replaced with the project root folder, e.g. $PROOT/Contents/... becomes myproject.app/Contents/...');
 49 |   ShowParam('-ignore', 'Ignore errors reported by paclient.exe and continue deploying');
 50 |   ShowParam('-bundle "zipname"', 'Produce a ZIP archive of the files to be deployed. Useful for making a ZIP of an OSX project APP bundle');
 51 |   ShowParam('-verbose', 'Produces detailed debugging messages');
 52 |   ShowParam('-registerPAClient','Uses the PAClient to deploy the project');
 53 |   ShowParam('-registerFolder "folder"', 'OSX only: Creates the APP folder structure on Windows.'+
 54 |                                       ' Useful for building OSX without the need to use the paclient on OSX');
 55 |   ShowParam('-binaryFolder "folder"','The folder for the binary files. If not provided, the default location is assumed');
 56 |   ShowParam('-logExceptions','Logs any exceptions and quits instead of raising them');
 57 |   ShowParam('-verInfoKeys','Specify a file with custom verInfoKeys. Useful to make a custom Info.plist file');
 58 | end;
 59 | 
 60 | // Check if the valid combination of parameters is passed
 61 | function ValidateParams: Boolean;
 62 | var
 63 |   tmpMessage: string;
 64 | begin
 65 |   Project := ParamStr(ParamCount);
 66 |   if not FileExists(Project) then
 67 |   begin
 68 |     tmpMessage:='Project "' + Project +'" not found';
 69 |     if logExceptions then
 70 |     begin
 71 |       Writeln(tmpMessage);
 72 |       Halt(1);
 73 |     end
 74 |     else
 75 |       raise Exception.Create(tmpMessage);
 76 |   end;
 77 | 
 78 |   Result := FindCmdLineSwitch('deploy') or FindCmdLineSwitch('cmd') or FindCmdLineSwitch('bundle');
 79 | end;
 80 | 
 81 | // Main application body
 82 | begin
 83 |   try
 84 |     ExitCode := 1; // Default to error and change to success later
 85 | 
 86 |     Writeln('Automated deployer for Embarcadero RAD Studio projects - Version ' + VERSION);
 87 |     Writeln('Written by Vladimir Georgiev, 2013');
 88 | 
 89 |     if FindCmdLineSwitch('?') or (ParamCount=0) then
 90 |     begin
 91 |       ShowUsage;
 92 |       Exit;
 93 |     end;
 94 | 
 95 |     logExceptions:=FindCmdLineSwitch('logExceptions');
 96 |     ValidateParams;
 97 | 
 98 |     if FindCmdLineSwitch('delphiver', Param) then
 99 |       DelphiVer := Param;
100 |     Deployer := TDeployer.Create(DelphiVer);
101 |     try
102 |       Deployer.LogExceptions:=logExceptions;
103 | 
104 |       if FindCmdLineSwitch('platform', Param) then
105 |         Deployer.Platform := Param;
106 |       if FindCmdLineSwitch('profile', Param) then
107 |         Deployer.RemoteProfile := Param;
108 |       if FindCmdLineSwitch('config', Param) then
109 |         Deployer.Config := Param;
110 |       if FindCmdLineSwitch('proot', Param) then
111 |         Deployer.ProjectRoot := Param;
112 | 
113 |       Deployer.IgnoreErrors := FindCmdLineSwitch('ignore');
114 | 
115 |       Deployer.Verbose:=FindCmdLineSwitch('verbose');
116 | 
117 |       Deployer.BinaryFolder:='';
118 |       if FindCmdLineSwitch('binaryFolder', Param) then
119 |         Deployer.BinaryFolder:=Param;
120 | 
121 |       if FindCmdLineSwitch('registerPAClient') then
122 |         Deployer.RegisterPACLient;
123 |       if FindCmdLineSwitch('registerFolder', Param) then
124 |         Deployer.RegisterFolder(Param, TPath.GetFileNameWithoutExtension(Project));
125 | 
126 |       if FindCmdLineSwitch('verInfoKeys', Param) then
127 |       begin
128 |         if TFile.Exists(Param) then
129 |           Deployer.CustomVerInfoKeys := Tfile.ReadAllText(Param)
130 |         else
131 |           Writeln('Ignoring verInfoKeys param because the file was not found');
132 |       end;
133 | 
134 |       // Deploy the project
135 |       if FindCmdLineSwitch('deploy') then
136 |       begin
137 |         Deployer.DeployProject(Project);
138 |         Writeln('Deployment complete');
139 |       end;
140 | 
141 |       // Execute a custom remote command
142 |       if FindCmdLineSwitch('cmd', Param) then
143 |       begin
144 |         Deployer.ExecuteCommand(Project, Param);
145 |         Writeln('Command executed');
146 |       end;
147 | 
148 |       // Make a ZIP bundle of the project deployment files
149 |       if FindCmdLineSwitch('bundle', Param) then
150 |       begin
151 |         Deployer.BundleProject(Project, Param);
152 |         Writeln('ZIP bundle complete');
153 |       end;
154 | 
155 |       ExitCode := 0; // Success
156 |     finally
157 |       Deployer.Free;
158 |     end;
159 |   except
160 |     on E: Exception do
161 |     begin
162 |       Writeln('Error deploying project:');
163 |       Writeln(E.Message);
164 |     end;
165 |   end;
166 | end.
167 | 


--------------------------------------------------------------------------------
/DeployChannels.pas:
--------------------------------------------------------------------------------
  1 | unit DeployChannels;
  2 | 
  3 | interface
  4 | 
  5 | type
  6 |   IDeployChannelBasic = interface
  7 |     ['{E9BA7BAA-8CAF-49F4-AEBD-C622C455458C}']
  8 |     procedure SetVerbose(const newVerbose: Boolean);
  9 |     function GetVerbose: boolean;
 10 |     procedure SetFileListName (const newFileList: string);
 11 |     function GetFileListName: string;
 12 |     procedure SetProjectRoot (const newProjectRoot: string);
 13 |     function GetProjectRoot: string;
 14 |     procedure SetChannelName (const newChannelName: string);
 15 |     function GetChannelName: string;
 16 |     procedure SetLogExceptions(const newLog: Boolean);
 17 |     function GetLogExceptions: boolean;
 18 | 
 19 |     property Verbose: boolean read GetVerbose write SetVerbose;
 20 |     property FileListName: string read GetFileListName write SetFileListName;
 21 |     property ProjectRoot: string read GetProjectRoot write SetProjectRoot;
 22 |     property ChannelName: string read GetChannelName write SetChannelName;
 23 |     property LogExceptions: boolean read GetLogExceptions write SetLogExceptions;
 24 |   end;
 25 | 
 26 |   IDeployChannel = interface (IDeployChannelBasic)
 27 |     ['{0AC82C72-6867-45DA-A37F-901C471D1A47}']
 28 |     procedure SetupChannel;
 29 |     function CleanChannel: boolean;
 30 |     function DeployFile(const localName: string; const remoteDir: string;
 31 |                         const operation: Integer; const remoteName: string):boolean;
 32 |     procedure CloseChannel;
 33 |   end;
 34 | 
 35 |   TDeployBaseChannel = class (TInterfacedObject, IDeployChannelBasic)
 36 |   private
 37 |     fVerbose: Boolean;
 38 |     fFileListName,
 39 |     fProjectRoot: string;
 40 |     fChannelName: string;
 41 |     fLogExceptions: Boolean;
 42 |   public
 43 |     procedure SetVerbose(const newVerbose: Boolean);
 44 |     function GetVerbose: boolean;
 45 |     procedure SetFileListName (const newFileList: string);
 46 |     function GetFileListName: string;
 47 |     procedure SetProjectRoot (const newProjectRoot: string);
 48 |     function GetProjectRoot: string;
 49 |     procedure SetChannelName (const newChannelName: string);
 50 |     function GetChannelName: string;
 51 |     procedure SetLogExceptions(const newLog: Boolean);
 52 |     function GetLogExceptions: boolean;
 53 |   end;
 54 | 
 55 |   TPAClientChannel = class(TDeployBaseChannel, IDeployChannel)
 56 |   private
 57 |     fRemoteProfile,
 58 |     fPAClientPath,
 59 |     fDelphiVersion,
 60 |     fPlatfrom: string;
 61 |     function CallPAClient(const aCommand: string): Boolean;
 62 |   public
 63 |     constructor Create (const newRemoteProfile: string; const newPAClientPAth: string;
 64 |                         const newDelphiVersion: string; const newPlatform: string);
 65 |     procedure SetupChannel;
 66 |     function CleanChannel:boolean;
 67 |     function DeployFile(const localName: string; const remoteDir: string;
 68 |                         const operation: Integer; const remoteName: string):boolean;
 69 |     procedure CloseChannel;
 70 |   end;
 71 | 
 72 |   TFolderChannel = class(TDeployBaseChannel, IDeployChannel)
 73 |   private
 74 |     fFolder: string;
 75 |     fProjectName: string;
 76 |     fBaseProjectName: string;
 77 |   public
 78 |     constructor Create (const newFolder: string; const ProjectName: string;
 79 |                           const BaseProjectName: string);
 80 |     procedure SetupChannel;
 81 |     function CleanChannel:boolean;
 82 |     function DeployFile(const localName: string; const remoteDir: string;
 83 |                         const operation: Integer; const remoteName: string):boolean;
 84 |     procedure CloseChannel;
 85 |   end;
 86 | 
 87 | implementation
 88 | 
 89 | uses
 90 | 	System.SysUtils, System.Win.Registry, Winapi.Windows, System.Classes, System.IOUtils;
 91 | 
 92 | const
 93 |   // Paclient commands and the parameters to be substituted
 94 |   PACLIENT_CLEAN = '--Clean="%s,%s"';     //0 - project root name, 1 - path to a temp file with containing a list of files
 95 |   PACLIENT_PUT   = '--put="%s,%s,%d,%s"'; //0 - local name, 1 - remote path, 2 - operation, 3 - remote name
 96 | 
 97 | { TPAClientChannel }
 98 | 
 99 | // Execute the PaClient.exe app and pass it the command and profile
100 | // Filter some of the paclient output by capturing the out and err pipes
101 | function TPAClientChannel.CallPAClient(const aCommand: string): Boolean;
102 | var
103 |   Security           : TSecurityAttributes;
104 |   PipeRead, PipeWrite: THandle;
105 |   BytesInPipe        : Cardinal;
106 |   Buffer             : array[0..2000] of AnsiChar;
107 |   Output             : TStringList;
108 |   StartInfo          : TStartupInfo;
109 |   ProcInfo           : TProcessInformation;
110 |   I                  : Integer;
111 |   ExCode             : Cardinal;
112 |   fullProcessPath    : string;
113 | begin
114 |   Result := false;
115 | 
116 |   // Create a pipe to capture the output
117 |   Security.nLength              := SizeOf(TSecurityAttributes);
118 |   Security.bInheritHandle       := true;
119 |   Security.lpSecurityDescriptor := nil;
120 |   if not CreatePipe(PipeRead, PipeWrite, @Security, 0) then
121 |     if fLogExceptions then
122 |     begin
123 |       Writeln('OS Raised an exception.');
124 |       Halt(1);
125 |     end
126 |     else
127 |       RaiseLastOSError;
128 | 
129 |   try
130 |     ZeroMemory(@StartInfo, SizeOf(StartInfo));
131 |     ZeroMemory(@ProcInfo, SizeOf(ProcInfo));
132 |     StartInfo.cb          := SizeOf(StartInfo);
133 |     StartInfo.hStdOutput  := PipeWrite;
134 |     StartInfo.hStdError   := PipeWrite;
135 |     StartInfo.dwFlags     := STARTF_USESTDHANDLES;  // use output redirect pipe
136 | 
137 |     fullProcessPath:='"'+fPaclientPath+'"' + ' ' + aCommand + ' "' + fRemoteProfile+'"';
138 |     if fVerbose then
139 |       Writeln('Full Command Line: '+fullProcessPath);
140 | 
141 |     if CreateProcess(nil, PChar(fullProcessPath), nil, nil, true,
142 |                           CREATE_NO_WINDOW, nil, nil, StartInfo, ProcInfo) then
143 |       try
144 |         WaitForSingleObject(ProcInfo.hProcess, Infinite);
145 |         // The process has finished, so close the write pipe and read the output
146 |         CloseHandle(PipeWrite);
147 |         ZeroMemory(@Buffer, Length(Buffer));
148 |         ReadFile(PipeRead, Buffer[0], Length(Buffer), BytesInPipe, nil);
149 |         // Parse the output, delete the first 4 lines, that are not very useful, and display the rest indented
150 |         Output := TStringList.Create;
151 |         try
152 |           Output.Text:=String(Buffer);
153 |           Output.Delete(0); Output.Delete(0); Output.Delete(0); Output.Delete(0);
154 |           for I := 0 to Output.Count - 1 do
155 |             WriteLn('  ' + Output[I]);
156 |         finally
157 |           Output.Free;
158 |         end;
159 | 
160 |         // Check the exit code of paclient.exe / 0 is success
161 |         Result := GetExitCodeProcess(ProcInfo.hProcess, ExCode) and (ExCode = 0);
162 |       finally
163 |         CloseHandle(ProcInfo.hProcess);
164 |         CloseHandle(ProcInfo.hThread);
165 |       end;
166 |   finally
167 |     CloseHandle(PipeRead);
168 |     {$IFNDEF  DEBUG}  // The PipeWrite handle is closed twice,
169 |                       //which is acceptable in Release,
170 |                       //but raises exceptions when running with the debugger
171 |     CloseHandle(PipeWrite);
172 |     {$ENDIF}
173 |   end;
174 | end;
175 | 
176 | function TPAClientChannel.CleanChannel: boolean;
177 | begin
178 |   result:=CallPaclient(Format(PACLIENT_CLEAN, [fProjectRoot, fFileListName]));
179 | end;
180 | 
181 | procedure TPAClientChannel.CloseChannel;
182 | begin
183 | 
184 | end;
185 | 
186 | constructor TPAClientChannel.Create(const newRemoteProfile, newPAClientPAth,
187 |   newDelphiVersion, newPlatform: string);
188 | begin
189 |   inherited Create;
190 |   fRemoteProfile:=newRemoteProfile;
191 |   fPAClientPath:=newPAClientPAth;
192 |   fDelphiVersion:=newDelphiVersion;
193 |   fPlatfrom:=newPlatform;
194 | end;
195 | 
196 | function TPAClientChannel.DeployFile(const localName, remoteDir: string;
197 |   const operation: Integer; const remoteName: string): boolean;
198 | begin
199 |   result:=CallPaclient(Format(PACLIENT_PUT, [localName, remoteDir,
200 |                               operation, remoteName]));
201 | end;
202 | 
203 | 
204 | // Check if there is a remote profile and try to find one. Must be after the project is parsed
205 | procedure TPAClientChannel.SetupChannel;
206 | var
207 |   Reg: TRegistry;
208 |   regKey: string;
209 | begin
210 |   if fRemoteProfile.IsEmpty then
211 |   begin
212 |     Reg:=TRegistry.Create;
213 |     try
214 |       Reg.RootKey := HKEY_CURRENT_USER;
215 |       regKey:='Software\Embarcadero\BDS\' + fDelphiVersion + '\RemoteProfiles';
216 |       if fVerbose then
217 |         Writeln('Looking at Registry Key: '+regKey);
218 |       if Reg.OpenKey(regKey, false) then
219 |         if Reg.ValueExists('Default_'+fPlatfrom) then
220 |           fRemoteProfile := Reg.ReadString('Default_' + fPlatfrom);
221 |         if fRemoteProfile.IsEmpty then
222 |           if fLogExceptions then
223 |           begin
224 |             Writeln('Default remote profile not found. Please specify a profile');
225 |             Halt(1);
226 |           end
227 |           else
228 |             raise Exception.Create('Default remote profile not found. Please specify a profile');
229 |     finally
230 |       Reg.Free;
231 |     end;
232 |   end;
233 | 
234 |   Writeln('Using default profile: ' + fRemoteProfile);
235 | end;
236 | 
237 | { TFolderChannel }
238 | 
239 | function TFolderChannel.CleanChannel:boolean;
240 | begin
241 |   Result:=true;
242 | end;
243 | 
244 | procedure TFolderChannel.CloseChannel;
245 | begin
246 | 
247 | end;
248 | 
249 | constructor TFolderChannel.Create(const newFolder: string; const ProjectName: string;
250 |                                       const BaseProjectName: string);
251 | begin
252 |   inherited Create;
253 |   fFolder:=newFolder;
254 |   fProjectName:=ProjectName;
255 |   fBaseProjectName:=BaseProjectName;
256 | end;
257 | 
258 | function TFolderChannel.DeployFile(const localName, remoteDir: string;
259 |   const operation: Integer; const remoteName: string): boolean;
260 | var
261 |   Source,
262 |   Target: TFileStream;
263 |   targetDir,
264 |   targetPath: string;
265 |   fileAttributes: TFileAttributes;
266 | begin
267 |   result:=True;
268 |   Source:= TFileStream.Create(localName, fmOpenRead);
269 |  try
270 |    if not DirectoryExists(remoteDir) then
271 |    begin
272 |     targetDir:=TPath.Combine(fFolder,remoteDir);
273 |     TDirectory.CreateDirectory(targetDir);
274 |     fileAttributes:=TDirectory.GetAttributes(targetDir);
275 |     Exclude(fileAttributes, TFileAttribute.faReadOnly);
276 |     TDirectory.SetAttributes(targetDir,fileAttributes);
277 |    end;
278 | 
279 |    targetPath:=TPath.Combine(
280 |                 TPath.Combine(fFolder, remoteDir), remoteName);
281 |    Target := TFileStream.Create(targetPath, fmOpenWrite or fmCreate );
282 |    try
283 |      Target.CopyFrom(Source, Source.Size ) ;
284 |    finally
285 |      Target.Free;
286 |    end;
287 | 
288 |    fileAttributes:=TFile.GetAttributes(targetPath);
289 |    Exclude(fileAttributes, TFileAttribute.faReadOnly);
290 |    TFile.SetAttributes(targetPath, fileAttributes);
291 | 
292 |    if remoteName=fBaseProjectName then
293 |    begin
294 |      Include(fileAttributes, TFileAttribute.faArchive);
295 |      TFile.SetAttributes(targetPath, fileAttributes);
296 |    end;
297 | 
298 |  finally
299 |    Source.Free;
300 |  end;
301 | 
302 | end;
303 | 
304 | procedure TFolderChannel.SetupChannel;
305 |   procedure DeleteDirectory(const Name: string);
306 |   var
307 |     F: TSearchRec;
308 |     str: string;
309 |   begin
310 |     if FindFirst(Name + '\*', faAnyFile, F) = 0 then begin
311 |       try
312 |         repeat
313 |           if (F.Attr and faDirectory <> 0) then
314 |           begin
315 |             if (F.Name <> '.') and (F.Name <> '..') then
316 |             begin
317 |               DeleteDirectory(Name + '\' + F.Name);
318 |             end;
319 |           end
320 |           else
321 |           begin
322 |             str:=Name + '\' + F.Name;
323 |             DeleteFile(PWideChar(str));
324 |           end;
325 |         until FindNext(F) <> 0;
326 |       finally
327 |         FindClose(F.FindHandle);
328 |       end;
329 |       RemoveDir(Name);
330 |     end;
331 |   end;
332 | 
333 | begin
334 |   DeleteDirectory(TPath.Combine(fFolder, fProjectName));
335 | end;
336 | 
337 | { TDeployBaseChannel }
338 | 
339 | function TDeployBaseChannel.GetChannelName: string;
340 | begin
341 |   result:=fChannelName;
342 | end;
343 | 
344 | function TDeployBaseChannel.GetFileListName: string;
345 | begin
346 |   result:=fFileListName;
347 | end;
348 | 
349 | function TDeployBaseChannel.GetLogExceptions: boolean;
350 | begin
351 |   result:=fLogExceptions;
352 | end;
353 | 
354 | function TDeployBaseChannel.GetProjectRoot: string;
355 | begin
356 |   result:=fProjectRoot;
357 | end;
358 | 
359 | function TDeployBaseChannel.GetVerbose: boolean;
360 | begin
361 |   result:=fVerbose;
362 | end;
363 | 
364 | procedure TDeployBaseChannel.SetChannelName(const newChannelName: string);
365 | begin
366 |   fChannelName:=newChannelName;
367 | end;
368 | 
369 | procedure TDeployBaseChannel.SetFileListName(const newFileList: string);
370 | begin
371 |   fFileListName:=newFileList;
372 | end;
373 | 
374 | procedure TDeployBaseChannel.SetLogExceptions(const newLog: Boolean);
375 | begin
376 |   fLogExceptions:=newLog;
377 | end;
378 | 
379 | procedure TDeployBaseChannel.SetProjectRoot(const newProjectRoot: string);
380 | begin
381 |   fProjectRoot:=newProjectRoot;
382 | end;
383 | 
384 | procedure TDeployBaseChannel.SetVerbose(const newVerbose: Boolean);
385 | begin
386 |   fVerbose:=newVerbose;
387 | end;
388 | 
389 | end.
390 | 


--------------------------------------------------------------------------------
/deployer.pas:
--------------------------------------------------------------------------------
  1 | unit Deployer;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Winapi.ActiveX, Winapi.MsXML,
  7 |   System.Zip, System.IOUtils,
  8 |   System.Sysutils, System.Classes, System.Win.Registry, Winapi.Windows,
  9 |   DeployChannels, System.Generics.Collections, Vcl.Dialogs;
 10 | 
 11 | type
 12 |   TDeployClass = record
 13 |     Required  : Boolean;
 14 |     Name      : String;
 15 |     RemoteDir : String;
 16 |     Operation : Integer;
 17 |     Extensions: String;           // What is it used for?
 18 |   end;
 19 | 
 20 |   TDeployFile = record
 21 |     Enabled      : Boolean;
 22 |     ClassName    : String;
 23 |     LocalName    : String;
 24 |     RemoteName   : String;
 25 |     RemoteDir    : String;
 26 |     Operation    : Integer;
 27 |     Configuration: String;    // Release/Debug/Base/Others...
 28 |   end;
 29 | 
 30 |   TEntitlementsRecord= record
 31 |     ReadOnlyMusic: Boolean; //<EL_ReadOnlyMusic>
 32 |     ///// The IDE doesn't create key for this entry
 33 |     ///// <EL_ReadWriteMusic>
 34 |     ReadWriteMusic: Boolean;
 35 |     ////
 36 | 
 37 |     ReadOnlyPictures: Boolean; //<EL_ReadOnlyPictures>
 38 |     ////// There is a bug in the creation of the file by the IDE
 39 |     ReadWritePictures: Boolean; //<EL_ReadWritePictures>
 40 |     /////  The key com.apple.security.assets.pictures.read-only is
 41 |     /////  generated twice.
 42 |     ///// The com.apple.security.assets.pictures.read-write is missing
 43 | 
 44 |     IncomingNetwork: Boolean; //<EL_IncomingNetwork>
 45 |     OutgoingNetwork: Boolean; //<EL_OutgoingNetwork>
 46 |     Location: Boolean; //<EL_Location>true
 47 |     USBDevice: Boolean; //<EL_USBDevices>
 48 |     ReadWriteCalendars: Boolean; //<EL_ReadWriteCalendars>
 49 |     ReadWriteFileDialog: Boolean; //<EL_ReadWriteFileDialog>
 50 |     ReadOnlyFileDialog: Boolean; //<EL_ReadOnlyFileDialog>
 51 |     ReadWriteDownloads: Boolean; //<EL_ReadWriteDownloads>
 52 |     ReadWriteMovies: Boolean; //<EL_ReadWriteMovies>
 53 |     ReadOnlyMovies: Boolean; //<EL_ReadOnlyMovies>
 54 |     RecordingMicrophone: Boolean; //<EL_RecordingMicrophone>
 55 | 
 56 |     Printing: Boolean; //<EL_Printing>
 57 |     CaptureCamera: Boolean; //<EL_CaptureCamera>
 58 |     ReadWriteAddressBook: Boolean; //<EL_ReadWriteAddressBook>
 59 |     ChildProcessInheritance: Boolean; //<EL_ChildProcessInheritance>
 60 |   end;
 61 | 
 62 |   TDeployer = class
 63 |   private
 64 |     fProjectParsed:Boolean;
 65 |     fDelphiPath   : String;
 66 |     fDelphiVersion: String;  // The version number - 9.0, 10.0, 11.0, etc
 67 |     fConfig       : String;
 68 |     fProjectName  : String;
 69 |     fPlatform     : String;
 70 |     fProjectRoot  : String;
 71 |     fRemoteProfile: String;
 72 |     fDeployClasses: array of TDeployClass;
 73 |     fDeployFiles  : array of TDeployFile;
 74 |     fIgnoreErrors : Boolean;
 75 |     fPaclientPath : String;
 76 |     fEntitlements : TEntitlementsRecord;
 77 |     fVerInfoKeys  : TStringList;
 78 |     fCustomVerInfoKeys:String;
 79 |     fVerbose      : Boolean;
 80 |     fDeployChannels: TList<IDeployChannel>;
 81 |     fBinaryFolder : string;
 82 |     fLogExceptions: Boolean;
 83 |     fDebugExcludeFiles: TList<string>; //Keeps a list of extensions to be excluded depending on
 84 |                                                //the configuration. Eg. .rsm file is deployed in Debug
 85 |                                                //but not in Release configuration. This allows for use of
 86 |                                                //Debug builds to Release deployments
 87 |     fReleaseExcludeFiles: TList<string>;
 88 |     procedure GetEmbarcaderoPaths;
 89 |     procedure ParseProject(const aProjectPath: String);
 90 |     procedure CreateDeploymentFile(const fullPath: string);
 91 |     procedure CreateEntitlementsFile(const fullPath: string);
 92 |     procedure CreateInfoPlistFile(const fullPath: string);
 93 |     procedure SetupChannels;
 94 |     function CreateVerInfoKeys():TStringList;
 95 |   public
 96 |     constructor Create(const aDelphiVersion: String);
 97 |     destructor Destroy; override;
 98 |     procedure BundleProject(const aProjectPath, aZIPName: String);
 99 |     procedure DeployProject(const aProjectPath: String);
100 |     procedure ExecuteCommand(const aProjectPath, aCommand: String);
101 |     procedure RegisterPACLient;
102 |     procedure RegisterFolder(const regPath: string; const project: string);
103 | 
104 |     property Config       : String  read fConfig        write fConfig;
105 |     property IgnoreErrors : Boolean read fIgnoreErrors  write fIgnoreErrors;
106 |     property Platform     : String  read fPlatform      write fPlatform;
107 |     property ProjectRoot  : String  read fProjectRoot   write fProjectRoot;
108 |     property RemoteProfile: String  read fRemoteProfile write fRemoteProfile;
109 |     property Verbose      : boolean read fVerbose       write fVerbose;
110 |     property BinaryFolder : string  read fBinaryFolder  write fBinaryFolder;
111 |     property LogExceptions: Boolean read fLogExceptions write fLogExceptions;
112 |     property CustomVerInfoKeys:String read fCustomVerInfoKeys write fCustomVerInfoKeys;
113 |   end;
114 | 
115 | 
116 | implementation
117 | 
118 | uses
119 | 	System.StrUtils;
120 | 
121 | // Try to find the last version of Delphi installed to get the Redist folder and Paclient path
122 | procedure TDeployer.GetEmbarcaderoPaths;
123 | var
124 |   Reg: TRegistry;
125 |   Versions: TStringList;
126 | begin
127 |   Reg := TRegistry.Create;
128 |   try
129 |     Reg.RootKey := HKEY_CURRENT_USER;
130 | 
131 |     // If no Delphi version is supplied try to get the latest one from the registry
132 |     if fDelphiVersion.IsEmpty then
133 |     begin
134 |       Versions := TStringList.Create;
135 |       try
136 |         if Reg.OpenKey('SOFTWARE\Embarcadero\BDS', false) then
137 |         begin
138 |           Reg.GetKeyNames(Versions);
139 |           Reg.CloseKey;
140 |           if (Versions.Count > 0) then
141 |             fDelphiVersion := Versions[Versions.Count - 1];
142 |         end;
143 |       finally
144 |         Versions.Free;
145 |       end;
146 |     end;
147 | 
148 |     if Reg.OpenKey('SOFTWARE\Embarcadero\BDS\' + fDelphiVersion, false) then
149 |       if Reg.ValueExists('RootDir') then
150 |         fDelphiPath := Reg.ReadString('RootDir');
151 |     if fDelphiPath.IsEmpty then
152 |     if fLogExceptions then
153 |     begin
154 |       Writeln('The Delphi install path could not be found.');
155 |       Halt(1);
156 |     end
157 |     else
158 |       raise Exception.Create('The Delphi install path could not be found.');
159 | 
160 |     fPaclientPath := IncludeTrailingPathDelimiter(fDelphiPath) + 'bin\paclient.exe'
161 |   finally
162 |     Reg.Free;
163 |   end;
164 | end;
165 | 
166 | function TDeployer.CreateVerInfoKeys():TStringList;
167 | begin
168 |   Result := TStringList.Create;
169 |   Result.Delimiter := ';';
170 |   Result.StrictDelimiter := true;
171 | end;
172 | 
173 | constructor TDeployer.Create(const aDelphiVersion: String);
174 | begin
175 |   inherited Create;
176 |   fDeployChannels:=TList<IDeployChannel>.Create;
177 |   fDebugExcludeFiles:=TList<string>.Create;
178 |   fReleaseExcludeFiles:=TList<string>.Create;
179 |   fVerInfoKeys := CreateVerInfoKeys;
180 |   fReleaseExcludeFiles.Add('.rsm');
181 |   fDelphiVersion := aDelphiVersion;
182 |   GetEmbarcaderoPaths;
183 | end;
184 | 
185 | // Creates files required for the deployment package
186 | // Currently it creates the .entitlements and .info.plist files for OSX32
187 | procedure TDeployer.CreateDeploymentFile(const fullPath: string);
188 | var
189 |   ext: string;
190 | begin
191 |   ext:=ExtractFileExt(fullPath);
192 |   if (ext='.entitlements') and (fPlatform='OSX32') then
193 |     CreateEntitlementsFile(fullPath);
194 |   if (ext='.plist') and (fPlatform='OSX32') then
195 |     CreateInfoPlistFile(fullPath);
196 | end;
197 | 
198 | procedure TDeployer.CreateEntitlementsFile(const fullPath: string);
199 | 
200 |   function BooleanToString(const value: boolean): string;
201 |   begin
202 |     if value then
203 |       result:='true'
204 |     else
205 |       result:='false';
206 |   end;
207 | 
208 | var
209 |   xmlFile: TStringList;
210 | begin
211 |   xmlFile:=TStringList.Create;
212 |   try
213 |     xmlFile.Add('<?xml version="1.0" encoding="UTF-8"?>');
214 |     xmlFile.Add('<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">');
215 |     xmlFile.Add('<plist version="1.0">');
216 |     xmlFile.Add('<dict>');
217 | 
218 |     xmlFile.Add('   <key>com.apple.security.assets.music.read-only</key>');
219 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadOnlyMusic)+'/>');
220 |     xmlFile.Add('   <key>com.apple.security.assets.music.read-write</key>');
221 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteMusic)+'/>');
222 |     xmlFile.Add('   <key>com.apple.security.assets.pictures.read-only</key>');
223 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadOnlyPictures)+'/>');
224 |     xmlFile.Add('   <key>com.apple.security.assets.pictures.read-write</key>');
225 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWritePictures)+'/>');
226 |     xmlFile.Add('   <key>com.apple.security.network.client</key>');
227 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.IncomingNetwork)+'/>');
228 |     xmlFile.Add('   <key>com.apple.security.network.server</key>');
229 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.OutgoingNetwork)+'/>');
230 |     xmlFile.Add('   <key>com.apple.security.personal-information.location</key>');
231 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.Location)+'/>');
232 |     xmlFile.Add('   <key>com.apple.security.device.usb</key>');
233 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.USBDevice)+'/>');
234 |     xmlFile.Add('   <key>com.apple.security.personal-information.calendars</key>');
235 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteCalendars)+'/>');
236 |     xmlFile.Add('   <key>com.apple.security.files.user-selected.read-write</key>');
237 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteFileDialog)+'/>');
238 |     xmlFile.Add('   <key>com.apple.security.files.user-selected.read-only</key>');
239 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadOnlyFileDialog)+'/>');
240 |     xmlFile.Add('   <key>com.apple.security.files.downloads.read-write</key>');
241 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteDownloads)+'/>');
242 |     xmlFile.Add('   <key>com.apple.security.assets.movies.read-write</key>');
243 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteMovies)+'/>');
244 |     xmlFile.Add('   <key>com.apple.security.assets.movies.read-only</key>');
245 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadOnlyMovies)+'/>');
246 |     xmlFile.Add('   <key>com.apple.security.device.microphone</key>');
247 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.RecordingMicrophone)+'/>');
248 |     xmlFile.Add('   <key>com.apple.security.print</key>');
249 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.Printing)+'/>');
250 |     xmlFile.Add('   <key>com.apple.security.device.camera</key>');
251 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.CaptureCamera)+'/>');
252 |     xmlFile.Add('   <key>com.apple.security.personal-information.addressbook</key>');
253 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ReadWriteAddressBook)+'/>');
254 |     xmlFile.Add('   <key>com.apple.security.inherit</key>');
255 |     xmlFile.Add('   <'+BooleanToString(fEntitlements.ChildProcessInheritance)+'/>');
256 | 
257 |     XmlFile.Add('</dict>');
258 |     xmlFile.Add('</plist>');
259 | 
260 |     xmlFile.SaveToFile(fullPath);
261 |   finally
262 |     xmlFile.Free;
263 |   end;
264 | end;
265 | 
266 | procedure TDeployer.CreateInfoPlistFile(const fullPath: string);
267 | var
268 |   xmlFile:TStringList;
269 |   i: Integer;
270 | begin
271 |   xmlFile:=TStringList.Create;
272 |   try
273 |     xmlFile.Add('<?xml version="1.0" encoding="UTF-8"?>');
274 |     xmlFile.Add('<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">');
275 |     xmlFile.Add('<plist version="1.0">');
276 |     xmlFile.Add('<dict>');
277 | 
278 |     for i := 0 to fVerInfoKeys.Count-1 do
279 |     begin
280 |       xmlFile.Add('   <key>'+fVerInfoKeys[i].Split(['='])[0]+'</key>');
281 |       xmlFile.Add('   <string>'+fVerInfoKeys[i].Split(['='])[1]+'</string>');
282 |     end;
283 | 
284 |     xmlFile.Add('   <key>CFBundleIconFile</key>');
285 |     xmlFile.Add('   <string>'+fProjectName+'.icns</string>');
286 | 
287 |     XmlFile.Add('</dict>');
288 |     xmlFile.Add('</plist>');
289 | 
290 |     xmlFile.SaveToFile(fullPath);
291 |   finally
292 |     xmlFile.Free;
293 |   end;
294 | end;
295 | 
296 | // Produce a ZIP archive of the files to be deployed (useful to produce archives of the OSX .APP bundles on Win)
297 | procedure TDeployer.BundleProject(const aProjectPath, aZIPName: String);
298 | var
299 |   Zip: TZipFile;
300 |   I: Integer;
301 |   addedFiles:TList<String>;
302 | begin
303 |   ParseProject(aProjectPath);
304 | 
305 |   WriteLn(Format('Archiving %d files from project %s, config %s', [length(fDeployFiles), aProjectPath, fConfig]));
306 | 
307 |   // Create the folders in the zip name, if any
308 |   ForceDirectories(ExtractFilePath(ExpandFileName(aZIPName)));
309 | 
310 |   Zip := TZipFile.Create;
311 |   try
312 |     if FileExists(aZIPName) then
313 |       TFile.Delete(aZIPName);
314 |     Zip.Open(aZIPName, zmWrite);
315 | 
316 |     // Add each file to the archive with its path. The \ is replaced with / to make the archive work in OSX
317 |     addedFiles := TList<String>.Create;
318 |     try
319 |       for I := 0 to Length(fDeployFiles) - 1 do
320 |       begin
321 |         if not addedFiles.Contains(fDeployFiles[I].LocalName) then
322 |         begin
323 |           Zip.Add(fDeployFiles[I].LocalName, fDeployFiles[I].RemoteDir.Replace('\', '/') + fDeployFiles[I].RemoteName.Replace('\', '/'));
324 |           addedFiles.Add(fDeployFiles[I].LocalName);
325 |         end;
326 |       end;
327 |     finally
328 |       addedFiles.Free;
329 |     end;
330 |   finally
331 |     Zip.Free;
332 |   end;
333 | end;
334 | 
335 | // Deploy the project to the remote server
336 | procedure TDeployer.DeployProject(const aProjectPath: String);
337 | var
338 |   S, TempFile: String;
339 |   I: Integer;
340 |   tmpChannel: IDeployChannel;
341 | begin
342 |   ParseProject(aProjectPath);
343 | 
344 |   SetupChannels;
345 | 
346 |   WriteLn(Format('Deploying %d files from project %s, config %s', [length(fDeployFiles), aProjectPath, fConfig]));
347 | 
348 |   // Build a temp file list to clean the remote project folder
349 |   TempFile := TPath.GetTempFileName;
350 |   for I := 0 to Length(fDeployFiles) - 1 do
351 |     S := S + fDeployFiles[I].RemoteDir + fDeployFiles[I].RemoteName + sLineBreak;
352 |   TFile.WriteAllText(TempFile, S);
353 | 
354 |   if fVerbose then
355 |     Writeln('TempFile: '+TempFile);
356 | 
357 |   for tmpChannel in fDeployChannels do
358 |     tmpChannel.FileListName:=TempFile;
359 | 
360 |   //Clean up deploy channels
361 |   // Execute the clean command and delete the temp file
362 |   Writeln('Cleaning remote project folder');
363 | 
364 |   for tmpChannel in fDeployChannels do
365 |   begin
366 |     if (not tmpChannel.CleanChannel) and (not fIgnoreErrors) then
367 |       if fLogExceptions then
368 |       begin
369 |         Writeln('Error in '+tmpChannel.ChannelName+'. Deployment stopped.');
370 |         Halt(1);
371 |       end
372 |       else
373 |         raise Exception.Create('Error in '+tmpChannel.ChannelName+'. Deployment stopped.');
374 |   end;
375 |   TFile.Delete(TempFile);
376 | 
377 | 
378 |   // Deploy the files
379 |   for I := 0 to Length(fDeployFiles) - 1 do
380 |   begin
381 |     Writeln('Deploying file: ' + fDeployFiles[I].LocalName);
382 | 
383 |     if not TFile.Exists(fDeployFiles[I].LocalName) then
384 |       CreateDeploymentFile(fDeployFiles[I].LocalName);
385 | 
386 |     for tmpChannel in fDeployChannels do
387 |     begin
388 |       if (not tmpChannel.DeployFile(fDeployFiles[I].LocalName, fDeployFiles[I].RemoteDir,
389 |               fDeployFiles[I].Operation, fDeployFiles[I].RemoteName)) and (not fIgnoreErrors) then
390 |         if fLogExceptions then
391 |         begin
392 |           Writeln('Error in '+tmpChannel.ChannelName+'. Deployment stopped.');
393 |           Halt(1);
394 |         end
395 |         else
396 |           raise Exception.Create('Error in '+tmpChannel.ChannelName+'. Deployment stopped.');
397 |     end;
398 |   end;
399 | 
400 |   for tmpChannel in fDeployChannels do
401 |     tmpChannel.CloseChannel;
402 | end;
403 | 
404 | destructor TDeployer.Destroy;
405 | begin
406 |   fDeployChannels.Free;
407 |   fDebugExcludeFiles.Free;
408 |   fReleaseExcludeFiles.Free;
409 |   fVerInfoKeys.Free;
410 |   inherited;
411 | end;
412 | 
413 | // Parse the project file to find the list of files to be deployed
414 | procedure TDeployer.ParseProject(const aProjectPath: String);
415 | var
416 |   XmlDoc: IXMLDOMDocument;
417 |   Node  : IXMLDOMNode;
418 |   Nodes : IXMLDOMNodeList;
419 |   I, J, Count : Integer;
420 |   entitlementPath: string;
421 |   tmpDeployFile: TDeployFile;
422 |   currExcludeList: TList<string>;
423 |   tmpstr: string;
424 |   verInfoKeys:TStringList;
425 | begin
426 |   //Avoiding rework and some bugs with bundle option
427 |   if fProjectParsed then
428 |     Exit;
429 | 
430 |   CoInitialize(nil);
431 |   XmlDoc := CoDOMDocument.Create;
432 | 
433 |   try
434 |     // Set the project name the same as the file
435 |     fProjectName := ChangeFileExt(ExtractFileName(aProjectPath), '');
436 | 
437 |     // Load the project file
438 |     if not XmlDoc.load(aProjectPath) then
439 |       if fLogExceptions then
440 |       begin
441 |         Writeln('Project file could not be loaded');
442 |         Halt(1);
443 |       end
444 |       else
445 |         raise Exception.Create('Project file could not be loaded');
446 | 
447 |     // Read the default platform if not set with a parameter (OSX32, Win32/64, etc)
448 |     if fPlatform.IsEmpty then
449 |     begin
450 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/Platform/node()');
451 |       if not Assigned(Node) then
452 |         if fLogExceptions then
453 |         begin
454 |           Writeln('Default platform not found in the project. Please specify a platform.');
455 |           Halt(1);
456 |         end
457 |         else
458 |           raise Exception.Create('Default platform not found in the project. Please specify a platform.');
459 |       fPlatform := Node.nodeValue;
460 |     end;
461 | 
462 |     // Read the default config if not set with a parameter (Release or Debug or another)
463 |     if fConfig.IsEmpty then
464 |     begin
465 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/Config/node()');
466 |       if not Assigned(Node) then
467 |         if fLogExceptions then
468 |         begin
469 |           Writeln('Default build config(Release/Debug/...) not found in the project. Please specify a config.');
470 |           Halt(1);
471 |         end
472 |         else
473 |           raise Exception.Create('Default build config(Release/Debug/...) not found in the project. Please specify a config.');
474 |       fConfig := Node.nodeValue;
475 |     end;
476 | 
477 |     // Read the ProjectRoot for building the deploy file names
478 |     if fProjectRoot.IsEmpty then
479 |     begin
480 |       Node := XmlDoc.selectSingleNode('//Deployment/ProjectRoot[@Platform="' + fPlatform + '"]');
481 |       if not Assigned(Node) then
482 |         if fLogExceptions then
483 |         begin
484 |           Writeln('ProjectRoot not found in the project.');
485 |           Halt(1);
486 |         end
487 |         else
488 |           raise Exception.Create('ProjectRoot not found in the project.');
489 |       fProjectRoot := Node.attributes.getNamedItem('Name').nodeValue;
490 |       fProjectRoot := fProjectRoot.Replace('$(PROJECTNAME)', fProjectName);
491 |     end;
492 | 
493 |     //Get the .entitlements details for OSX
494 |     if fPlatform='OSX32' then
495 |     begin
496 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadOnlyMusic/node()');
497 |       if Assigned(Node) then
498 |         fEntitlements.ReadOnlyMusic := (UpperCase(Node.nodeValue) = 'TRUE')
499 |       else
500 |         fEntitlements.ReadOnlyMusic:=False;
501 | 
502 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteMusic/node()');
503 |       if Assigned(Node) then
504 |         fEntitlements.ReadWriteMusic := (UpperCase(Node.nodeValue) = 'TRUE')
505 |       else
506 |         fEntitlements.ReadWriteMusic:=False;
507 | 
508 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadOnlyPictures/node()');
509 |       if Assigned(Node) then
510 |         fEntitlements.ReadOnlyPictures := (UpperCase(Node.nodeValue) = 'TRUE')
511 |       else
512 |         fEntitlements.ReadOnlyPictures:=False;
513 | 
514 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWritePictures/node()');
515 |       if Assigned(Node) then
516 |         fEntitlements.ReadWritePictures := (UpperCase(Node.nodeValue) = 'TRUE')
517 |       else
518 |         fEntitlements.ReadWritePictures:=False;
519 | 
520 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_IncomingNetwork/node()');
521 |       if Assigned(Node) then
522 |         fEntitlements.IncomingNetwork := (UpperCase(Node.nodeValue) = 'TRUE')
523 |       else
524 |         fEntitlements.IncomingNetwork:=False;
525 | 
526 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_OutgoingNetwork/node()');
527 |       if Assigned(Node) then
528 |         fEntitlements.OutgoingNetwork := (UpperCase(Node.nodeValue) = 'TRUE')
529 |       else
530 |         fEntitlements.OutgoingNetwork:=False;
531 | 
532 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_Location/node()');
533 |       if Assigned(Node) then
534 |         fEntitlements.Location := (UpperCase(Node.nodeValue) = 'TRUE')
535 |       else
536 |         fEntitlements.Location:=False;
537 | 
538 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_USBDevices/node()');
539 |       if Assigned(Node) then
540 |         fEntitlements.USBDevice := (UpperCase(Node.nodeValue) = 'TRUE')
541 |       else
542 |         fEntitlements.USBDevice:=False;
543 | 
544 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteCalendars/node()');
545 |       if Assigned(Node) then
546 |         fEntitlements.ReadWriteCalendars := (UpperCase(Node.nodeValue) = 'TRUE')
547 |       else
548 |         fEntitlements.ReadWriteCalendars:=False;
549 | 
550 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteFileDialog/node()');
551 |       if Assigned(Node) then
552 |         fEntitlements.ReadWriteFileDialog := (UpperCase(Node.nodeValue) = 'TRUE')
553 |       else
554 |         fEntitlements.ReadWriteFileDialog:=False;
555 | 
556 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadOnlyFileDialog/node()');
557 |       if Assigned(Node) then
558 |         fEntitlements.ReadOnlyFileDialog := (UpperCase(Node.nodeValue) = 'TRUE')
559 |       else
560 |         fEntitlements.ReadOnlyFileDialog:=False;
561 | 
562 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteDownloads/node()');
563 |       if Assigned(Node) then
564 |         fEntitlements.ReadWriteDownloads := (UpperCase(Node.nodeValue) = 'TRUE')
565 |       else
566 |         fEntitlements.ReadWriteDownloads:=False;
567 | 
568 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteMovies/node()');
569 |       if Assigned(Node) then
570 |         fEntitlements.ReadWriteMovies := (UpperCase(Node.nodeValue) = 'TRUE')
571 |       else
572 |         fEntitlements.ReadWriteMovies:=False;
573 | 
574 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadOnlyMovies/node()');
575 |       if Assigned(Node) then
576 |         fEntitlements.ReadOnlyMovies := (UpperCase(Node.nodeValue) = 'TRUE')
577 |       else
578 |         fEntitlements.ReadOnlyMovies:=False;
579 | 
580 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_RecordingMicrophone/node()');
581 |       if Assigned(Node) then
582 |         fEntitlements.RecordingMicrophone := (UpperCase(Node.nodeValue) = 'TRUE')
583 |       else
584 |         fEntitlements.RecordingMicrophone:=False;
585 | 
586 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_Printing/node()');
587 |       if Assigned(Node) then
588 |         fEntitlements.Printing := (UpperCase(Node.nodeValue) = 'TRUE')
589 |       else
590 |         fEntitlements.Printing:=False;
591 | 
592 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_CaptureCamera/node()');
593 |       if Assigned(Node) then
594 |         fEntitlements.CaptureCamera := (UpperCase(Node.nodeValue) = 'TRUE')
595 |       else
596 |         fEntitlements.CaptureCamera:=False;
597 | 
598 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ReadWriteAddressBook/node()');
599 |       if Assigned(Node) then
600 |         fEntitlements.ReadWriteAddressBook := (UpperCase(Node.nodeValue) = 'TRUE')
601 |       else
602 |         fEntitlements.ReadWriteAddressBook:=False;
603 | 
604 |       Node := XmlDoc.selectSingleNode('/Project/PropertyGroup/EL_ChildProcessInheritance/node()');
605 |       if Assigned(Node) then
606 |         fEntitlements.ChildProcessInheritance := (UpperCase(Node.nodeValue) = 'TRUE')
607 |       else
608 |         fEntitlements.ChildProcessInheritance:=False;
609 | 
610 |     //Get the .plist details for OSX
611 |       if fCustomVerInfoKeys.Trim = '' then
612 |       begin
613 |         Node := XmlDoc.selectSingleNode('/Project/PropertyGroup[@Condition="''$(Base_OSX32)''!=''''"]/VerInfo_Keys/node()');
614 |         if Assigned(Node) then
615 |         begin
616 |           tmpstr := Node.nodeValue;
617 |           tmpstr:=ReplaceStr(tmpstr,'$(MSBuildProjectName)',fProjectName);
618 | 
619 |           fVerInfoKeys.DelimitedText := tmpstr;
620 |         end;
621 | 
622 |         if fConfig = 'Release' then
623 |           Node := XmlDoc.selectSingleNode('/Project/PropertyGroup[@Condition="''$(Cfg_1_OSX32)''!=''''"]/VerInfo_Keys/node()')
624 |         else
625 |           Node := XmlDoc.selectSingleNode('/Project/PropertyGroup[@Condition="''$(Cfg_2_OSX32)''!=''''"]/VerInfo_Keys/node()');
626 | 
627 |         if Assigned(Node) then
628 |         begin
629 |           tmpstr := Node.nodeValue;
630 |           tmpstr:=ReplaceStr(tmpstr,'$(MSBuildProjectName)',fProjectName);
631 | 
632 |           if fVerInfoKeys.Count > 0 then
633 |             begin
634 |               verInfoKeys := CreateVerInfoKeys();
635 |               try
636 |                 verInfoKeys.DelimitedText := tmpstr;
637 |                 for I := 0 to verInfoKeys.Count-1 do
638 |                   begin
639 |                     fVerInfoKeys.Values[verInfoKeys.Names[i]] := verInfoKeys.ValueFromIndex[i];
640 |                   end;
641 |               finally
642 |                 verInfoKeys.Free;
643 |               end;
644 |             end
645 |           else
646 |             fVerInfoKeys.DelimitedText := tmpstr;
647 |         end;
648 |       end
649 |       else
650 |         fVerInfoKeys.DelimitedText := fCustomVerInfoKeys;
651 |     end;
652 | 
653 |     // Get all the Platform subnodes of the DeployClass nodes for the specified platform
654 |     Nodes := XmlDoc.selectNodes('//DeployClass/Platform[@Name="' + fPlatform + '"]');
655 |     SetLength(fDeployClasses, Nodes.length);
656 |     Count := 0;
657 |     for I := 0 to Nodes.length - 1 do
658 |     begin
659 |       // Get the Name and Required attributes of the DeployClass node (the parent)
660 |       if Nodes.item[I].parentNode.attributes.getNamedItem('Name') <> nil then
661 |         fDeployClasses[Count].Name := Nodes.item[I].parentNode.attributes.getNamedItem('Name').nodeValue;
662 |       if Nodes.item[I].parentNode.attributes.getNamedItem('Required') <> nil then
663 |         fDeployClasses[Count].Required := StrToBool(Nodes.item[I].parentNode.attributes.getNamedItem('Required').nodeValue);
664 | 
665 |       // Get the RemoteDir, Operation, Extensions subnode values
666 |       if Nodes.item[I].selectSingleNode('RemoteDir/node()') <> nil then
667 |         fDeployClasses[Count].RemoteDir := Nodes.item[I].selectSingleNode('RemoteDir/node()').nodeValue;
668 |       if Nodes.item[I].selectSingleNode('Operation/node()') <> nil then
669 |         fDeployClasses[Count].Operation := Nodes.item[I].selectSingleNode('Operation/node()').nodeValue;
670 |       if Nodes.item[I].selectSingleNode('Extensions/node()') <> nil then
671 |         fDeployClasses[Count].Extensions := Nodes.item[I].selectSingleNode('Extensions/node()').nodeValue;
672 | 
673 |       // VG 300715: The XE8 sets the ProjectOSXEntitlements RemoteFolder incorrectly to "../" instead of "Contents"
674 |       // Hardcode a quick fix for it and watch for other such problems
675 |       //
676 |       //Not sure how XE10, 10.1 (Seatlle) deal with this but in D10.1 Berlin the folder is set to "..\" and not to "../"
677 |       {$IFDEF VER310}
678 |         entitlementPath:='..\';
679 |       {$ELSE}
680 |         entitlementPath:='../';
681 |       {$ENDIF}
682 |       if fDeployClasses[Count].Name.Equals('ProjectOSXEntitlements') and fDeployClasses[Count].RemoteDir.Equals(entitlementPath) then
683 |         fDeployClasses[Count].RemoteDir := 'Contents';
684 | 
685 |       Inc(Count);
686 |     end;
687 |     SetLength(fDeployClasses, Count);
688 | 
689 |     // Get all the Platform subnodes of the DeployFile nodes for the specified platform
690 |     Nodes := XmlDoc.selectNodes('//DeployFile/Platform[@Name="' + fPlatform + '"]');
691 |     SetLength(fDeployFiles, Nodes.length);
692 |     Count := 0;
693 |     for I := 0 to Nodes.length - 1 do
694 |     begin
695 |       // Get the LocalName, Configuration, Class attributes of the DeployFiles node (the parent)
696 |       if Nodes.item[I].parentNode.attributes.getNamedItem('LocalName') <> nil then
697 |         fDeployFiles[Count].LocalName     := Nodes.item[I].parentNode.attributes.getNamedItem('LocalName').nodeValue;
698 |       if Nodes.item[I].parentNode.attributes.getNamedItem('Configuration') <> nil then
699 |         fDeployFiles[Count].Configuration := Nodes.item[I].parentNode.attributes.getNamedItem('Configuration').nodeValue;
700 |       if Nodes.item[I].parentNode.attributes.getNamedItem('Class') <> nil then
701 |         fDeployFiles[Count].ClassName     := Nodes.item[I].parentNode.attributes.getNamedItem('Class').nodeValue;
702 | 
703 |       // Get the Enabled, RemoteDir, RemoteName subnode values
704 |       if Nodes.item[I].selectSingleNode('Enabled/node()') <> nil then
705 |         fDeployFiles[Count].Enabled := StrToBool(Nodes.item[I].selectSingleNode('Enabled/node()').nodeValue)
706 |       else
707 |         fDeployFiles[Count].Enabled := true;
708 |       if Nodes.item[I].selectSingleNode('RemoteDir/node()') <> nil then
709 |         fDeployFiles[Count].RemoteDir := Nodes.item[I].selectSingleNode('RemoteDir/node()').nodeValue;
710 |       if Nodes.item[I].selectSingleNode('RemoteName/node()') <> nil then
711 |         fDeployFiles[Count].RemoteName := Nodes.item[I].selectSingleNode('RemoteName/node()').nodeValue;
712 | 
713 |       Inc(Count);
714 |     end;
715 |     SetLength(fDeployFiles, Count);
716 | 
717 |     // Disable files that are not for the specified Configuration or are duplicated (e.g. both Base and Release configs)
718 |     for I := 0 to Length(fDeployFiles) - 1 do
719 |     begin
720 |       // Check the Base configurations if there is a file with a Release/Debug config and use it, otherwise use the Base
721 |       if (fDeployFiles[I].Configuration = 'Base') or fDeployFiles[I].Configuration.IsEmpty then
722 |       begin
723 |         for J := 0 to Length(fDeployFiles) - 1 do
724 |           if (fDeployFiles[I].LocalName = fDeployFiles[J].LocalName) and (fDeployFiles[J].Configuration = fConfig) then
725 |           begin
726 |             // There is a more detailed config found, so disable the Base
727 |             fDeployFiles[I].Enabled := false;
728 |             Break;
729 |           end;
730 |       end else
731 |         // Check if the file is for a different non-Base config and disable it
732 |         // Second check added because Delphi seems to save incorrect info for some files in the Dproj
733 |         // E.g. the ICNS file with class ProjectOSXResource appears only under a Release config, but not under a
734 |         // Sandbox config. If Sandbox is selected from the IDE and deployed, the Dproj changes and the ICNS is included
735 |         // in Sandbox, but sometimes excluded from Release. No pattern found
736 |         // The only solution is not to disable 'standard' Class files, e.g. non user added
737 |         if (fDeployFiles[I].Configuration <> fConfig) and (fDeployFiles[I].ClassName = 'File') then
738 |           fDeployFiles[I].Enabled := false;
739 |     end;
740 | 
741 |     // Shrink the array to skip the disabled items
742 |     Count := 0;
743 |     for I := 0 to Length(fDeployFiles) - 1 do
744 |       if fDeployFiles[I].Enabled then
745 |       begin
746 |         fDeployFiles[Count] := fDeployFiles[I];
747 |         Inc(Count);
748 |       end;
749 |     SetLength(fDeployFiles, Count);
750 | 
751 |     // Match the above DeployFile and DeployClass entries and build the complete Remote/Local names, dirs, etc
752 |     for I := 0 to Length(fDeployFiles) - 1 do
753 |     begin
754 |       // Find if there is the same DeployClass and copy the attributes from it if they don't exist already
755 |       for J := 0 to Length(fDeployClasses) - 1 do
756 |       begin
757 |         if fDeployFiles[I].ClassName = fDeployClasses[J].Name then
758 |         begin
759 |           if fDeployFiles[I].RemoteDir.IsEmpty then
760 |             fDeployFiles[I].RemoteDir := fDeployClasses[J].RemoteDir;
761 |           fDeployFiles[I].Operation := fDeployClasses[J].Operation;
762 |           Break;
763 |         end;
764 |       end;
765 | 
766 |       // Replace the BDS paths for the Redist files from Embarcadero
767 |       fDeployFiles[I].LocalName := fDeployFiles[I].LocalName.Replace('$(BDS)\', fDelphiPath);
768 | 
769 |       // Finalize the Remote names and dirs
770 |       fDeployFiles[I].RemoteDir := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(fProjectRoot) + fDeployFiles[I].RemoteDir);
771 | 
772 |       if fDeployFiles[I].RemoteName.IsEmpty then
773 |         fDeployFiles[I].RemoteName := ExtractFileName(fDeployFiles[I].LocalName);
774 |     end;
775 | 
776 |     if fVerbose then
777 |     begin
778 |       Writeln('--------------------');
779 |       Writeln('Files to be deployed');
780 |       Writeln('--------------------');
781 |       Writeln('Class Name - Local Name - Remote Name - Remote Dir');
782 |       Writeln('--------------------------------------------------');
783 |       for i := 0 to Length(fDeployFiles)-1 do
784 |         Writeln(Format('%10s - %10s - %10s - %10s',
785 |             [fDeployFiles[i].ClassName, fDeployFiles[i].LocalName,
786 |             fDeployFiles[i].RemoteName, fdeployFiles[i].RemoteDir]));
787 |     end;
788 | 
789 | 
790 |     //Change the folder to the binaryFolder is supplied in the command line
791 |     if trim(fBinaryFolder)<>'' then
792 |     begin
793 |       for i := 0 to Length(fDeployFiles)-1 do
794 |         if (Trim(fDeployFiles[i].ClassName)<>'DependencyModule')
795 |           and (Trim(fDeployFiles[i].ClassName)<>'ProjectOSXResource') then
796 |           fDeployFiles[i].LocalName:=TPath.Combine(
797 |                             IncludeTrailingPathDelimiter(fBinaryFolder),
798 |                             ExtractFileName(fDeployFiles[i].LocalName));
799 | 
800 |       if fVerbose then
801 |       begin
802 |         Writeln('--------------------');
803 |         Writeln('Files to be deployed (after use of BinaryFolder:'+fBinaryFolder+')');
804 |         Writeln('--------------------');
805 |         Writeln('Class Name - Local Name - Remote Name - Remote Dir');
806 |         Writeln('--------------------------------------------------');
807 |         for i := 0 to Length(fDeployFiles)-1 do
808 |           Writeln(Format('%10s - %10s - %10s - %10s',
809 |               [fDeployFiles[i].ClassName, fDeployFiles[i].LocalName,
810 |               fDeployFiles[i].RemoteName, fdeployFiles[i].RemoteDir]));
811 |         Writeln('--------------------------------------------------');
812 |       end;
813 | 
814 |     end;
815 | 
816 |     Writeln('Checking files against configuration ('+fConfig+')');
817 |     if fConfig='Debug' then
818 |       currExcludeList:=fDebugExcludeFiles;
819 |     if fConfig='Release' then
820 |       currExcludeList:=fReleaseExcludeFiles;
821 |     i:=0;
822 |     for tmpDeployFile in fDeployFiles do
823 |     begin
824 |       tmpstr:=ExtractFileExt(tmpDeployFile.LocalName);
825 |       if currExcludeList.Contains(ExtractFileExt(tmpDeployFile.LocalName)) then
826 |       begin
827 |         Writeln('Ignored: '+tmpDeployFile.LocalName);
828 |         fDeployFiles[i]:=fDeployFiles[High(fDeployFiles)];
829 |         if i<High(fDeployFiles) then
830 |           SetLength(fDeployFiles,length(fDeployFiles)-1);
831 |       end;
832 |       Inc(i);
833 |     end;
834 | 
835 |     fProjectParsed := true;
836 | 
837 |   finally
838 |     Node   := nil;
839 |     Nodes  := nil;
840 |     XmlDoc := nil;
841 |   end;
842 | end;
843 | 
844 | procedure TDeployer.RegisterFolder(const regPath: string; const project: string);
845 | var
846 |   newFolderChannel: IDeployChannel;
847 |   projName: string;
848 | begin
849 |   fProjectName:=project;
850 |   if fPlatform='OSX32' then
851 |     projName:=fProjectName+'.app';
852 |   newFolderChannel:=TFolderChannel.Create(Trim(regPath), projName, fProjectName);
853 |   newFolderChannel.ChannelName:='Folder Channel';
854 |   newFolderChannel.Verbose:=fVerbose;
855 |   newFolderChannel.ProjectRoot:=fProjectRoot;
856 |   newFolderChannel.LogExceptions:=fLogExceptions;
857 |   fDeployChannels.Add(newFolderChannel);
858 | end;
859 | 
860 | procedure TDeployer.RegisterPACLient;
861 | var
862 |   newPAClientChannel: IDeployChannel;
863 | begin
864 |   newPAClientChannel:=TPAClientChannel.Create(fRemoteProfile, fPaclientPath,
865 |                                                 fDelphiVersion, fPlatform);
866 |   newPAClientChannel.ChannelName:='PAClient';
867 |   newPAClientChannel.Verbose:=fVerbose;
868 |   newPAClientChannel.ProjectRoot:=fProjectRoot;
869 |   newPAClientChannel.LogExceptions:=fLogExceptions;
870 |   fDeployChannels.Add(newPAClientChannel);
871 | end;
872 | 
873 | procedure TDeployer.SetupChannels;
874 | var
875 |   tmpChannel: IDeployChannel;
876 | begin
877 |   for tmpChannel in fDeployChannels do
878 |     tmpChannel.SetupChannel;
879 | end;
880 | 
881 | // Execute a custom command on the remote server
882 | // This is done by creating a temporary file with the command and executing it in the shell
883 | procedure TDeployer.ExecuteCommand(const aProjectPath, aCommand: String);
884 | var
885 |   Text, Cmd, TempFile:  String;
886 |   tmpChannel: IDeployChannel;
887 | begin
888 |   ParseProject(aProjectPath);
889 | 
890 |   // Check if there is a remote profile and try to find one. Must be after the project is parsed
891 |   SetupChannels;
892 | 
893 |   // Replace any custom parameters in the command
894 |   Cmd := aCommand.Replace('$PROOT', fProjectRoot, [rfReplaceAll]);
895 | 
896 |   // Build a temp file with the command as content
897 |   TempFile := TPath.GetTempFileName;
898 | 
899 |   // Build different files for Windows or OSX
900 |   if (fPlatform = 'Win32') or (fPlatform = 'Win64') then
901 |     Text := Cmd
902 |   else
903 |     Text := '#!/bin/bash' + #10 + Cmd;
904 |   TFile.WriteAllText(TempFile, Text);
905 | 
906 |   // Deploy the file and execute it with the 5 operation
907 |   // The file is deployed to the root deployment folder (the one above the project root folder) and executed there
908 |   Writeln('Executing custom command: ' + aCommand);
909 | 
910 |   for tmpChannel in fDeployChannels do
911 |   begin
912 |     if tmpChannel is TPAClientChannel then
913 |       if (not tmpChannel.DeployFile(TempFile,'.',5,'')) and (not fIgnoreErrors) then
914 |         if fLogExceptions then
915 |         begin
916 |           Writeln('Error in '+tmpChannel.ChannelName+'. Command Error.');
917 |           Halt(1);
918 |         end
919 |         else
920 |           raise Exception.Create('Error in '+tmpChannel.ChannelName+'. Command Error.');
921 |   end;
922 | 
923 |   TFile.Delete(TempFile);
924 | 
925 |   for tmpChannel in fDeployChannels do
926 |     tmpChannel.CloseChannel;
927 | 
928 | end;
929 | 
930 | end.
931 | 


--------------------------------------------------------------------------------
/embdeploy.dproj:
--------------------------------------------------------------------------------
  1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  2 |     <PropertyGroup>
  3 |         <ProjectGuid>{08741C85-7A9F-4CB4-ACED-76127D3C0E23}</ProjectGuid>
  4 |         <ProjectVersion>18.1</ProjectVersion>
  5 |         <FrameworkType>None</FrameworkType>
  6 |         <MainSource>embdeploy.dpr</MainSource>
  7 |         <Base>True</Base>
  8 |         <Config Condition="'$(Config)'==''">Release</Config>
  9 |         <Platform Condition="'$(Platform)'==''">Win32</Platform>
 10 |         <TargetedPlatforms>1</TargetedPlatforms>
 11 |         <AppType>Console</AppType>
 12 |     </PropertyGroup>
 13 |     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
 14 |         <Base>true</Base>
 15 |     </PropertyGroup>
 16 |     <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
 17 |         <Base_Android>true</Base_Android>
 18 |         <CfgParent>Base</CfgParent>
 19 |         <Base>true</Base>
 20 |     </PropertyGroup>
 21 |     <PropertyGroup Condition="('$(Platform)'=='iOSDevice32' and '$(Base)'=='true') or '$(Base_iOSDevice32)'!=''">
 22 |         <Base_iOSDevice32>true</Base_iOSDevice32>
 23 |         <CfgParent>Base</CfgParent>
 24 |         <Base>true</Base>
 25 |     </PropertyGroup>
 26 |     <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
 27 |         <Base_iOSDevice64>true</Base_iOSDevice64>
 28 |         <CfgParent>Base</CfgParent>
 29 |         <Base>true</Base>
 30 |     </PropertyGroup>
 31 |     <PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
 32 |         <Base_iOSSimulator>true</Base_iOSSimulator>
 33 |         <CfgParent>Base</CfgParent>
 34 |         <Base>true</Base>
 35 |     </PropertyGroup>
 36 |     <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
 37 |         <Base_OSX32>true</Base_OSX32>
 38 |         <CfgParent>Base</CfgParent>
 39 |         <Base>true</Base>
 40 |     </PropertyGroup>
 41 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
 42 |         <Base_Win32>true</Base_Win32>
 43 |         <CfgParent>Base</CfgParent>
 44 |         <Base>true</Base>
 45 |     </PropertyGroup>
 46 |     <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
 47 |         <Base_Win64>true</Base_Win64>
 48 |         <CfgParent>Base</CfgParent>
 49 |         <Base>true</Base>
 50 |     </PropertyGroup>
 51 |     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
 52 |         <Cfg_1>true</Cfg_1>
 53 |         <CfgParent>Base</CfgParent>
 54 |         <Base>true</Base>
 55 |     </PropertyGroup>
 56 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
 57 |         <Cfg_1_Win32>true</Cfg_1_Win32>
 58 |         <CfgParent>Cfg_1</CfgParent>
 59 |         <Cfg_1>true</Cfg_1>
 60 |         <Base>true</Base>
 61 |     </PropertyGroup>
 62 |     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
 63 |         <Cfg_2>true</Cfg_2>
 64 |         <CfgParent>Base</CfgParent>
 65 |         <Base>true</Base>
 66 |     </PropertyGroup>
 67 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
 68 |         <Cfg_2_Win32>true</Cfg_2_Win32>
 69 |         <CfgParent>Cfg_2</CfgParent>
 70 |         <Cfg_2>true</Cfg_2>
 71 |         <Base>true</Base>
 72 |     </PropertyGroup>
 73 |     <PropertyGroup Condition="'$(Base)'!=''">
 74 |         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
 75 |         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
 76 |         <VerInfo_MinorVer>2</VerInfo_MinorVer>
 77 |         <SanitizedProjectName>embdeploy</SanitizedProjectName>
 78 |         <PostBuildEvent><![CDATA[copy /Y $(OUTPUTPATH) $(WINDIR)
 79 | $(PostBuildEvent)]]></PostBuildEvent>
 80 |         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 81 |         <Manifest_File>None</Manifest_File>
 82 |         <VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
 83 |         <VerInfo_Locale>1026</VerInfo_Locale>
 84 |         <VerInfo_Keys>CompanyName=Vladimir Georgiev;FileDescription=Automated deployer for Embarcadero RAD Studio projects;FileVersion=1.2.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=EmbDeploy;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 85 |         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
 86 |         <DCC_DcuOutput>.\$(Platform)</DCC_DcuOutput>
 87 |         <DCC_ExeOutput>.\$(Platform)</DCC_ExeOutput>
 88 |         <DCC_E>false</DCC_E>
 89 |         <DCC_N>false</DCC_N>
 90 |         <DCC_S>false</DCC_S>
 91 |         <DCC_F>false</DCC_F>
 92 |         <DCC_K>false</DCC_K>
 93 |     </PropertyGroup>
 94 |     <PropertyGroup Condition="'$(Base_Android)'!=''">
 95 |         <AUP_CAMERA>true</AUP_CAMERA>
 96 |         <Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
 97 |         <Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
 98 |         <VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
 99 |         <Android_SplashImage426>$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png</Android_SplashImage426>
100 |         <AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION>
101 |         <AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE>
102 |         <Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
103 |         <Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
104 |         <AUP_READ_CALENDAR>true</AUP_READ_CALENDAR>
105 |         <AUP_CALL_PHONE>true</AUP_CALL_PHONE>
106 |         <Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
107 |         <AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION>
108 |         <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;fmx.dex.jar;google-analytics-v2.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar;google-play-services.dex.jar</EnabledSysJars>
109 |         <BT_BuildType>Debug</BT_BuildType>
110 |         <AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE>
111 |         <AUP_INTERNET>true</AUP_INTERNET>
112 |         <AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE>
113 |         <AUP_WRITE_CALENDAR>true</AUP_WRITE_CALENDAR>
114 |         <Android_SplashImage640>$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png</Android_SplashImage640>
115 |         <Android_SplashImage960>$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png</Android_SplashImage960>
116 |         <Android_SplashImage470>$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png</Android_SplashImage470>
117 |         <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
118 |     </PropertyGroup>
119 |     <PropertyGroup Condition="'$(Base_iOSDevice32)'!=''">
120 |         <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
121 |         <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
122 |         <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
123 |         <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
124 |         <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
125 |         <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
126 |         <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
127 |         <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
128 |         <VerInfo_BundleId>$(MSBuildProjectName)</VerInfo_BundleId>
129 |         <BT_BuildType>Debug</BT_BuildType>
130 |         <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
131 |         <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
132 |         <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
133 |         <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=</VerInfo_Keys>
134 |         <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
135 |         <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
136 |     </PropertyGroup>
137 |     <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
138 |         <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
139 |         <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
140 |         <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
141 |         <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
142 |         <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
143 |         <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
144 |         <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
145 |         <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
146 |         <VerInfo_BundleId>$(MSBuildProjectName)</VerInfo_BundleId>
147 |         <BT_BuildType>Debug</BT_BuildType>
148 |         <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
149 |         <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
150 |         <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
151 |         <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=</VerInfo_Keys>
152 |         <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
153 |         <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
154 |     </PropertyGroup>
155 |     <PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
156 |         <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
157 |         <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
158 |         <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
159 |         <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
160 |         <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
161 |         <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
162 |         <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
163 |         <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
164 |         <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
165 |         <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
166 |         <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
167 |         <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
168 |         <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=</VerInfo_Keys>
169 |         <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
170 |     </PropertyGroup>
171 |     <PropertyGroup Condition="'$(Base_OSX32)'!=''">
172 |         <DCC_UsePackage>FlexCel_Core;DBXSqliteDriver;fmx;IndySystem;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DbxCommonDriver;dbxcds;IcsFmxDXE4Run;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FMX_FlexCel_Core;inetdbxpress;bindcompfmx;rtl;dbrtl;DbxClientDriver;bindcomp;inetdb;FlexCel_Render;xmlrtl;ibxpress;IndyProtocols;DBXMySQLDriver;bindengine;soaprtl;bindcompdbx;FMXTee;FlexCel_Pdf;FMX_FlexCel_Components;IcsCommonDXE4Run;DBXInformixDriver;DBXFirebirdDriver;inet;fmxobj;DBXSybaseASADriver;fmxdae;FlexCel_XlsAdapter;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
173 |         <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
174 |     </PropertyGroup>
175 |     <PropertyGroup Condition="'$(Base_Win32)'!=''">
176 |         <DCC_ExeOutput>.\</DCC_ExeOutput>
177 |         <PostBuildEventCancelOnError>false</PostBuildEventCancelOnError>
178 |         <PostBuildEvent><![CDATA[]]></PostBuildEvent>
179 |         <DCC_UsePackage>FlexCel_Core;DBXSqliteDriver;frxDB18;FMXfrx18;fmx;IndySystem;TeeDB;frx18;inetdbbde;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;unidacvcl180;DataSnapProviderClient;VCL_FlexCel_Components_DESIGN;DBXSybaseASEDriver;IcsVclDXE4Run;DbxCommonDriver;VCL_FlexCel_Components;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;IcsFmxDXE4Run;dacvcl180;DBXDb2Driver;OmniThreadLibraryRuntimeXE3;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;FMXfs18;IndyIPCommon;CloudService;DBXMSSQLDriver;FmxTeeUI;CodeSiteExpressPkg;FMX_FlexCel_Core;TMSFMXPackPkgDXE4;inetdbxpress;webdsnap;FMX_FlexCel_Components_DESIGN;FMXfrxe18;unidac180;adortl;madBasic_;FMXfrxTee18;bindcompfmx;tmsdXE4;FMXfrxDB18;vcldbx;rtl;dbrtl;DbxClientDriver;bindcomp;inetdb;Tee;DBXOdbcDriver;FlexCel_Render;madDisAsm_;xmlrtl;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;frxe18;vclactnband;bindengine;soaprtl;bindcompdbx;FMXTee;TeeUI;bindcompvcl;VCL_FlexCel_Core;FlexCel_Pdf;vclie;FMX_FlexCel_Components;IcsCommonDXE4Run;vcltouch;madExcept_;tmsexdXE4;crcontrols180;FMXfsDB18;VclSmp;DBXInformixDriver;Intraweb;DataSnapConnectors;dsnapcon;DBXFirebirdDriver;tmsxlsdXE4;inet;fmxobj;dac180;vclx;svn;DBXSybaseASADriver;FMXfsTee18;fmxdae;FlexCel_XlsAdapter;bdertl;VirtualTreesR;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
180 |         <VerInfo_Locale>1033</VerInfo_Locale>
181 |         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
182 |         <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
183 |     </PropertyGroup>
184 |     <PropertyGroup Condition="'$(Base_Win64)'!=''">
185 |         <VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
186 |         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
187 |         <VerInfo_Locale>1033</VerInfo_Locale>
188 |         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
189 |     </PropertyGroup>
190 |     <PropertyGroup Condition="'$(Cfg_1)'!=''">
191 |         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
192 |         <DCC_DebugDCUs>true</DCC_DebugDCUs>
193 |         <DCC_Optimize>false</DCC_Optimize>
194 |         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
195 |         <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
196 |         <DCC_RemoteDebug>true</DCC_RemoteDebug>
197 |     </PropertyGroup>
198 |     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
199 |         <Debugger_CWD>C:\Sistemas\PromedicoMac\trunk\</Debugger_CWD>
200 |         <VerInfo_Keys>CompanyName=Vladimir Georgiev;FileDescription=Automated deployer for Embarcadero RAD Studio projects;FileVersion=1.2.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=EmbDeploy;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=08/08/2017 09:38:49</VerInfo_Keys>
201 |         <DCC_MapFile>3</DCC_MapFile>
202 |         <Debugger_RunParams>-delphiver &quot;18.0&quot;  -registerFolder &quot;C:\Sistemas\PromedicoMac\trunk\OSX32_Build&quot; -bundle PromedicoMac.zip -Config Release  -deploy &quot;C:\Sistemas\PromedicoMac\trunk\PromedicoMac.dproj&quot;</Debugger_RunParams>
203 |         <VerInfo_Locale>1033</VerInfo_Locale>
204 |         <DCC_RemoteDebug>false</DCC_RemoteDebug>
205 |     </PropertyGroup>
206 |     <PropertyGroup Condition="'$(Cfg_2)'!=''">
207 |         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
208 |         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
209 |         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
210 |         <DCC_DebugInformation>0</DCC_DebugInformation>
211 |     </PropertyGroup>
212 |     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
213 |         <DCC_ExeOutput>.\</DCC_ExeOutput>
214 |         <Debugger_RunParams>-deploy C:\Sistemas\PromedicoMac\trunk\PromedicoMac.deployproj</Debugger_RunParams>
215 |         <DCC_MapFile>3</DCC_MapFile>
216 |         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
217 |         <DCC_DebugInformation>2</DCC_DebugInformation>
218 |         <VerInfo_Keys>CompanyName=Vladimir Georgiev;FileDescription=Automated deployer for Embarcadero RAD Studio projects;FileVersion=1.3.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=EmbDeploy;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=08/08/2017 09:42:35</VerInfo_Keys>
219 |         <VerInfo_MinorVer>3</VerInfo_MinorVer>
220 |         <VerInfo_Locale>1033</VerInfo_Locale>
221 |     </PropertyGroup>
222 |     <ItemGroup>
223 |         <DelphiCompile Include="$(MainSource)">
224 |             <MainSource>MainSource</MainSource>
225 |         </DelphiCompile>
226 |         <DCCReference Include="Deployer.pas"/>
227 |         <DCCReference Include="DeployChannels.pas"/>
228 |         <BuildConfiguration Include="Release">
229 |             <Key>Cfg_2</Key>
230 |             <CfgParent>Base</CfgParent>
231 |         </BuildConfiguration>
232 |         <BuildConfiguration Include="Base">
233 |             <Key>Base</Key>
234 |         </BuildConfiguration>
235 |         <BuildConfiguration Include="Debug">
236 |             <Key>Cfg_1</Key>
237 |             <CfgParent>Base</CfgParent>
238 |         </BuildConfiguration>
239 |     </ItemGroup>
240 |     <ProjectExtensions>
241 |         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
242 |         <Borland.ProjectType/>
243 |         <BorlandProject>
244 |             <Delphi.Personality>
245 |                 <Source>
246 |                     <Source Name="MainSource">embdeploy.dpr</Source>
247 |                 </Source>
248 |                 <VersionInfo>
249 |                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
250 |                     <VersionInfo Name="AutoIncBuild">False</VersionInfo>
251 |                     <VersionInfo Name="MajorVer">1</VersionInfo>
252 |                     <VersionInfo Name="MinorVer">0</VersionInfo>
253 |                     <VersionInfo Name="Release">0</VersionInfo>
254 |                     <VersionInfo Name="Build">0</VersionInfo>
255 |                     <VersionInfo Name="Debug">False</VersionInfo>
256 |                     <VersionInfo Name="PreRelease">False</VersionInfo>
257 |                     <VersionInfo Name="Special">False</VersionInfo>
258 |                     <VersionInfo Name="Private">False</VersionInfo>
259 |                     <VersionInfo Name="DLL">False</VersionInfo>
260 |                     <VersionInfo Name="Locale">1026</VersionInfo>
261 |                     <VersionInfo Name="CodePage">1251</VersionInfo>
262 |                 </VersionInfo>
263 |                 <VersionInfoKeys>
264 |                     <VersionInfoKeys Name="CompanyName"/>
265 |                     <VersionInfoKeys Name="FileDescription"/>
266 |                     <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
267 |                     <VersionInfoKeys Name="InternalName"/>
268 |                     <VersionInfoKeys Name="LegalCopyright"/>
269 |                     <VersionInfoKeys Name="LegalTrademarks"/>
270 |                     <VersionInfoKeys Name="OriginalFilename"/>
271 |                     <VersionInfoKeys Name="ProductName"/>
272 |                     <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
273 |                     <VersionInfoKeys Name="Comments"/>
274 |                     <VersionInfoKeys Name="CFBundleName"/>
275 |                     <VersionInfoKeys Name="CFBundleDisplayName"/>
276 |                     <VersionInfoKeys Name="UIDeviceFamily"/>
277 |                     <VersionInfoKeys Name="CFBundleIdentifier"/>
278 |                     <VersionInfoKeys Name="CFBundleVersion"/>
279 |                     <VersionInfoKeys Name="CFBundlePackageType"/>
280 |                     <VersionInfoKeys Name="CFBundleSignature"/>
281 |                     <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
282 |                     <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
283 |                     <VersionInfoKeys Name="CFBundleExecutable"/>
284 |                     <VersionInfoKeys Name="CFBundleResourceSpecification"/>
285 |                     <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
286 |                     <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
287 |                     <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
288 |                 </VersionInfoKeys>
289 |                 <Excluded_Packages>
290 |                     <Excluded_Packages Name="$(BDSBIN)\dclBindCompFireDAC230.bpl">LiveBinding Expression Components FireDac</Excluded_Packages>
291 |                     <Excluded_Packages Name="$(BDSBIN)\dclbindcompdbx230.bpl">LiveBindings Expression Components DbExpress</Excluded_Packages>
292 |                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k230.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
293 |                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp230.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
294 |                 </Excluded_Packages>
295 |             </Delphi.Personality>
296 |             <Deployment Version="2">
297 |                 <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
298 |                     <Platform Name="OSX32">
299 |                         <Overwrite>true</Overwrite>
300 |                     </Platform>
301 |                 </DeployFile>
302 |                 <DeployFile LocalName="$(BDS)\Redist\iossim32\libcgunwind.1.0.dylib" Class="DependencyModule">
303 |                     <Platform Name="iOSSimulator">
304 |                         <Overwrite>true</Overwrite>
305 |                     </Platform>
306 |                 </DeployFile>
307 |                 <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
308 |                     <Platform Name="iOSSimulator">
309 |                         <Overwrite>true</Overwrite>
310 |                     </Platform>
311 |                 </DeployFile>
312 |                 <DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
313 |                     <Platform Name="iOSSimulator">
314 |                         <Overwrite>true</Overwrite>
315 |                     </Platform>
316 |                 </DeployFile>
317 |                 <DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
318 |                     <Platform Name="OSX32">
319 |                         <Overwrite>true</Overwrite>
320 |                     </Platform>
321 |                 </DeployFile>
322 |                 <DeployFile LocalName="embdeploy.exe" Configuration="Debug" Class="ProjectOutput">
323 |                     <Platform Name="Win32">
324 |                         <RemoteName>embdeploy.exe</RemoteName>
325 |                         <Overwrite>true</Overwrite>
326 |                     </Platform>
327 |                 </DeployFile>
328 |                 <DeployClass Name="DependencyModule">
329 |                     <Platform Name="Win32">
330 |                         <Operation>0</Operation>
331 |                         <Extensions>.dll;.bpl</Extensions>
332 |                     </Platform>
333 |                     <Platform Name="OSX32">
334 |                         <Operation>1</Operation>
335 |                         <Extensions>.dylib</Extensions>
336 |                     </Platform>
337 |                 </DeployClass>
338 |                 <DeployClass Name="ProjectOSXResource">
339 |                     <Platform Name="OSX32">
340 |                         <RemoteDir>Contents\Resources</RemoteDir>
341 |                         <Operation>1</Operation>
342 |                     </Platform>
343 |                 </DeployClass>
344 |                 <DeployClass Name="AndroidClassesDexFile">
345 |                     <Platform Name="Android">
346 |                         <RemoteDir>classes</RemoteDir>
347 |                         <Operation>1</Operation>
348 |                     </Platform>
349 |                 </DeployClass>
350 |                 <DeployClass Name="Android_LauncherIcon144">
351 |                     <Platform Name="Android">
352 |                         <RemoteDir>res\drawable-xxhdpi</RemoteDir>
353 |                         <Operation>1</Operation>
354 |                     </Platform>
355 |                 </DeployClass>
356 |                 <DeployClass Name="AdditionalDebugSymbols">
357 |                     <Platform Name="Win32">
358 |                         <RemoteDir>Contents\MacOS</RemoteDir>
359 |                         <Operation>0</Operation>
360 |                     </Platform>
361 |                     <Platform Name="OSX32">
362 |                         <Operation>1</Operation>
363 |                     </Platform>
364 |                 </DeployClass>
365 |                 <DeployClass Name="AndroidLibnativeMipsFile">
366 |                     <Platform Name="Android">
367 |                         <RemoteDir>library\lib\mips</RemoteDir>
368 |                         <Operation>1</Operation>
369 |                     </Platform>
370 |                 </DeployClass>
371 |                 <DeployClass Name="iPad_Launch768">
372 |                     <Platform Name="iOSSimulator">
373 |                         <Operation>1</Operation>
374 |                     </Platform>
375 |                     <Platform Name="iOSDevice64">
376 |                         <Operation>1</Operation>
377 |                     </Platform>
378 |                     <Platform Name="iOSDevice32">
379 |                         <Operation>1</Operation>
380 |                     </Platform>
381 |                 </DeployClass>
382 |                 <DeployClass Required="true" Name="ProjectOutput">
383 |                     <Platform Name="Win32">
384 |                         <Operation>0</Operation>
385 |                     </Platform>
386 |                     <Platform Name="iOSDevice64">
387 |                         <Operation>1</Operation>
388 |                     </Platform>
389 |                     <Platform Name="OSX32">
390 |                         <Operation>1</Operation>
391 |                     </Platform>
392 |                     <Platform Name="iOSDevice32">
393 |                         <Operation>1</Operation>
394 |                     </Platform>
395 |                     <Platform Name="Android">
396 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
397 |                         <Operation>1</Operation>
398 |                     </Platform>
399 |                     <Platform Name="iOSSimulator">
400 |                         <Operation>1</Operation>
401 |                     </Platform>
402 |                 </DeployClass>
403 |                 <DeployClass Name="DependencyFramework">
404 |                     <Platform Name="Win32">
405 |                         <Operation>0</Operation>
406 |                     </Platform>
407 |                     <Platform Name="OSX32">
408 |                         <Operation>1</Operation>
409 |                         <Extensions>.framework</Extensions>
410 |                     </Platform>
411 |                 </DeployClass>
412 |                 <DeployClass Name="iPhone_Launch640">
413 |                     <Platform Name="iOSSimulator">
414 |                         <Operation>1</Operation>
415 |                     </Platform>
416 |                     <Platform Name="iOSDevice64">
417 |                         <Operation>1</Operation>
418 |                     </Platform>
419 |                     <Platform Name="iOSDevice32">
420 |                         <Operation>1</Operation>
421 |                     </Platform>
422 |                 </DeployClass>
423 |                 <DeployClass Name="AndroidLibnativeX86File">
424 |                     <Platform Name="Android">
425 |                         <RemoteDir>library\lib\x86</RemoteDir>
426 |                         <Operation>1</Operation>
427 |                     </Platform>
428 |                 </DeployClass>
429 |                 <DeployClass Name="ProjectiOSDeviceDebug">
430 |                     <Platform Name="iOSDevice64">
431 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
432 |                         <Operation>1</Operation>
433 |                     </Platform>
434 |                     <Platform Name="iOSDevice32">
435 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
436 |                         <Operation>1</Operation>
437 |                     </Platform>
438 |                 </DeployClass>
439 |                 <DeployClass Name="iPad_Launch1024">
440 |                     <Platform Name="iOSSimulator">
441 |                         <Operation>1</Operation>
442 |                     </Platform>
443 |                     <Platform Name="iOSDevice64">
444 |                         <Operation>1</Operation>
445 |                     </Platform>
446 |                     <Platform Name="iOSDevice32">
447 |                         <Operation>1</Operation>
448 |                     </Platform>
449 |                 </DeployClass>
450 |                 <DeployClass Name="iPhone_Launch320">
451 |                     <Platform Name="iOSSimulator">
452 |                         <Operation>1</Operation>
453 |                     </Platform>
454 |                     <Platform Name="iOSDevice64">
455 |                         <Operation>1</Operation>
456 |                     </Platform>
457 |                     <Platform Name="iOSDevice32">
458 |                         <Operation>1</Operation>
459 |                     </Platform>
460 |                 </DeployClass>
461 |                 <DeployClass Name="ProjectiOSInfoPList"/>
462 |                 <DeployClass Name="AndroidLibnativeArmeabiFile">
463 |                     <Platform Name="Android">
464 |                         <RemoteDir>library\lib\armeabi</RemoteDir>
465 |                         <Operation>1</Operation>
466 |                     </Platform>
467 |                 </DeployClass>
468 |                 <DeployClass Name="DebugSymbols">
469 |                     <Platform Name="Win32">
470 |                         <Operation>0</Operation>
471 |                     </Platform>
472 |                     <Platform Name="iOSSimulator">
473 |                         <Operation>1</Operation>
474 |                     </Platform>
475 |                     <Platform Name="OSX32">
476 |                         <Operation>1</Operation>
477 |                     </Platform>
478 |                 </DeployClass>
479 |                 <DeployClass Name="iPad_Launch1536">
480 |                     <Platform Name="iOSSimulator">
481 |                         <Operation>1</Operation>
482 |                     </Platform>
483 |                     <Platform Name="iOSDevice64">
484 |                         <Operation>1</Operation>
485 |                     </Platform>
486 |                     <Platform Name="iOSDevice32">
487 |                         <Operation>1</Operation>
488 |                     </Platform>
489 |                 </DeployClass>
490 |                 <DeployClass Name="Android_SplashImage470">
491 |                     <Platform Name="Android">
492 |                         <RemoteDir>res\drawable-normal</RemoteDir>
493 |                         <Operation>1</Operation>
494 |                     </Platform>
495 |                 </DeployClass>
496 |                 <DeployClass Name="Android_LauncherIcon96">
497 |                     <Platform Name="Android">
498 |                         <RemoteDir>res\drawable-xhdpi</RemoteDir>
499 |                         <Operation>1</Operation>
500 |                     </Platform>
501 |                 </DeployClass>
502 |                 <DeployClass Name="Android_SplashImage640">
503 |                     <Platform Name="Android">
504 |                         <RemoteDir>res\drawable-large</RemoteDir>
505 |                         <Operation>1</Operation>
506 |                     </Platform>
507 |                 </DeployClass>
508 |                 <DeployClass Name="iPhone_Launch640x1136">
509 |                     <Platform Name="iOSSimulator">
510 |                         <Operation>1</Operation>
511 |                     </Platform>
512 |                     <Platform Name="iOSDevice64">
513 |                         <Operation>1</Operation>
514 |                     </Platform>
515 |                     <Platform Name="iOSDevice32">
516 |                         <Operation>1</Operation>
517 |                     </Platform>
518 |                 </DeployClass>
519 |                 <DeployClass Name="ProjectiOSEntitlements"/>
520 |                 <DeployClass Name="AndroidGDBServer">
521 |                     <Platform Name="Android">
522 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
523 |                         <Operation>1</Operation>
524 |                     </Platform>
525 |                 </DeployClass>
526 |                 <DeployClass Name="Android_LauncherIcon72">
527 |                     <Platform Name="Android">
528 |                         <RemoteDir>res\drawable-hdpi</RemoteDir>
529 |                         <Operation>1</Operation>
530 |                     </Platform>
531 |                 </DeployClass>
532 |                 <DeployClass Name="ProjectOSXInfoPList"/>
533 |                 <DeployClass Name="ProjectOSXEntitlements"/>
534 |                 <DeployClass Name="iPad_Launch2048">
535 |                     <Platform Name="iOSSimulator">
536 |                         <Operation>1</Operation>
537 |                     </Platform>
538 |                     <Platform Name="iOSDevice64">
539 |                         <Operation>1</Operation>
540 |                     </Platform>
541 |                     <Platform Name="iOSDevice32">
542 |                         <Operation>1</Operation>
543 |                     </Platform>
544 |                 </DeployClass>
545 |                 <DeployClass Name="AndroidSplashStyles">
546 |                     <Platform Name="Android">
547 |                         <RemoteDir>res\values</RemoteDir>
548 |                         <Operation>1</Operation>
549 |                     </Platform>
550 |                 </DeployClass>
551 |                 <DeployClass Name="Android_SplashImage426">
552 |                     <Platform Name="Android">
553 |                         <RemoteDir>res\drawable-small</RemoteDir>
554 |                         <Operation>1</Operation>
555 |                     </Platform>
556 |                 </DeployClass>
557 |                 <DeployClass Name="AndroidSplashImageDef">
558 |                     <Platform Name="Android">
559 |                         <RemoteDir>res\drawable</RemoteDir>
560 |                         <Operation>1</Operation>
561 |                     </Platform>
562 |                 </DeployClass>
563 |                 <DeployClass Name="ProjectiOSResource">
564 |                     <Platform Name="iOSSimulator">
565 |                         <Operation>1</Operation>
566 |                     </Platform>
567 |                     <Platform Name="iOSDevice64">
568 |                         <Operation>1</Operation>
569 |                     </Platform>
570 |                     <Platform Name="iOSDevice32">
571 |                         <Operation>1</Operation>
572 |                     </Platform>
573 |                 </DeployClass>
574 |                 <DeployClass Name="ProjectAndroidManifest">
575 |                     <Platform Name="Android">
576 |                         <Operation>1</Operation>
577 |                     </Platform>
578 |                 </DeployClass>
579 |                 <DeployClass Name="Android_DefaultAppIcon">
580 |                     <Platform Name="Android">
581 |                         <RemoteDir>res\drawable</RemoteDir>
582 |                         <Operation>1</Operation>
583 |                     </Platform>
584 |                 </DeployClass>
585 |                 <DeployClass Name="File">
586 |                     <Platform Name="Win32">
587 |                         <Operation>0</Operation>
588 |                     </Platform>
589 |                     <Platform Name="iOSDevice64">
590 |                         <Operation>0</Operation>
591 |                     </Platform>
592 |                     <Platform Name="OSX32">
593 |                         <Operation>0</Operation>
594 |                     </Platform>
595 |                     <Platform Name="iOSDevice32">
596 |                         <Operation>0</Operation>
597 |                     </Platform>
598 |                     <Platform Name="Android">
599 |                         <Operation>0</Operation>
600 |                     </Platform>
601 |                     <Platform Name="iOSSimulator">
602 |                         <Operation>0</Operation>
603 |                     </Platform>
604 |                 </DeployClass>
605 |                 <DeployClass Name="AndroidServiceOutput">
606 |                     <Platform Name="Android">
607 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
608 |                         <Operation>1</Operation>
609 |                     </Platform>
610 |                 </DeployClass>
611 |                 <DeployClass Required="true" Name="DependencyPackage">
612 |                     <Platform Name="Win32">
613 |                         <Operation>0</Operation>
614 |                         <Extensions>.bpl</Extensions>
615 |                     </Platform>
616 |                     <Platform Name="iOSDevice64">
617 |                         <Operation>1</Operation>
618 |                         <Extensions>.dylib</Extensions>
619 |                     </Platform>
620 |                     <Platform Name="OSX32">
621 |                         <Operation>1</Operation>
622 |                         <Extensions>.dylib</Extensions>
623 |                     </Platform>
624 |                     <Platform Name="iOSDevice32">
625 |                         <Operation>1</Operation>
626 |                         <Extensions>.dylib</Extensions>
627 |                     </Platform>
628 |                     <Platform Name="iOSSimulator">
629 |                         <Operation>1</Operation>
630 |                         <Extensions>.dylib</Extensions>
631 |                     </Platform>
632 |                 </DeployClass>
633 |                 <DeployClass Name="Android_LauncherIcon48">
634 |                     <Platform Name="Android">
635 |                         <RemoteDir>res\drawable-mdpi</RemoteDir>
636 |                         <Operation>1</Operation>
637 |                     </Platform>
638 |                 </DeployClass>
639 |                 <DeployClass Name="Android_SplashImage960">
640 |                     <Platform Name="Android">
641 |                         <RemoteDir>res\drawable-xlarge</RemoteDir>
642 |                         <Operation>1</Operation>
643 |                     </Platform>
644 |                 </DeployClass>
645 |                 <DeployClass Name="Android_LauncherIcon36">
646 |                     <Platform Name="Android">
647 |                         <RemoteDir>res\drawable-ldpi</RemoteDir>
648 |                         <Operation>1</Operation>
649 |                     </Platform>
650 |                 </DeployClass>
651 |                 <DeployClass Name="ProjectiOSDeviceResourceRules"/>
652 |                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
653 |                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
654 |                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
655 |                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
656 |                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
657 |                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
658 |                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
659 |                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
660 |             </Deployment>
661 |             <Platforms>
662 |                 <Platform value="Android">False</Platform>
663 |                 <Platform value="iOSDevice32">False</Platform>
664 |                 <Platform value="iOSDevice64">False</Platform>
665 |                 <Platform value="iOSSimulator">False</Platform>
666 |                 <Platform value="OSX32">False</Platform>
667 |                 <Platform value="Win32">True</Platform>
668 |                 <Platform value="Win64">False</Platform>
669 |             </Platforms>
670 |         </BorlandProject>
671 |         <ProjectFileVersion>12</ProjectFileVersion>
672 |     </ProjectExtensions>
673 |     <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
674 |     <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
675 |     <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
676 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Android'">
677 |         <PreBuildEvent/>
678 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
679 |         <PreLinkEvent/>
680 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
681 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
682 | </PostBuildEvent>
683 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
684 |     </PropertyGroup>
685 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='iOSDevice32'">
686 |         <PreBuildEvent/>
687 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
688 |         <PreLinkEvent/>
689 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
690 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
691 | </PostBuildEvent>
692 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
693 |     </PropertyGroup>
694 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='iOSDevice64'">
695 |         <PreBuildEvent/>
696 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
697 |         <PreLinkEvent/>
698 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
699 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
700 | </PostBuildEvent>
701 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
702 |     </PropertyGroup>
703 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='iOSSimulator'">
704 |         <PreBuildEvent/>
705 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
706 |         <PreLinkEvent/>
707 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
708 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
709 | </PostBuildEvent>
710 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
711 |     </PropertyGroup>
712 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='OSX32'">
713 |         <PreBuildEvent/>
714 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
715 |         <PreLinkEvent/>
716 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
717 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
718 | </PostBuildEvent>
719 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
720 |     </PropertyGroup>
721 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win32'">
722 |         <PreBuildEvent/>
723 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
724 |         <PreLinkEvent/>
725 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
726 |         <PostBuildEvent><![CDATA[]]></PostBuildEvent>
727 |         <PostBuildEventIgnoreExitCode>True</PostBuildEventIgnoreExitCode>
728 |     </PropertyGroup>
729 |     <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win64'">
730 |         <PreBuildEvent/>
731 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
732 |         <PreLinkEvent/>
733 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
734 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
735 | </PostBuildEvent>
736 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
737 |     </PropertyGroup>
738 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Android'">
739 |         <PreBuildEvent/>
740 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
741 |         <PreLinkEvent/>
742 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
743 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
744 | </PostBuildEvent>
745 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
746 |     </PropertyGroup>
747 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='iOSDevice32'">
748 |         <PreBuildEvent/>
749 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
750 |         <PreLinkEvent/>
751 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
752 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
753 | </PostBuildEvent>
754 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
755 |     </PropertyGroup>
756 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='iOSDevice64'">
757 |         <PreBuildEvent/>
758 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
759 |         <PreLinkEvent/>
760 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
761 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
762 | </PostBuildEvent>
763 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
764 |     </PropertyGroup>
765 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='iOSSimulator'">
766 |         <PreBuildEvent/>
767 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
768 |         <PreLinkEvent/>
769 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
770 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
771 | </PostBuildEvent>
772 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
773 |     </PropertyGroup>
774 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='OSX32'">
775 |         <PreBuildEvent/>
776 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
777 |         <PreLinkEvent/>
778 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
779 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
780 | </PostBuildEvent>
781 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
782 |     </PropertyGroup>
783 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win32'">
784 |         <PreBuildEvent/>
785 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
786 |         <PreLinkEvent/>
787 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
788 |         <PostBuildEvent><![CDATA[]]></PostBuildEvent>
789 |         <PostBuildEventIgnoreExitCode>True</PostBuildEventIgnoreExitCode>
790 |     </PropertyGroup>
791 |     <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win64'">
792 |         <PreBuildEvent/>
793 |         <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
794 |         <PreLinkEvent/>
795 |         <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
796 |         <PostBuildEvent>copy /Y $(OUTPUTPATH) $(WINDIR)
797 | </PostBuildEvent>
798 |         <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
799 |     </PropertyGroup>
800 | </Project>
801 | 
802 | <!-- EurekaLog First Line
803 | [Exception Log]
804 | EurekaLog Version=7007
805 | Activate=0
806 | atConsole=1
807 | DeleteMapAfterCompile=0
808 | Dialog Class="TConsoleWriterDialog"
809 | dpJCL=1
810 | Encrypt Password=""
811 | idConsole=1
812 | ProjectID="{862B4B0C-0BBF-4F28-A0DD-D025B6BDB781}"
813 | sndScreenshot=0
814 | EurekaLog Last Line -->
815 | 


--------------------------------------------------------------------------------