в проекте использование bpl package

[xxbesoxx]

Ребята здравствуйте . Раньше работал на одном большом проекте , проект било на Delphi и там было несколько bpl файл проекте ... коротко сказали что преимущество этого bpl что не увеличить размер exe файл .... там на каждом bpl файле работал несколько человек. У каждого было разные задача...
У меня несколько вопросов .
1) Где почитать преимущество и недостатки применение bpl package
2) Где посмотреть пример как его создается и как его использовать проекте.
Может скажете какой то книга-литература где это написано подробно или силка где можно посмотреть примеру .

[Человек_Борща]

1) Где почитать преимущество и недостатки применение bpl package

Ну не в exe потянешь лишние 3 Mb кода, так в BPL. И будет у тебя уже 2 файла, 1 exe в 100 кб, второй bpl в 3 Mb. И exe без него не заработает.

Вот и вся разница. А ещё Exe загружается быстрее, компилируется и линкуется только действительно твой код.

Но как не крути, BPL будешь таскать с собой.

2) Где посмотреть пример как его создается и как его использовать проекте.

BPL это компилированный DPK в режиме run-time пакета. Просто толаешь туда свои классы и модули, компилируешь, подключаешь к проекту и используешь в uses модули из BPL как если бы у тебя не было bpl.

На королевстве Delphi ,а так же у товарища GunSmoker'а на сайте, есть цикл статей по разработке модульной программы с применением BPL-пакетов.

[xxbesoxx]

BPL это компилированный DPK в режиме run-time пакета. Просто толаешь туда свои классы и модули, компилируешь, подключаешь к проекту и используешь в uses модули из BPL как если бы у тебя не было bpl.

Это теория, да огромное вам спасибо за внимание! Но, где почитать практически пример на него создание и использование как на скриншоте ?

[Человек_Борща]

Это теория, да огромное вам спасибо за внимание! Но, где почитать практически пример на него создание и использование как на скриншоте ?

Читайте сообщения целиком. Я аж 2 места назвал где по пунктам расписывается создание приложения на BPL-пакетах.

[xxbesoxx]

На королевстве Delphi ,а так же у товарища GunSmoker'а на сайте, есть цикл статей по разработке модульной программы с применением BPL-пакетов.

Думаю что силка не запрещено на форуме . Пожалуйста выложите силка

Я аж 2 места назвал где по пунктам расписывается создание приложения на BPL-пакетах.

Пожалуйста выложите силка

[Аватар]

http://www.google.com.ua/search?hl=r...75.h9LD31gd1XY

[xxbesoxx]

Каму не трудно помогите разобрать подгрузить bpl на форму и то формы который есть созданы bpl
1) Создаю bpl сохраняю отдельное папке у него два раздел (Contains) и (Requires).
2) разделе Contains выбираю контекстное меню Add New--> Form создаю формы. Все форму и юнит даю своего имя . и закрываю, все пакет я создал ...
3) Для примера у меня простои форма Form1 и на него 2 кнопка.
Вопрос:
на это форму хочу подгрузить это xxx.bpl и при нажатие эти кнопки вызвать эту форму который есть у этого xxx.bpl
Я тренирую на Delphi 2010 Но на данный момент без разница . главное что показали как подгрузить это bpl и вызвать это формы , что применять потом на практике ...

[xxbesoxx]

Пакет подгрузил , Но форму как вызвать ?

procedure TForm1.FormCreate(Sender: TObject);
var
  FormScroll: TForm;
  FormClass: TFormClass;
  HandlePack: HModule;
begin
  HandlePack := LoadPackage ('partners.bpl'); //подгрузить пакет
  if HandlePack > 0 then
  begin
    FormClass := TFormClass(GetClass('TfrmCustomers'));  //   TfrmCustomers -это форма  который у BPL
  end;
  if Assigned (FormClass) then
  begin
    FormScroll := FormClass.Create(Application);
    try
      // Как вызвать форму   frmCustomers
    finally
      FormScroll.Free;
    end;
  end;
end;

Есть примеры в книге , Но функция SetPropValue не работает . Здесь тоже пример для старого Delphi http://www.marcocantu.com/code/md6htm/DynaPackForm.htm Но, на новом не работает это част кода

 SetPropValue (FormScroll, 'SelectedColor', Color);
        // show the form
        if FormScroll.ShowModal = mrOK then
          Color := GetPropValue (FormScroll, 'SelectedColor');

как добраться на то форму который у меня BPL е ? как его вызвать ?

[northener]

Сообщение от xxbesoxx

Пакет подгрузил , Но форму как вызвать?

Ты всё-таки скажи зачем тебе пакеты?
1. В твоем топике было написано:

Раньше работал на одном большом проекте , проект било на Delphi и там было несколько bpl файл проекте ... коротко сказали что преимущество этого bpl что не увеличить размер exe файл .... там на каждом bpl файле работал несколько человек. У каждого было разные задача...

Это явно подразумевается статическую загрузку пакета и в этом случае ничего делать особого не нужно. Программа использующая таким образом пакет(ы) пишется абсолютно также как и программа не использующая пакеты. Только в опциях проекта ставится галочка Build with runtime packages (то ли в Д2010, то ли в ДельфиХЕ название галочки уже поменяли, как и её значение) и в списке используемых пакетов указываются те самые пакеты.
2. Ты интересуешься принципом работы с плагинами.
Вот только в этом случае тебе понадобится динамическая загрузка пакета.

[xxbesoxx]

Ты всё-таки скажи зачем тебе пакеты?

Мне интересно разобрать его . Что бы дальнейшем применять на практике

2. Ты интересуешься принципом работы с плагинами.
Вот только в этом случае тебе понадобится динамическая загрузка пакета.

Доброе ночи northener ну где я допускаю ошибку ?

procedure TForm1.Button1Click(Sender: TObject);
var
  FormCust: TForm;
  AClass: TPersistentClass;
  HandlePack: HModule;
begin
  HandlePack := LoadPackage('partners.bpl'); // подгрузить пакет
  if HandlePack <> 0 then
  begin
    AClass := GetClass('TfrmCustomers'); // TfrmCustomers -это форма  который у BPL
    if AClass <> nil then
    begin
      FormCust := TComponentClass(AClass).Create(Application) as TForm;
      FormCust.ShowModal;

    end;

  end;
end;