如何防止线程冻结Delphi中的主应用程序答案

【问题标题】：how to prevent a thread to freeze the main app in Delphi如何防止线程冻结Delphi中的主应用程序
【发布时间】：2019-10-25 14:21:53
【问题描述】：

我正在开发一个 Delphi 项目。我创建了一个类，可以帮助我在线程内连接到网络；

我有一个问题。此线程冻结主应用程序，直到整个响应到来。

所以我需要你的帮助来克服这个挑战。

Web.pas

unit Web;

interface

uses
  SysUtils, Classes, IdBaseComponent, Dialogs,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdHTTP,
  idMultipartFormData;

type
  TCallBack = reference to procedure(res: String);

type
  TWebThread = class(TThread)
  private
    iniRes, iniURL: String;
    iniParams: TStringList;
    iniCallBack: TCallBack;
    Error : String;
    // var iniCallBack: reference to procedure(arg1:string);
  public
    constructor Create(url:String; Params:TStringList; CallBack:TCallBack);
    // destructor Destroy; override;
    procedure Execute(); override;
  end;

implementation

constructor TWebThread.Create(url:String; Params:TStringList; CallBack:TCallBack);
begin

  FreeOnTerminate := True;
  inherited Create(false);

  Self.FreeOnTerminate := True;
  Self.iniURL := url;
  Self.iniCallBack := CallBack;
  Self.iniParams := TStringList.Create;
  iniParams.Assign(Params);

end;


procedure TWebThread.Execute();
var
  lParam: TIdMultipartFormDataStream;
  IHTTP: TIDHTTP;
  i:Integer;
begin

  // inherited;
  IHTTP := TIDHTTP.Create(nil);
  lParam := TIdMultipartFormDataStream.Create;
  IHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.77 Safari/537.36';

  for i := 0 to iniParams.Count-1 do
  begin
    lParam.AddFormField(iniParams.Names[i], iniParams.ValueFromIndex[i]);
  end;




  try
    try
      iniRes := IHTTP.Post(iniURL, lParam);

      Synchronize(PROCEDURE
                  BEGIN
                    iniCallBack(iniRes);
                  END);


    Except
      on E: Exception do
        Error := E.ClassName + ' error raised, with message : ' + E.Message;
    end;
  finally
    FreeAndNil(IHTTP);
    FreeAndNil(iniParams);
  end;

end;

end.

这里是如何使用：

procedure TMainForm.Button2Click(Sender: TObject);
var
  Params: TStringList;
  Web: TWebThread;

begin
  Params := TStringList.Create;
  Params.AddPair('Name','Ahmad');
  Params.AddPair('Family','Khaliq');
  Web := TWebThread.Create('http://localhost/get.php', Params,procedure (res : string)
        begin
           Label1.Caption := res;
        end);
  Web.Execute;
end;

这是我的问题：此线程冻结主应用程序，直到它收到整个 idHTTP 响应

【问题讨论】：

正如 HeartWare 所指出的，永远不要显式调用 Execute 方法。当 CreateSuspended 设置为 false 时调用 create ctor 或在 CreateSuspended 设置为 true 时调用 create 后调用 Start 时，它会自动调用。请注意，当 FreeOnTerminate 设置为 true 时，保留对线程的引用是没有意义的，因为如果线程结束，对引用的任何访问都可能导致对无效指针的访问。

标签： multithreading delphi freeze

【解决方案1】：

我认为（但尚未验证）原因是您从主线程显式调用 Web.Execute。

线程的 Execute 方法应该（并且会自动）从线程本身内部调用 - 它并不意味着从主线程调用。

所以尝试删除 Web.Execute 调用，看看是否不能解决您遇到的问题。

同步代码提取：

 if (CurrentThread.ThreadID = MainThreadID) and not (QueueEvent and ForceQueue) then
  begin
    if Assigned(ASyncRec.FMethod) then
      ASyncRec.FMethod()
    else if Assigned(ASyncRec.FProcedure) then
      ASyncRec.FProcedure();
  end else

【讨论】：

没有 Web.Execute，什么也不会发生。它根本不起作用
你确定你的程序调用了 inherited Create(false) 而不是 "true" ？如果是这样，线程应该自动调用 Execute。尝试在 Execute 方法的第一行放置一个断点，看看它是否到达那里（它应该到达那里）。如果是这样，请单步执行代码以查看哪里出错了。最可能的原因是 HTTP 请求引发了异常，因为您只是简单地将其吞下，将其分配给一个类变量 Error，然后在 Execute 方法终止时简单地释放该变量。
谢谢！现在可以了！
从主线程调用 Execute 会导致方法在主线程而不是辅助线程中运行，这不会直接导致冻结。执行中的 Synchronize 调用是另一回事，您不能从主线程调用 Synchronize，这将是最可能的原因。
@SertacAkyuz：同步可以从主线程调用（至少在 Delphi Rio 中）。在这种情况下，事件/方法只是被直接调用，而不是被放入队列中以在主线程中调用。请参阅答案中的代码摘录。