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

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

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

управление через OLE [Delphi]

yanker © (2006-01-09 14:47:00)
Есть сервис, необходимо управлять им. Далаю сервис сервером OLE и хочу получить значения переменных управления из сервиса. Однако ничего не возвращается. Почитал инфы, оказывается при создании OLE объекта ф-ией CreateOleObject создается экземпляр, который не может получить доступ к переменным и функциям приложения. Как быть?

yanker (2006-01-10 11:51:00) [1]
Текст файла TLB

IRControl = interface(IDispatch)
['{41C544FA-ACC0-4A65-83E2-78A5AE16731B}']
function GetPort: TDateTime; safecall;
end;

// *********************************************************************//
// DispIntf: IRControlDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {41C544FA-ACC0-4A65-83E2-78A5AE16731B}
// *********************************************************************//
IRControlDisp = dispinterface
['{41C544FA-ACC0-4A65-83E2-78A5AE16731B}']
function GetPort: TDateTime; dispid 1;
end;

TRControlStub = class(TCorbaDispatchStub, IRControl)
public
function GetPort: TDateTime; safecall;
end;

TRControlSkeleton = class(TCorbaSkeleton)
private
FIntf: IRControl;
public
constructor Create(const InstanceName: string; const Impl: IUnknown); override;
procedure GetImplementation(out Impl: IUnknown); override; stdcall;
published
procedure GetPort(const InBuf: IMarshalInBuffer; Cookie: Pointer);
end;

И в initialization
CorbaStubManager.RegisterStub(IRControl, TRControlStub);
CorbaInterfaceIDManager.RegisterInterface(IRControl, 'IDL:mapper_server/IRControl:1.0');
CorbaSkeletonManager.RegisterSkeleton(IRControl, TRControlSkeleton);

Хотя когда создаешь ole automation сервер в отдельном приложении, ничего такого нет?

yanker (2006-01-10 10:59:00) [2]
дело в том, что сервер у меня является еще и corba сервером и при создании объекта для управления у меня запускается новая копия сервиса

GanibalLector (2006-01-09 18:07:00) [3]
Дык, создайте нужные Вам свойства и методы и свяжите их с переменными приложения.

Наверх

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