Скачать: CL | DM;

подключаю bpl   Найти похожие ветки 

← →
Frozen   (2006-09-07 09:10) [0]

День добрый уважаемые!
Подключаю бпл. В ее коде прописал

initialization
 if not Assigned(GetClass("TfrmEditVar")) then RegisterClass(TfrmEditVar);
finalization
 if Assigned(GetClass("TfrmEditVar")) then UnRegisterClass(TfrmEditVar);

Подгружаю:
FileName := ExtractFilePath(Application.ExeName) + "bpl\EditVar.bpl";
  try
          FPackageHandle := LoadPackage(FileName);
         if FPackageHandle = 0 then begin ShowMessage("!"); RaiseLastWin32Error();end;
       except
           ShowMessage("!!!");
       end;

       frmClass := TFormClass(GetClass("TfrmEditVar"));  - не находит класс
       if not Assigned(frmClass) then
                          begin
                        ShowMessage("DDD");  
                        Exit;
       end;
       frm := TForm(frmclass.Create(nil));
       frm.showmodal;

Подскажите!?

---

← →
Lexer ©   (2006-09-07 10:19) [1]

Build with runtime packages?

---

← →
Frozen   (2006-09-07 10:27) [2]

поставил
Could not create output file: VirtualTreesD7.bpl

как это лечиться?

---

← →
Frozen   (2006-09-07 11:56) [3]

как уже сказал поставил галку Build with runtime packages.
в строке отставил один vcl
скомпилировал. запустил.
теперь сдесь
try
         FPackageHandle := LoadPackage(FileName);
        if FPackageHandle = 0 then begin ShowMessage("!"); RaiseLastWin32Error();end;
      except
          ShowMessage("!!!");
      end;

уходит в эксепшен!?
???

---

← →
Frozen   (2006-09-07 12:12) [4]

заработало!

---

← →
Frozen   (2006-09-07 12:30) [5]

но при закрытии приложения возникает ошибка с памятью! вот весь код главного приложения:

FileName := ExtractFilePath(Application.ExeName) + "bpl\EditVar.bpl";
       try
                 FPackageHandle := LoadPackage(FileName);
                 if FPackageHandle = 0 then begin ShowMessage("!"); RaiseLastWin32Error();end;

       except
           ShowMessage("!!!");
       end;

       frmClass := TFormClass(GetClass("TfrmEditVar"));
       if not Assigned(frmClass) then
                          begin
                            ShowMessage("DDD");
                            Exit;
end;

в чем может быть причина?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c