On 29/11/2007, Marc Weustink <[EMAIL PROTECTED]> wrote:
> http://www.freepascal.org/mantis/view.php?id=6798
I can confirm that this doesn't work....
{$Interfaces Corba}
var
cmd: ICommand;
holder: ICommandHolder;
ins: TAddCommand;
begin
ins := TAddCommand.Create(memName1);
ins.GetInterface(ICommand, cmd);
if cmd <> nil then
begin
writeln('It worked');
cmd.Execute;
end;
ins.free;
end;
"it worked" never gets printed.
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
