Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Снова OLE

Алексей Петухов © (2006-01-24 19:09:00)
Здравствуйте, уважаемые Мастера.

Вот без вашей помощи никак не обойтись.
Посоветуйте ссылки на статьи в Internet-е где можно про OLE-automation "с нуля" почитать.
Или может кто примером кода побожет?
Тогда задачка:
Необходим OLE-сервер содержащий следующие вызовы (из внешнего процесса):

где Document- к примеру форма с кнопкой "Выход".

OLE:=CreateComObject(OLE_SRV_TLB.CLASS_Application)as OLE_SRV_TLB._Application; ... 1. OLE.Documents // как объект 2. OLE.Documents.Count // колличество док-ов 3. i:=OLE.CreateDocument //возвращает №созданного док-та 4. OLE.Documents.items[i].Status //просто например 5. OLE.Documents.items[i].Reliase //освободить память от док-та 6. OLE.Show //деуствует на все Documents 7. OLE.Quit; //выгружает OLEautomation из памяти.

желательно чтобы каждый Document выглядел как отдельная задача.

Заранее благодарю. Алексей.

Алексей Петухов (2006-02-07 10:51:00) [1]
вот пытаюсь сделать по примеру AutoServ.
у интерфейса IFRDocодно свойство - ItemIndex;

TFRDocument = class(TObject) constructor Create; private FRDoc_:TFRDoc_; end; TFRDoc = class(TAutoObject, IFRDoc) protected function Get_ItemIndex: Integer; safecall; end; constructor TFRDocument.Create; begin inherited Create; FRDoc_:=TFRDoc_.Create;- получаю ошибку: Object factory for class TMyIClass misstng
end;

Что означает эта ошибка и как с этим бороться?

Алексей Петухов (2006-01-27 20:18:00) [2]
Мммммм может уточнить?

Алексей Петухов (2006-01-26 16:43:00) [3]
Здравствуйте. Это опять я.

Создал сервер в виде EXE, Single instance, Apartment, события неподдеживаются.
В клиенте запускаю сервер командой CreateComObject.

1. Как сделать так, чтобы при закрытии клиента сервер не закрывался (как вариант свой обработчик)?
2. Как избавиться от вопроса при закрытии экземпляра сервера при имеющихся подключениях (опять-же желательно свой обработчик)?

Заранее благодарю.

Алексей Петухов (2006-01-25 19:54:00) [4]

> Leonid Troyanovsky © (24.01.06 19:22) [1]

Спасибо за намек....
Неверил я, а ты уговорил всетаки :-)

Процес, как говорится пошел.
Пока идет неплохо, ежели что позже с вопросами появлюсь ....

Спасибо

Leonid Troyanovsky (2006-01-25 14:36:00) [5]

> Алексей Петухов (25.01.06 14:20) [7]
> Вопрос в том как реализовать такой OLE-сервер?

Заглянуть таки в пример?

--
Regards, LVT.

Алексей Петухов (2006-01-25 14:20:00) [6]
Вопрос в том как реализовать такой OLE-сервер?

Leonid Troyanovsky (2006-01-25 09:29:00) [7]

> Алексей Петухов (24.01.06 19:53) [2]
> Там прям конкретно по пунктам 1..7?

Куда уж конкретней. Прямо на дельфи написано.

--
Regards, LVT.

Набережных С. (2006-01-25 07:01:00) [8]

> Ломброзо © (24.01.06 21:59) [3]

> Ваш класс, реализующий свойство Documents, должен расти
> от IEnumVARIANT

Совершенно не обязательно.

Алексей Петухов (2006-01-25 06:06:00) [9]
А где зто в Internet-е можно "открыть" ?

Ломброзо (2006-01-24 21:59:00) [10]

> 1. OLE.Documents // как объект
> 2. OLE.Documents.Count // колличество док-ов
> 3. i:=OLE.CreateDocument //возвращает №созданного док-та
> 4. OLE.Documents.items[i].Status //просто например
> 5. OLE.Documents.items[i].Reliase //освободить память от
> док-та
> 6. OLE.Show //деуствует на все Documents
> 7. OLE.Quit; //выгружает OLEautomation из памяти.

1. Открываем MSDN, читаем про IEnumVARIANT. Этот интерфейс является альфой и омегой COM-коллекций. Ваш класс, реализующий свойство Documents, должен расти от IEnumVARIANT
2. См. пункт 1. IEnumVARIANT::get_Count([out, retval] long *value);
3,4,5,6,7 - MSDN: IDispatch, Коклассы, EXE-сервера.

Алексей Петухов (2006-01-24 19:53:00) [11]
Там прям конкретно по пунктам 1..7?
:-)

Leonid Troyanovsky (2006-01-24 19:22:00) [12]

> Алексей Петухов (24.01.06 19:09)

> Или может кто примером кода побожет?

demos\activex\oleauto\autoserv & etc

--
Regards, LVT.

Наверх

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