Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  15:14[Войти] | [Зарегистрироваться]
Ответ на вопрос № 16341

28-04-2003 16:52
Раскажите пожалуйста, как правильно можно доверить DLL-ке создание
объектов (экземпляров класса описанного в ней) в главном модуле, который
вызывает эту самую DLL-ку.

Owner'а ей ведь надо передать как-то, но как? Поинтером или просто
TComponent? И как вернуть в главный модуль созданный объект?

Имею:

----------------------I---------------
library actuator1;

uses
ShareMem //а нужен ли он? и с ним и без него - ничего у меня не вышло
..
TValve in 'Valve.pas'
CommonTypes in 'CommonTypes.pas';

function CreateObject(AOwner: TComponent): TControl;
begin
  Result:= TValve.Create(AOwner);
end;

exports
  CreateObject index 1 name 'CreateObject'

------------------II--------------------
unit valve;

type TValve = class (TGraphicControl);

public
  constructor Create(AOwner: TComponent); override;
..

constructor TValve.Create
begin
  inhereted Create(AOwner);
end;

//в общем ничего особенного - просто компонент

---------------------III-----------------
//вызов из главной программы

procedure TForm1.LoadObject();
var FHandle: THandle //чем отличается от HWND?
    Temp: TControl;
    Func: function (AOwner:TComponent): TControl;
begin
  FHandle:= LoadLibrary(PChar('actuator1.dll'));
  @Func:= GetProcAddress(FHandle,'CreateObject');
  //стопудово все грузится и функция находится, по-крайней мере не nil
  Temp:= Func(Image1);
  //Image1 лежит на ScrollBox1, а он на Form1
  FreeLibrary(FHandle);

// а теперь самое сташное - на следующей строчке Access Violation в
Project1.exe

  Temp.Parent:= ScrollBox1;
end;
-------------------------------------------
После этого эта ошибка вылезает и при закрытии приложения, и к Image'у
кстати тоже не обратиться (Access Violation). Похоже DLL-ка его
изнасиловала.

В общем расскажите, если знаете как это реализовать? Я уже замучился.
Диплом блин простаивает.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

05-05-2003 10:22
А зачем вызывать FreeLibrary? Вы же создаёте объект в DLL, затем выгружаете DLL, а затем обращаетесь к объекту, созданному в DLL. Лучше не торопиться с выгрузкой.

28-04-2003 18:59
Ну, во-первых, насчет ShareMem - в твоем случае он нужен, потому что тебе придется в главном модуле уничтожать объект, который был создан в DLL.
Во-вторых, насчет Owner - в принципе, при создании любого потомка TComponent Owner можно и не указывать (т.е. передать nil в качестве параметра конструктора). Только в этом случае о вызове деструктора придется позаботиться самому. Или же можно в качестве Owner указать Application.
К сожалению, из приведенного кода не видно, в чем причина ошибки. Поэтому могу лишь предложить направления поиска.
1. Попробовать, работает ли все то же самое без использования DLL.
2. Если да - попробовать вместо динамической подгрузки DLL статический вариант - т.е. вместо использования LoadLibrary объявить вызываемую функцию в главной программе как external.
Ничего более конкретного сказать, увы, не могу.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Раз дощечка, два дощечка будет лесенка. Раз словечко, два словечко, будет ЧТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования