Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Ole Automation Object

SniffeXSniffeX Member Posts: 9
Hello , I need to create a Ole Object At Real time from an Object.


TMyObject = Class
Fvalue : String;
published
property Value : String read fvalue write fvalue;
End;

TMYOle = Class(TAutoObject,IDispach)

End;

for example i need to create a similar structure on a TAutoObject,
at real time. i need Idispach.


Var
Obj : TMyObject
A : IDispach;
Begin
Obj := TMyObject.Create;
Obj.Value := 'SNIFFEX';

A := CreateNewOleObject; -> need a function to create an ole object with IDispach or IDispach Compatible Result like example.

A.AddProp('Value',Obj.Value); -> A function inout of OleObject to
add a property at real time.

" Print(A.Value);" -> will Be "SNIFFEX";
End;







Sign In or Register to comment.