![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с пакетами(package) [D7, XP]
Megabyte © (2006-10-30 17:37:00)Подкиньте ссылок, где описывается работа с пакетами.
Перерыл поиском и наш сайт, а DelphiKingdom, нашел одну статью, но слишком громозкую для первоначального понимания(взаимодействие через интерфейсы и т.д.).
Мне не требуется пока ничего особенного, просто подгружать пакет и использовать конкретный метод.
Загружаю пакет через LoadLibrary. Что дальше делать, как обратиться к конкретному методу, не знаю?
В SysUtils посмотрел все методы работы с пакетами. Там есть метод:GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc);
//Но я не знаю, что обозначает послений параметр и как им пользоваться?
Megabyte (2006-10-31 13:02:00) [1]У меня есть базовый класс-отчет(TSimpleOtchet). В нем есть свойство
property SelectSQL : TStrings read fSelectSQL write SetSelectSQL;
Загрузка пакета и сам вызов методов проходит нормально.
Но вот если пытаюсь присвоить свойству значение(вызываю в приложении метод(да просто метод test) наследуемого класса-отчета(TStateOtchet), в кот. прямо присваиваю значение) :SelectSQL.Add('select * from v_otchet_state');, то выдает исключение EAbstractError(?), хотя абстрактных методов у меня вообще нет. Подскажите плз...
Так выглядит процедура установки свойства:procedure TSimpleOtchet.SetSelectSQL(value : TStrings);
begin
FSelectSQL.Assign(value);
end;
Megabyte (2006-10-31 10:42:00) [2]
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=274- это попроще и без интерфейсов
Я, честно, не понял такую вещь!
Я объявляю переменную такого типа класса, кот. описан в одном из модулей пакета. Исходя из примера, требуется добавить в uses раздела implemantation ссылки на модули(unit) из пакета. Я могу создать экземпляр класса независимо от того, применяю ли я функцию LoadPackage или нет.
В чем фишка-то?
Я думал, что мне будет недоступно создание класса и его использование без подгрузки плагина.
implementation
uses dmod, uRepairState; //2-й - это модуль, где описан класс
procedure Tfrm_main.CreateOtchetState(aOtchetDir : string);
var
filename : TFileName;
FPackageHandle : HMODULE;
...
OtchetState : TOtchetState; //переменная класса отчета
begin
{filename := ExtractFilePath(Application.ExeName) + '\state.bpl';
FPackageHandle := LoadPackage(FileName);}
...
OtchetState := TOtchetState.Create;
showmessage(OtchetState.test); //метод test выдает строку
...
end;
Т.е. без кода в фигурных скобках я так же могу использовать класс. Для чего тогда требуется процесс загрузки пакета с помощью LoadPackage? Вопрос м.б. и глупый, но просто хочется понять до конца.
Во 2-й ссылке было рассказано про различные варианты загрузки(статическая, динамическая), м.б. как-то с этим связано...
Ketmar (2006-10-30 17:46:00) [3]вот же любит народ всё делать через не то место...
http://www.softwarer.ru/packages.html
Игорь Шевченко (2006-10-30 17:45:00) [4]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=274- это попроще и без интерфейсов