如何使用Omni Thread Library的线程池控制内存使用?

时间:2009-08-07 19:15:52

标签: delphi multithreading threadpool

我一直在使用gabr's OmniThreadLibrary来构建ThreadPool。

对于多线程我是新手,这就是为什么我发现OTL非常有趣。

在演示应用程序“app_11_ThreadPool.exe”之后,我在我的应用程序中设置了一个线程池。我的应用程序的目的是获取URL列表,并尝试连接到它们并下载任何自动返回的文件(我正在测试有效负载的潜在恶意软件站点,以便我可以阻止它们。)

通常我会列出500到1000个网站。我有一个TMemo,它在我的主表单上保存了URL。这是我的相关代码。请注意,此代码是从我的“开始”按钮单击事件执行的。

  iNumTasks := memoSiteList.Lines.Count - 1;
  GlobalOmniThreadPool.MaxQueued := 16;
  GlobalOmniThreadPool.MonitorWith(OmniEventMonitor1);
  GlobalOmniThreadPool.MaxExecuting := 16;
  GlobalOmniThreadPool.MaxQueued := 0;

    for iTask := 1 to iNumTasks + 1 do
    begin

      if iTask mod 4 = 0 then
        Application.ProcessMessages;

      CreateTask(
        TSiteQuery.Create(
        url,
        full_url,
        sProxyServer,
        sProxyPort,
        sSaveLocation,
        bVerboseHeaders)
        ).MonitorWith(OmniEventMonitor1).Schedule;
     end;

这是TSiteQuery:

type
  TSiteQuery = class(TOmniWorker)
  strict private
    { Private declarations }
    FTaskID: int64;
    furl: string;
    f_full_url: string;
    fsProxyServer: string;
    fsProxyPort: string;
    fbVerboseHeaders: boolean;
    fsSaveLocation: string;
  private // [..]

现在,一切都很好。运行1000个URL会将我的应用程序的内存使用量从10mb增加到~130mb。这不是什么大问题,我理解这一点。

但问题是,每次点击“开始”,应用程序的内存使用量都会增加~130mb。也许我只是不知道我在做什么,但我的印象是使用线程池意味着我不必每次运行都创建 new 线程。

我希望池中先前创建的线程可以在后续执行时重用。我期待我的应用程序的内存使用量大约保持在130 MB左右,无论我点击“开始”1次还是10次。

有什么建议吗?

此致

2 个答案:

答案 0 :(得分:2)

这是线程问题还是内存泄漏问题?尝试使用调试器的“线程状态”窗口来确定您分配的线程数是否实际增加。如果没有,那么你可能在线程内创建对象而不是释放它们。

答案 1 :(得分:1)

看起来更像是内存泄漏问题,而不是线程问题......