Проблемка: http://forum.vingrad.ru/index.php?showtopic=14456

shootter 11.06.2004 - 13:37 | та же проблема- GetClass выдает все время null может кто сталкивался?
shootter 1 - 11.06.2004 - 13:43 | up please!
shootter 2 - 15.06.2004 - 07:53 | up! никто не сталкивался ?
LF 3 - 15.06.2004 - 08:48 | А тут типа влом написать? еще б на ньюсы MS давали бы ссылку
shootter 4 - 15.06.2004 - 12:01 | /* ИЗ форума .Загрузка пакетов во время исполнения программы */ Наиболее интересный на мой взгляд способ, но тут я стокнулся с одной проблемой, которую уже как 2 часа не могу решить(может кто поимет в чем дело). Открываешь созданный тобою уже пакет и добавляешь такой код. CODE initialization RegisterClass(TForm1){или твое название формы} Данный код нужен для того чтобы получить доступ к этому классу функцией GetClass. Сохраняешь свой пакет и компилишь его. Создаешь тестирующее приложение: CODE unit ULoaderPlugin; interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, TypInfo; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var PackForm:TForm; FormClass:TFormClass; hPack:HMODULE; begin hPack:= LoadPackage(ExtractFilePath(ParamStr(0))+'PluginPack.bpl'); if hPack > 0 then begin FormClass:= TFormClass(GetClass('TPackForm')); if Assigned(FormClass) then begin PackForm:= FormClass.Create(Self); try PackForm.ShowModal; finally FreeAndNil(PackForm); end; end else Showmessage('Class not found'); UnLoadPackage(hPack); end else ShowMessage('Error load package'); end; end. Проблема, о которой я уже писал, заключается в том, что когда я вызываю GetClass он всегда возвращает nil. Хотя похожий пример из книги "Delphi 6" Марко Кенту работает нормально. Может у кого есть идей на этот счет? Таким образом, если разобраться с этой проблемой, то можно написать класс для юзания плагинов, например в своей программе можно отвести соответствующую директорию и при каждом запуске проги получать из нее все все файлы и загружать их. Чем я и займусь, если эта проблема решится. Вот- у меня таже самая лажа получается :-(
LF 5 - 15.06.2004 - 13:10 | Вообщето принято в топике темы писать к какому языку оно относится C++/Pascal/VB/SDK
shootter 6 - 15.06.2004 - 13:33 | программа на Pascal/Delphi7
Старый UE 7 - 15.06.2004 - 18:28 | Может надо в качестве имени класса указать квалифицированное имя (или как это называется?), т.е. примерно так: '<NamespaceName>.<ClassName>' ?

>>