unit2.pas

来自「本程序是用来实现初步的服务器与 客户端的简单的通信。是Activex与自动化的应」· PAS 代码 · 共 36 行

unit Unit2;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, Project1_TLB, StdVcl,unit1;

type
  Txianshi = class(TAutoObject, Ixianshi)
  protected
    function Get_lcaption: WideString; safecall;
    procedure Set_lcaption(const Value: WideString); safecall;

  end;

implementation

uses ComServ;

function Txianshi.Get_lcaption: WideString;
begin
    result:=form1.Label1.Caption;
end;

procedure Txianshi.Set_lcaption(const Value: WideString);
begin
  form1.Label1.Caption:=value;
end;

initialization
  TAutoObjectFactory.Create(ComServer, Txianshi, Class_xianshi,
    ciMultiInstance, tmApartment);
end.