We implemented extended logging in Delphi script code and we got different results in TC and TE.
It is seen that TE doesn't recognize Properties and Methods of the tested object. What is wrong?
Delphi script code:
procedure LoggingObjectProperties(obj: IDispatch);
var
props: aqObjIterator;
prop: aqObjProperty;
begin
props := aqObject.GetProperties(obj);
Log.Message('Begin Print Object (Name = ' + obj.Name + ') Properties', Sys.Desktop.ActiveWindow, pmHighest);
while (props.HasNext) do
begin
prop := props.Next;
Log.Message(' ' + prop.Name, Sys.Desktop.ActiveWindow, pmHighest);
end;
Log.Message('End Print Object Properties', Sys.Desktop.ActiveWindow, pmHighest);
end;
procedure LoggingObjectMethods(obj: IDispatch);
var
colMethods: aqObjIterator;
Method: aqObjMethod;
Params: string;
i: integer;
begin
colMethods := aqObject.GetMethods(obj);
Log.Message('Begin Print Object (Name = ' + obj.Name + ') Object Methods', Sys.Desktop.ActiveWindow, pmHighest);
while (colMethods.HasNext) do
begin
Method := colMethods.Next;
Params := '';
for i := 0 to Method.ParamCount - 1 do
Params := Params + 'Param' + IntToStr(I) + ' - ' + Method.ParamName(I) + ', ';
Log.Message(' ' + Method.Name + ': ' + Params, Sys.Desktop.ActiveWindow, pmHighest);
end;
Log.Message('End Print Object Methods', Sys.Desktop.ActiveWindow, pmHighest);
end;
Results in screenshots.
