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

← →
yanker (2006-01-09 14:47) [0]

Есть сервис, необходимо управлять им. Далаю сервис сервером OLE и хочу получить значения переменных управления из сервиса. Однако ничего не возвращается. Почитал инфы, оказывается при создании OLE объекта ф-ией CreateOleObject создается экземпляр, который не может получить доступ к переменным и функциям приложения. Как быть?

← →
GanibalLector © (2006-01-09 18:07) [1]

Дык, создайте нужные Вам свойства и методы и свяжите их с переменными приложения.

← →
yanker (2006-01-10 10:59) [2]

дело в том, что сервер у меня является еще и corba сервером и при создании объекта для управления у меня запускается новая копия сервиса

← →
yanker (2006-01-10 11:51) [3]

Текст файла 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 сервер в отдельном приложении, ничего такого нет?

управление через OLE Найти похожие ветки