[fpc-devel] {$Interfaces Corba} and TInterfacedObject

[Graeme Geldenhuys]

On 29/11/2007, Marc Weustink <marc.weustink at cuperus.nl> 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/