home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / Chip_2002-07_cd1.bin / zkuste / delphi / kolekce / d3456 / AWSCRIPT.ZIP / awScript / d3_example / Unit2.pas < prev   
Pascal/Delphi Source File  |  1999-04-08  |  611b  |  32 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComObj, ActiveX, Project1_TLB;
  7.  
  8. type
  9.   TawScriptTest = class(TAutoObject, IawScriptTest)
  10.   protected
  11.     function Get_Name: WideString; safecall;
  12.     procedure AddToList(const Msg: WideString); safecall;
  13.   end;
  14.  
  15. implementation
  16.  
  17. uses ComServ, Unit1;
  18.  
  19. function TawScriptTest.Get_Name: WideString;
  20. begin
  21.     Result := 'awScriptTest';
  22. end;
  23.  
  24. procedure TawScriptTest.AddToList(const Msg: WideString);
  25. begin
  26.   Form1.ListBox1.Items.Add(Msg);
  27. end;
  28.  
  29. initialization
  30.   TAutoObjectFactory.Create(ComServer, TawScriptTest, Class_awScriptTest, ciMultiInstance);
  31. end.
  32.