COM object/Automation - Delphi WinAPI - Ответ 9695529

TForm1 = class(TForm,IMyInt)

type
  TForm1 = class(TForm,IMyInt)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  protected
    Procedure Method_2(const pS: WideString);safecall;
    procedure IMyInt.Method_1 = Method_2;
    //procedure Method_1(const pS: WideString);safecall;
  private
  public
 end;

procedure TForm1.Method_2(const pS: WideString);
begin
  form1.Caption:=pS;
  messagebox(0,'100','',0);
end;

unit Unit2;
 
{$WARN SYMBOL_PLATFORM OFF}
 
interface
 
uses
  ComObj, ActiveX, AxCtrls, Classes,
Project1_TLB, StdVcl,windows;
 
type
  TMyInt = class(TAutoObject, IConnectionPointContainer, IMyInt)
  private
    { Private declarations }
    FConnectionPoints: TConnectionPoints;
    FConnectionPoint: TConnectionPoint;
    FEvents: IMyIntEvents;
    { note: FEvents maintains a *single* event sink. For access to more
      than one event sink, use FConnectionPoint.SinkList, and iterate
      through the list of sinks. }
  public
    procedure Initialize; override;
  protected
    procedure Method_1(const pS: WideString); safecall;
    { Protected declarations }
    property ConnectionPoints: TConnectionPoints read FConnectionPoints
      implements IConnectionPointContainer;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
 
  end;
 
implementation
 
uses ComServ;
 
procedure TMyInt.EventSinkChanged(const EventSink: IUnknown);
begin
  FEvents := EventSink as IMyIntEvents;
end;
 
procedure TMyInt.Initialize;
begin
  inherited Initialize;
  FConnectionPoints := TConnectionPoints.Create(Self);
  if AutoFactory.EventTypeInfo <> nil then
    FConnectionPoint := FConnectionPoints.CreateConnectionPoint(
      AutoFactory.EventIID, ckSingle, EventConnect)
  else FConnectionPoint := nil;
end;
 
 
procedure TMyInt.Method_1(const pS: WideString);
begin
//  messagebox(0,PWIDEChar(pS),'',0);
end;
 
initialization
  TAutoObjectFactory.Create(ComServer, TMyInt, Class_MyInt,
    ciMultiInstance, tmApartment);
end.