Web服务转移

1 service 单元写函数，点击应用，然后运行 

2 再delphi 中新建服务，网址指向运行网页中的地址。

3 用鼠标设置断点，跟进代码。

4 delphi 端 改变 需要在EQPDDOG 中修改试用次数为 0

function TEQPDDog.TryCount(AProductType: TGSCProductType;
  AProductID: Integer): Word;
{$IFNDEF UNCHECKDOG}
var
  arrProducts: TGSCProductStatusDynArray;
{$ENDIF}
begin
{$IFDEF UNCHECKDOG}
  Result := 0;
{$ELSE}

转载于:https://www.cnblogs.com/echomyecho/archive/2012/03/08/2385492.html