delphi - Delphi 2010 中 HTTPSend 的突触和字符串问题

Question

在过去的 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"

我使用的是最新版本的 Synapse from their SVN repository (2 天前的版本)。

注意:我尝试下载的文件是 known to have a virus ，我正在编写的程序旨在下载恶意文件进行分析。因此，下载后不要执行该文件。

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

Answer 1

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

every once in a while there are sites where it will not pull down a file, but wget or Firefox/IE will download it without issue.

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

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

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

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

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

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

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