Tema: Crear un COM
Ver Mensaje Individual
  #1  
Antiguo 10-02-2011
jars jars is offline
Miembro
 
Registrado: mar 2004
Posts: 279
Reputación: 21
jars Va por buen camino
Crear un COM

Buenos dias, tengo una aplicacion y necesito crear un COM a partir de ella para que otra aplicación externa pueda ejecutar sus metodos y principalmente pueda reaccionar a un par de eventos. Lo intente creando un Automation Object y va bien con los metodos pero para los eventos en la otra aplicacion arroja el error "method OnNewData not suported by automation object"
Este es el ejemplo:
Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure NewData; <----

......
procedure TForm1.Button1Click(Sender: TObject);
var _ComObj: Variant; 
begin
    _ComObj := CreateOleObject('Toolbar.ToolbarComControl');
    _ComObj.OnNewData := NewData; <--- ERROR !!!
end;

Diganme si es la forma correcta o hay otra?
Gracias

Última edición por ecfisa fecha: 11-02-2011 a las 00:10:12. Razón: ETIQUETAS DELPHI
Responder Con Cita