Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

COM-server в design-time не выгружается...   Найти похожие ветки 

 
Wetnose   (2002-10-11 09:20) [0]

Создал на C# компонент, типа:


...

using System.Runtime.IntropService;

namespace Wetnose.Test
{
[Guid("...")]
public interface IMyIface
{
...
}

[Guid("...")]
public class MyClass : IMyIface
{
public MyClass()
{
// специально показываю форму, чтобы видеть,
// когда сервер загружен ...
new System.Windows.Forms.Form().Show();
}

...
}
}

всё собралось и зарегистрировалось.

Нарисовал компонет на Delphi (7), котрый юзает
данный сервак:


type
TMyClass = class(TComponent)
private
FServer: Variant;
...
published
property ServerName: String;
property Active: boolean read FActive write SetActive;
end;

...

procedure TMyClass.SetActive(Value: boolean);
begin
...

FServer := Unassigned;
if Value
then
FServer := CreateOleObject(ServerName);

...
end;


В дизайнере бросаю компонент на форму.
Задаю:

ServerName -> "Wetnose.Test.MyClass"
Active -> true

Сервер загружается (вижу форму, создаваемую сервером).

Active -> false

Форма сервера не исчезает!!!

Active -> true

Error: Параметр задан неверно!!!

Что не так? почему сервер не выгрузился?
Excel.Application, например, выгружается (гад)!

Что мене делать? Пока Delphi не закроешь, сервер работает!


 
AndreyAG   (2002-10-11 10:20) [1]

Всё верно! если ты подгрузил компонент, то ты сразу его включил.
Предусмотри функцию включения сервера!


 
Wetnose   (2002-10-11 11:26) [2]

А как выключить сервер? Как это обычно делают?



Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-68929
KIR
2002-10-01 13:56
2002.10.21
D7. Она есть или ее нет? (в офф. релизе)


3-68642
Tornado
2002-09-27 09:25
2002.10.21
Мастерам. Подскажите


1-68865
Asderg
2002-10-10 15:34
2002.10.21
TFileStream. How create file?


14-68977
Kotka
2002-09-28 16:41
2002.10.21
Пиратское Delphi


14-68944
Akella
2002-09-27 09:04
2002.10.21
И дались Украинские