Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Providers (https://www.clubdelphi.com/foros/forumdisplay.php?f=10)
-   -   Crear un COM (https://www.clubdelphi.com/foros/showthread.php?t=72317)

jars 10-02-2011 15:27:05

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

Ñuño Martínez 02-03-2011 15:27:25

Yo creo que falta definir el objeto del método "NewData". Es decir, lo asignas al evento del objeto "_ComObj.OnNewData", ¿pero cómo sabe "_ComObj" a qué objeto pertenece el método si no se lo dices?

Lo cierto es que hablo "de memoria" porque esto de los eventos no lo tengo muy claro todavía...


La franja horaria es GMT +2. Ahora son las 23:33:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi