Delphi создать Package и там Form

@xxbesoxx · Регистрация: 13.02.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте ребята. В проекте может будет несколько форма и exe файле размер увеличивается . Я хочу создать package и на это пакете создать формы и потом это пакет и формы подгрузить проекте .
на данный момент у меня DelphiXE3
1) создаю package и на него формы сохраняю отдельное папке компилирую и закрываю
2) создаю форму и на это хочу подгрузить это пакет и пользоваться это формы который у меня в пакете, для этого пишу так

Delphi

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

Форма не загружается . Кому не трудно помогите пожалуйста разобрать как пользоваться то формы который у меня пакете ?

@NT SERVICE · 10.01.2015, 10:58

A, на ХЕ6 Bulid with runtime packages = Link with runtime packages?

@mss · 10.01.2015, 18:48

Не по теме:

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

Я вам не спрашиваю

Из серии "почему "квас" пишется слитно, а "к вам" раздельно)

@xxbesoxx · 10.01.2015, 20:22 **[ТС]**

Не по теме:

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

Из серии "почему "квас" пишется слитно, а "к вам" раздельно)

Я не понимаю зачем ты меня строишь это ФЛУД ??? Ты меня учишь Русский язык ? Все форум знает что я не Русский, ну и что ? Русский это не мой родной язык и за это допускаю ( грамматические ошибки ) Причем здесь это и почему я должен объяснить ? Я тебя что то мешаю ? Здесь тоже в наши стране живут Русский населения и у меня много друзей Русский От куда тебя такой зло про грузинский людей ? Веди себя нормально пожалуйста .... У МЕНЯ ТАКОЙ ВПЕЧАТЛЕНИЯ КАК БУДТО МЕНЯ НА ГРАНИЦЕ ПОГРАНИЧНИК ОСТАНАВЛИВАЕТ, ИЛИ ВОЗЛЕ МЕТРО, МЕНТЫ ПРОСИТЬ ( ПОКАЖИТЕ ВАШИ ДОКУМЕНТЫ) :D :D :D Может вы хотите что я вам документы показал :D сниму штаны и покажу

@mss · 10.01.2015, 20:31

Не по теме:

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

От куда тебя такой зло про грузинский людей ?

Да нет никакого зла - я рад что анекдот тебе понравился)

Добавлено через 1 минуту
А все что от тебя требовалось - сразу и внятно пояснить что условие AClass <> nil у тебя почему-то не выполняется.

@xxbesoxx · 10.01.2015, 22:36 **[ТС]**

Не по теме:

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

Да нет никакого зла - я рад что анекдот тебе понравился)

Тогда зачем вы играйте на нервах ? из начальной начинали злится . Вы меня не удивите с этим :D

Добавлено через 4 минуты

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

сразу и внятно пояснить что условие AClass <> nil у тебя почему-то не выполняется.

Ну давай расходимся по человеческий , Это бывает когда что изучаешь и за это мы люди спрашиваем друг-другу..

Добавлено через 5 минут

Не по теме:

А ваши реакция било неадекватный .... Если меня спросить Русский человек (Что то) на Грузинском языке и с ошибками Я не буду издеваться что он не грамотно разговаривает ! буду стараться помощь его .... и не только я так , везде все нормальны люди так делает ....

Добавлено через 1 час 53 минуты
Как на #13 говорят что rtl и vcl должен подключен . Протестировал если перенести на другом компьютере в месте exe файла надо еще перенести это бпл файл

Для 64_ bit Windows копировать на ---> C:\Windows\SysWOW64
1) rtl140.bpl - 14 в в моем случае это Delphi 2010 если Delphi XE3 тогда будет rtl170.bpl
2) vcl140.bpl это тоже от Delphi 2010
3) partners.bpl это мои бпл где у меня 2 форма

А для 32_ bit Windows копировать на ---> C:\Windows\System32 и все работает хорошо.... еще раз спасибо ребята

@northener · 11.01.2015, 03:31

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

Для 64_ bit Windows копировать на ---> C:\Windows\SysWOW64

Каким инсталлятором пользуешься/собираешься пользоваться?

@xxbesoxx · 11.01.2015, 03:57 **[ТС]**

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

Каким инсталлятором пользуешься/собираешься пользоваться?

Не знаю друг ... надо попробовать ... Пака у меня время нету на него , главное что разобрал какой файл и куда надо перенести.... освобожусь наверно через 2-3 дня и попробую , что получится обязательно напишу

@northener · 11.01.2015, 04:04

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

Не знаю друг ... надо попробовать ... Пака у меня время нету на него , главное что разобрал какой файл и куда надо перенести....

Я просто к тому, что если ты будешь пользоваться каким-либо инсталлятором, то тебе не обязательно знать в какую именно папку записывать свои bpl-ки в зависимости от разрядности ОС. Инсталлятор сам с этим справится.

@xxbesoxx · 11.01.2015, 04:06 **[ТС]**

Без пакету всегда exe файл передал . Но , на прошлом летом запустил проект для ломбарда и exe файл весит 55.5 MB ... пользователи нечего не говорить , мне это не нравится и за это решил разобрать с пакетом

Добавлено через 1 минуту

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

Инсталлятор сам с этим справится.

Не знал , Спасибо что сказали

попробую и напишу что получится

@NT SERVICE 122 / 120 / 41 Регистрация: 27.01.2013 Сообщений: 546
	10.01.2015, 10:58	21
	A, на ХЕ6 Bulid with runtime packages = Link with runtime packages? 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	10.01.2015, 22:36 [ТС]	25
	Не по теме: Сообщение от mss Да нет никакого зла - я рад что анекдот тебе понравился) Тогда зачем вы играйте на нервах ? из начальной начинали злится . Вы меня не удивите с этим :D Добавлено через 4 минуты Сообщение от mss сразу и внятно пояснить что условие AClass <> nil у тебя почему-то не выполняется. Ну давай расходимся по человеческий , Это бывает когда что изучаешь и за это мы люди спрашиваем друг-другу.. Добавлено через 5 минут Не по теме: А ваши реакция било неадекватный .... Если меня спросить Русский человек (Что то) на Грузинском языке и с ошибками Я не буду издеваться что он не грамотно разговаривает ! буду стараться помощь его .... и не только я так , везде все нормальны люди так делает .... Добавлено через 1 час 53 минуты Как на #13 говорят что rtl и vcl должен подключен . Протестировал если перенести на другом компьютере в месте exe файла надо еще перенести это бпл файл Для 64_ bit Windows копировать на ---> C:\Windows\SysWOW64 1) rtl140.bpl - 14 в в моем случае это Delphi 2010 если Delphi XE3 тогда будет rtl170.bpl 2) vcl140.bpl это тоже от Delphi 2010 3) partners.bpl это мои бпл где у меня 2 форма А для 32_ bit Windows копировать на ---> C:\Windows\System32 и все работает хорошо.... еще раз спасибо ребята 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	11.01.2015, 03:31	26
	Сообщение от xxbesoxx Для 64_ bit Windows копировать на ---> C:\Windows\SysWOW64 Каким инсталлятором пользуешься/собираешься пользоваться? 1

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	11.01.2015, 03:57 [ТС]	27
	Сообщение от northener Каким инсталлятором пользуешься/собираешься пользоваться? Не знаю друг ... надо попробовать ... Пака у меня время нету на него , главное что разобрал какой файл и куда надо перенести.... освобожусь наверно через 2-3 дня и попробую , что получится обязательно напишу 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	11.01.2015, 04:04	28
	Сообщение от xxbesoxx Не знаю друг ... надо попробовать ... Пака у меня время нету на него , главное что разобрал какой файл и куда надо перенести.... Я просто к тому, что если ты будешь пользоваться каким-либо инсталлятором, то тебе не обязательно знать в какую именно папку записывать свои bpl-ки в зависимости от разрядности ОС. Инсталлятор сам с этим справится. 1

@mss
	10.01.2015, 18:48 #22
	Не по теме: Сообщение от xxbesoxx Я вам не спрашиваю Из серии "почему "квас" пишется слитно, а "к вам" раздельно) 0

@xxbesoxx
	10.01.2015, 20:22 [ТС] #23
	Не по теме: Сообщение от mss Из серии "почему "квас" пишется слитно, а "к вам" раздельно) Я не понимаю зачем ты меня строишь это ФЛУД ??? Ты меня учишь Русский язык ? Все форум знает что я не Русский, ну и что ? Русский это не мой родной язык и за это допускаю ( грамматические ошибки ) Причем здесь это и почему я должен объяснить ? Я тебя что то мешаю ? Здесь тоже в наши стране живут Русский населения и у меня много друзей Русский От куда тебя такой зло про грузинский людей ? Веди себя нормально пожалуйста .... У МЕНЯ ТАКОЙ ВПЕЧАТЛЕНИЯ КАК БУДТО МЕНЯ НА ГРАНИЦЕ ПОГРАНИЧНИК ОСТАНАВЛИВАЕТ, ИЛИ ВОЗЛЕ МЕТРО, МЕНТЫ ПРОСИТЬ ( ПОКАЖИТЕ ВАШИ ДОКУМЕНТЫ) :D :D :D Может вы хотите что я вам документы показал :D сниму штаны и покажу 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.01.2015, 20:31	24
	Не по теме: Сообщение от xxbesoxx От куда тебя такой зло про грузинский людей ? Да нет никакого зла - я рад что анекдот тебе понравился) Добавлено через 1 минуту А все что от тебя требовалось - сразу и внятно пояснить что условие AClass <> nil у тебя почему-то не выполняется. 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	11.01.2015, 04:06 [ТС]	29
	Без пакету всегда exe файл передал . Но , на прошлом летом запустил проект для ломбарда и exe файл весит 55.5 MB ... пользователи нечего не говорить , мне это не нравится и за это решил разобрать с пакетом Добавлено через 1 минуту Сообщение от northener Инсталлятор сам с этим справится. Не знал , Спасибо что сказали попробую и напишу что получится 0