Làm thế nào để bạn lấy tên đơn vị mới từ các công cụ mở của Delphi API

Question

Tôi đã viết một thuật sĩ trong Delphi XE, và nó hoạt động tốt. Tuy nhiên, tôi chưa tìm ra cách truy cập tên đơn vị mặc định đã tạo (hoặc tên biểu mẫu hoặc tên dự án) mà OTA của Delphi có thể tạo ra.

Trong trình hướng dẫn kiểu cũ, tôi có thể gọi ToolServices.GetNewModuleName để khám phá một đơn vị và tên biểu mẫu có sẵn mà tôi có thể sử dụng khi tạo tệp nguồn được liên kết. Tương đương với API công cụ mở ngày nay là gì?

Theo nhận xét của đơn vị ToolsAPI, tôi phải trả về trống từ phương thức IOTAModuleCreator.GetImplFileName để có Delphi tạo tên tệp. Tôi đang trả về một chuỗi rỗng từ phương thức này, nhưng vẫn không thể thấy nơi tôi có thể truy cập tên tệp mà Delphi đang tạo ra.

Answer 1

Có một phương pháp cụ thể để có được một hình thức và đơn vị tên mới:

(BorlandIDEServices như IOTAModuleServices) .GetNewModuleAndClassName ( '', UnitIdent, FormName, FileName);

Tôi đã sử dụng trong một vài ví dụ và có vẻ như hoạt động tốt.

Answer 2

Phương thức IOTAModuleCreator.NewImplSource có bộ mô-đun "ModuleIdent", đó là tên đơn vị.

Answer 3

Trong thử nghiệm của tôi, nó hoạt động như bạn mong đợi (ModuleIdent tham số trong phương thức NewImplSource nhận tên đơn vị mới). Kiểm tra thực hiện của bạn một lần nữa, đặc biệt là đảm bảo rằng:

• IOTACreator.GetUnnamed trả về true
• IOTACreator.GetExisting lợi nhuận False
• IOTACreator.GetCreatorType trả về nhận dạng thích hợp (sUnit, sForm, vv) - Tôi không chắc chắn về điều này nhưng điều đó cũng quan trọng, quá

Here là ví dụ làm việc. Tôi chỉ cần kiểm tra nó và mã vẫn có vẻ như làm việc như mong đợi trong Delphi XE.