（下载）线程与 Delphi 应用程序之间的通信

Question

我对 Delphi 中的线程有疑问。 我正在编写需要大量下载的应用程序（HTML 和文件）。 好吧，创建单线程程序不是问题，但您可以猜到，它有点问题，因为有一个耗时的方法 - 下载 function。

好的，我知道这是对线程的追求。 我打算使用下载列表逐一下载。 已经为此目的编写了TQueue class ，使用简单的Pop / Push方法和Count属性来检查列表中是否有内容。 我的目标是将列表中的所有文件发送到单独的线程中下载，但一次只能下载一个（不需要进度）。

我的问题是，如何（从下载线程）获取工作已完成（成功或不成功）的信息，以便如果队列中有更多 URL 等待，我可以启动另一个线程。

这是我的代码的相关界面的一部分，用于显示我正在尝试做的事情以及我目前拥有的内容。

Const
     POP_METHOD_FIFO = 1;
     POP_METHOD_LIFO = 2;
Type
    TQueueRecord = record
        URL: String;
        Params: Array of String;
    end; {of record} 

    TQueue = class
    private
        Queue: Array of TQueueRecord;
        MethodFIFO: Boolean;
        function QueueCount: Integer;
        function GetPopMethod: Byte;
        procedure SetPopMethod(MethodConstant: Byte);
    public
        constructor Create;
        destructor Destroy;
        function Push(Data: TQueueRecord): Boolean;
        function Pop(var Data: TQueueRecord): Boolean;
        property Count: Integer read QueueCount;
        property PopMethod: read GetPopMethod write SetPopMethod;
    end; {of TQueue class}

    TDownloadThread = class(TThread)
    private
        dlURL: String;
        dlFileName: String;
        file: TFileStream;
    public
        constructor (Suspended: Boolean; URL, FileName: String);
        procedure Execute; override;
        destructor Destroy; override;
    end; {of TDownloadThread class}

在这里尝试了很多链接（在 Delphi 线程主题上）和 web 周围，但无论我做什么，我都会错过一些东西（忘记继承 Create，忘记在挂起的线程上调用 Resume，释放内存不好）。 毕竟我让一切正常，但现在我必须在运行另一个线程之前检查文件系统，以查看文件是否存在或在错误日志中列为下载失败。 不太喜欢这种方法，我相信有一种方法可以直接将消息发送到主线程。

有人可以帮助我提供TDownloadThread的一小段示例代码（不管是使用 Indy、WinInet 还是其他东西）。 它所要做的就是下载 URL 并向主线程发送有关操作成功的消息。 甚至不知道如何设置下载超时（我的想法是使用TTimer并终止线程，但这对我来说并不是“最好的”解决方案。

经过 6 年的停顿，我又回到了Delphi 7 Enterprise上，并且在那段时间里只使用了类似 C 的语言，所以不要怪我，因为我在这个平台上有点生疏了。 说实话，我以前从来没有擅长线程，所以它的工作方式对我来说仍然是一个巨大的谜。

任何帮助 - 代码、建议或可靠资源都非常受欢迎。