test.~dpr

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

program Test;

uses
  Forms,
  ClientTest in 'ClientTest.pas' {aTestForm},
  IProductService_WAD1 in 'IProductService_WAD1.pas',
  ProductBinding in '..\Server\ProductBinding.pas',
  ComFun in '..\Server\ComFun.pas',
  imageinfo in '..\Server\imageinfo.pas',
  Login_U in 'Login_U.pas' {aLoginForm},
  clientcfg_u in 'clientcfg_u.pas' {aClentcfgForm},
  Variable_U in 'Variable_U.pas',
  main_U in 'main_U.pas' {aMainForm};

{$R *.res}

begin
  Application.Initialize;
  if Login then
 // Application.CreateForm(TaTestForm, aTestForm);
  Application.CreateForm(TaMainForm, aMainForm);
  Application.Run;
end.