2

在过去的 2 天里，我一直试图断断续续地解决这个问题，但我真的被困住了。希望一些聪明的人可以帮助我。

问题是我有一个函数，我在一个线程中调用该函数，该线程从传递给它的网站下载文件（使用 Synapse 库）。但是，我发现每隔一段时间就有一些网站不会下载文件，但 wget 或 Firefox/IE 会毫无问题地下载它。

深入研究，我发现了一些奇怪的东西。以下是相关代码：

uses
//[..]
  HTTPSend,
  blcksock;

//[..]

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  private
    { Private declarations }
    fTheUrl: string;
    procedure GetFile(const TheUrl: string);
  public
    property thrd_TheUrl: string read fTheUrl write fTheUrl;
  end;

implementation

[..]

procedure TMyThread.GetFile(const TheUrl: string);
var
  HTTP: THTTPSend;
  success: boolean;
  sLocalUrl: string;
  IsSame : boolean;
begin

  HTTP := THTTPSend.Create;
  try
    HTTP.UserAgent :=
      'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)';
    HTTP.ProxyHost := 'MYPROXY.COM';
    HTTP.ProxyPort := '80';

    sLocalUrl :=
      'http://web.archive.org/web/20071212205017/energizer.com/usbcharger/download/UsbCharger_setup_V1_1_1.exe';


   IsSame :=  SameText(sLocalUrl, sTheUrl); //this equals True when I debug

   ///
   ///
   /// THIS IS WHERE THE ISSUE BEGINS
   ///  I will comment out 1 of the following when debugging
   ///
    HTTP.HTTPMethod('GET', sLocalUrl); // ----this works and WILL download the file
    HTTP.HTTPMethod('GET', sTheUrl);  // --- this always fails, and HTTP.ResultString contains "Not Found"

    success := SysUtils.UpperCase(HTTP.ResultString) = 'OK';


    if HTTP.ResultCode > 0 then
      success := True; //this is here just to keep the value around while debugging
  finally
    HTTP.Free;
  end;
end;

procedure TMyThread.Execute
begin
   //fTheURL contains this value:  http://web.archive.org/web/20071212205017/energizer.com/usbcharger/download/UsbCharger_setup_V1_1_1.exe

   GetFile(fTheUrl);
end;

问题是当我为函数分配一个局部变量并直接给它 URL 时，一切正常。但是，当将变量传递给函数时，它会失败。有人有想法么？

    HTTP.HTTPMethod('GET', sLocalUrl); // ----this works and WILL download the file
    HTTP.HTTPMethod('GET', sTheUrl);  // --- this always fails, and HTTP.ResultString contains "Not Found"

我正在使用他们的 SVN 存储库中的最新版本的 Synapse（2 天前的版本）。

注意：我正在尝试下载的文件已知有病毒，我正在编写的程序旨在下载恶意文件以进行分析。因此，下载后不要执行该文件。

但是，我正在使用这个 URL b/c 这是我可以重现该问题的一个。

4

3 回答 3

4

您的代码缺少您如何使用TMyThread类的关键细节。但是，你写

偶尔会有一些网站不会下载文件，但 wget 或 Firefox/IE 会毫无问题地下载它。

这听起来像是一个时间问题。

每次都使用局部变量。使用函数参数仅在某些时候有效。这可能是由于函数参数有时不包含正确的 URL造成的。

您需要注意，创建非挂起线程可能会导致它立即开始执行（甚至可能完成），在构造调用之后的下一行甚至开始执行之前。因此，在创建线程后设置线程对象的任何属性可能不起作用，因为线程执行可能超过了读取属性的点。线程对象的fTheUrl字段最初会是一个空字符串，所以线程是否下载文件将取决于它之前的设置。

您的fTheUrl字段甚至不受同步原语的保护。线程 proc 和主线程中的代码都可以同时访问它。在线程之间以这种方式共享数据是不安全的事情，并且可能导致从错误行为到实际崩溃的任何事情。

如果您的线程确实用于下载单个文件，您应该删除对该属性的写访问权限，并编写一个带有 URL 参数的自定义构造函数。这将在线程启动之前正确初始化该字段。

如果您在程序中下载多个文件，您真的不应该为每个文件创建一个线程。使用将分配要下载的文件的线程池（甚至可能只有一个）。为此，线程属性是正确的解决方案，但是需要通过同步来实现，并且当没有文件要下载时线程应该阻塞，并在设置属性时解除阻塞。下载线程（或多个线程）将是生产者-消费者实现中的消费者。Stack Overflow 在 Delphi 标签中有关于此的问题和答案，特别是在讨论替代方案Suspend()和Resume()讨论的问题中。

最后一件事：不要让未处理的异常逃逸Execute()方法。我不确定 Delphi 2010 是否在 VCL 中处理这些异常，但线程中未处理的异常可能会导致应用程序崩溃或冻结等问题。

于 2010-03-12T05:24:11.517 回答
0

好吧，我几乎不好意思报告它，但我应该感谢那些花时间做出回应的人。

该问题与 Synapse 或 TThread无关，而是与 URL 区分大小写这一事实有关！

在我的完整应用程序中，我有一个帮助函数将 URL 小写（出于某种原因）。我删除了它，一切又开始工作了......

于 2010-03-13T06:47:33.330 回答
0

请更新最新的 Synapse 修订版 127。

于 2010-04-30T19:04:22.630 回答