Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Инициализация переменных во внутреннем сервере автоматизации DLL [Delphi]


HollowMan ©   (2005-02-03 16:03:00) 

Описал переменную в секции interface private
Как мне ей задать начальное значение?


Silver Alex   (2005-02-03 19:01:00) [1]

unit NAME_DLL
..
type
TNAME_DLL = class(TAutoObject, INAME_DLL)
public
  procedure Initialize;override;
end;
 
дожно работать


HollowMan   (2005-02-03 18:44:00) [2]

Всё правильно...
Что то подобное мне и надо TNAME_DLL.Initialize

просто при добавлении этой процедуры в секцию implementation не хочет работать... говорит что -  Undeclared identifier 'Initialize'

как эту процедуру правильно описать?


Silver Alex   (2005-02-03 18:26:00) [3]

не совсем ясно что именно тебе нужно.
я так  понимаю что эта переменная будет разная для каждого клиента, раз она обьявлена в  private.
если это значение не равно 0, тогда правильно для COM обьектов использовать метод initialize.

procedure  TNAME_DLL.initialize;
begin
 inherited initialize;
 peremennaj:=578;
 ....
end;


HollowMan   (2005-02-03 17:18:00) [4]

Возможно я невнятно выражаюсь:

unit NAME_DLL

interface

uses ComObj...;

type
 TNAME_DLL = class(TAutoObject, INAME_DLL)

 private

peremennaj: integer;

Как переменной "peremennaj" задать начальное значение которое будет использоватся и изменятся в методах COM объекта?


Набережных С.   (2005-02-03 17:06:00) [5]

>Описал переменную в секции interface private

Ась? Эт че за зверь?


Наверх

Титульная страница Поиск, карта сайта Написать письмо