ServerForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit serverform;
  2. interface
  3. uses
  4.   SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  5. type
  6.   TForm1 = class(TForm)
  7.   private
  8.     { Private declarations }
  9.   public
  10.     { Public declarations }
  11.   end;
  12. var
  13.   Form1: TForm1;
  14. implementation
  15. uses ComApp;
  16. {$R *.DFM}
  17. const
  18.   CLASS_ComWebApp: TGUID = '{833BAD2A-CA3F-4194-A0BA-FD57D46EDC16}';
  19. initialization
  20.   TWebAppAutoObjectFactory.Create(Class_ComWebApp,
  21.     'SoapDataServer', 'SoapDataServer Object');
  22. end.