home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Bin / dphmts50.bpl / 0 / RCDATA / PASMTS < prev   
Text File  |  1999-08-11  |  1KB  |  66 lines
  1. unit %0:s;
  2.  
  3. interface
  4.  
  5. uses
  6.   ActiveX, MtsObj, Mtx, ComObj, %3:s;
  7.  
  8. type
  9.   T%1:s = class(TMtsAutoObject, %5:s)
  10.   %6:s
  11.   end;
  12.  
  13. implementation
  14.  
  15. uses ComServ;%7:s
  16.  
  17. initialization
  18.   TAutoObjectFactory.Create(ComServer, T%1:s, Class_%1:s,
  19.     %2:s, %4:s);
  20. end.
  21. |unit %0:s;
  22.  
  23. interface
  24.  
  25. uses
  26.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  27.   ComServ, ComObj, VCLCom, StdVcl, BdeMts, DataBkr, DBClient,
  28.   MtsRdm, Mtx, %3:s;
  29.  
  30. type
  31.   T%1:s = class(TMtsDataModule, I%1:s)
  32.   private
  33.     { Private declarations }
  34.   protected
  35.     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   %1:s: T%1:s;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. class procedure T%1:s.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
  48. begin
  49.   if Register then
  50.   begin
  51.     inherited UpdateRegistry(Register, ClassID, ProgID);
  52.     EnableSocketTransport(ClassID);
  53.     EnableWebTransport(ClassID);
  54.   end else
  55.   begin
  56.     DisableSocketTransport(ClassID);
  57.     DisableWebTransport(ClassID);
  58.     inherited UpdateRegistry(Register, ClassID, ProgID);
  59.   end;
  60. end;
  61.  
  62. initialization
  63.   TComponentFactory.Create(ComServer, T%1:s,
  64.     Class_%1:s, %2:s, %4:s);
  65. end.|
  66.