productservice_wad.dpr

delphi实现 webservice的例子.有服务端和客户段 利用xml交互.

program ProductService_WAD;

{$APPTYPE GUI}

uses
  Forms,
  SockApp,
  Main in 'Main.pas' {Form1},
  ProductWM in 'ProductWM.pas' {WebModule2: TWebModule},
  ProductService_WADImpl in 'ProductService_WADImpl.pas',
  ProductService_WADIntf in 'ProductService_WADIntf.pas',
  ProductBinding in 'ProductBinding.pas',
  Dm in 'Dm.pas' {DataModule_U: TSoapDataModule},
  DataServer in 'DataServer.pas',
  Access in 'Access.pas',
  imageinfo in 'imageinfo.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TWebModule2, WebModule2);
  Application.Run;
end.