ImanExt.OpenCmd and Delphi 6

mawny

I am having trouble implementing the ImanExt.OpenCmd from a Delphi application. I have used this command effortlessly and without problem in VB6.

I have the feeling the problem may lie in the contextitem 'SelectedNrtDocuments' and the way Delphi handles safe variant arrays.
The status of the command when I update it is always nrGrayedCommand as opposed to the expected nrActiveCommand.

My version of delphi is 6 ( Build 6.240)

Here is my function any pointers of where i might be going wrong ? Any delphi users managed to succesfully use this command?

procedure TForm1.OpenDmsDoc(pDoc : INRTDocument);
var pContextItems : IContextItems;
pSelectedDocs : oleVariant;
myOpenCmd : OpenCmd;

begin


pSelectedDocs := VarArrayCreate([0, 0], varVariant );
pSelectedDocs[0] := pDoc;


pContextItems := CreateComObject(CLASS_ContextItems) as IContextItems;

pContextItems.Add( 'ParentWindow', Application.Handle);
pContextItems.Add ('SelectedNRTDocuments',pSelectedDocs);



myOpenCmd := CreateComObject(CLASS_OpenCmd) as OpenCmd;


myOpenCmd.Initialize(pContextItems);


myOpenCmd.Update;

if myOpenCmd.status = nrActiveCommand then
myOpenCmd.execute;

end;

jny

Try this:

pSelectedDocs := varArrayCreate([1,1], varDispatch);
pSelectedDocs[1] := pDoc;
pContextItems.Add('SelectedNRTDocuments', pSelectedDocs);

Hope this helps.