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

Graeme Geldenhuys graemeg.lists at gmail.com
Thu Nov 29 13:58:47 CET 2007


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/



More information about the fpc-devel mailing list