Cách cấu hình đúng dự án Delphi XE2 đa nền tảng?

Question

Ngay bây giờ tôi có 2 nền tảng (Mac và Win32) và 2 cấu hình (Debug ans Release). Toàn bộ điều này thuộc về SVN.

Đây là bố trí cho xây dựng đầu ra:

.\App\$(Platform)\$(Config) 

Mã này được chia thành vài thư mục và nằm ở đây:

.\Code\MyProject.dpr 
.\Code\Common\ 
.\Code\Forms\ 
.\Code\Source\ 

tập tin dữ liệu Common đang ở đây:

.\Data\ custom data files (dlls, textures, models, etc.) 

này chương trình có một số sai sót mặc dù, mà tôi cần phải giải quyết, nhưng tôi không biết làm thế nào để làm cho nó tốt hơn. Tôi muốn chỉ có một tập hợp các tập tin dữ liệu trong SVN trong thư mục Data, nhưng tôi cần phải sao chép nó vào .\App\$(Platform)\$(Config) đường dẫn tự động trong xây dựng (lưu ý, một số tập tin dữ liệu phổ biến cho cả hai nền tảng, nhưng một số thì không). Có cách nào để thiết lập quá trình xây dựng để sao chép các tập tin, giống như nó với triển khai và PAServer? Ngoài ra tôi có thể thiết lập đường dẫn đến tập tin dữ liệu như ..\..\Data, nhưng điều đó có vẻ kỳ lạ với tôi.

Có thể có một số tùy chọn khác mà tôi không biết hoặc bố cục dự án có thể được thay đổi hoàn toàn? Làm thế nào bạn sẽ thiết lập cấu trúc dự án và xây dựng để biên dịch nền tảng?

Answer 1

Sử dụng các hành động Xây dựng bài đăng.

Từ Tùy chọn dự án | Xây dựng sự kiện | Đăng sự kiện | Lệnh

Đọc thêm tại

1. Creating Build Events

2. Pre and Post-Build Automation in Delphi

Answer 2

Ok, đây là một bài cũ, nhưng đây là những gì tôi làm trong Delphi (và tương tự trong Visual Studio) để giải quyết vấn đề này khi có các tệp thi hành đầu ra nền tảng/cấu hình khác nhau trong các thư mục khác nhau, nhưng một tập hợp dữ liệu chung. Tôi có một chức năng để loại bỏ các phần phụ "thư mục", sau đó ứng dụng của tôi luôn có thể truy cập dữ liệu chung trong thư mục gốc của các thư mục này (trong trường hợp của bạn. \ App). Tất nhiên bạn có thể thêm các nền tảng và cấu hình khác vào hàm ProjectPath theo yêu cầu:

uses System.StrUtils; 
... 
function ProjectPath : string; 
// Removes sub-folders created by the Delphi IDE, so the executable can refer to the source folder, 
// rather than to where the executable is. 
// Excludes trailiong path delimiter 
begin 
    Result := ExtractFilePath (Application.ExeName); 
    Result := System.StrUtils.ReplaceText (Result, '\Win32' , ''); // ReplaceText is case insensitive 
    Result := System.StrUtils.ReplaceText (Result, '\Win64' , ''); 
    Result := System.StrUtils.ReplaceText (Result, '\Debug' , ''); 
    Result := System.StrUtils.ReplaceText (Result, '\Release', ''); 
    Result := ExcludeTrailingPathDelimiter (Result); 
end; 
... 
ConnectionString := 'Database=' + ProjectPath +'\DATAFILE.DAT;etc.';