yyc950113
yyc950113
采纳率0%
2021-03-01 15:16

DELPHI开发的webservice服务器,运行一段时间之后,程序耗时6-7秒

重启一下就好了,看了一下代码,这里边只是基类自带的datamodule创建代码,除了一个临界区好像没有其他的了,不知道什么原因,有大哥指导一下吗

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

2条回答

  • technologist_04 CSDN技术专家团—麒麟奇 1月前

    DELPHI开发的webservice服务,有点小众,建议用php、python、C#、java等语言开发web service

    点赞 评论 复制链接分享
  • yyc950113 yyc950113 1月前

    type

    IWSYXHis =interface(IInvokable)

    TDataWSYXHis = class(TdataModule,IWSYXHis)

    procedure TDataWSYXHisCreateInstance(out obj: TObject);
    begin
      obj := TDataWSYXHis.Create(nil);
    end;

    ***************************************************************************************************

    //下边是上边的create函数调用的基类函数

    constructor TDataModule.Create(AOwner: TComponent);
    begin
      GlobalNameSpace.BeginWrite;
      try
        CreateNew(AOwner);
        if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
        begin
          if not InitInheritedComponent(Self, TDataModule) then
            raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
          if OldCreateOrder then DoCreate;
        end;
      finally
        GlobalNameSpace.EndWrite;
      end;
    end;

    点赞 评论 复制链接分享

为你推荐