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}