Question

在过去的两天里，我一直试图彻底解决这个问题，我真的被卡住了。希望有些聪明的人可以帮助我。

问题在于我在一个线程中调用了一个函数，该函数从传递给它的网站下载文件（使用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，我写的程序是为了下载恶意文件进行分析。因此，下载后请勿执行该文件。

但是，我正在使用此网址b / c这是我可以重现此问题的网址。

Answer 1

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

每隔一段时间就有一些网站不会下载文件，但wget或Firefox / IE会毫无问题地下载它。

这听起来像是时间问题。

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

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

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

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

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

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

Answer 2

嗯，我几乎不好意思报道，但我欠那些花时间回应的人。

这个问题与Synapse或TThread的关联没有，而是与URL区分大小写的事实有关！

在我的完整应用程序中，我有一个帮助函数来降低URL（由于某种原因）。我删除了，一切都开始了......

Answer 3

请更新最后一次Synapse Revision 127。

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

3 个答案: