如何从Delphi匿名线程获取HTTP请求结果并后续使用？

原代码核心问题 #

1. 匿名线程是异步执行的，test函数会立刻执行到ShowMessage(result)，此时线程还未完成HTTP请求，Result必然为空。
2. 线程内直接给self.result赋值完全错误：函数的Result属于主线程的函数栈，线程执行时函数早已返回，栈内存已被释放，跨线程访问会导致未定义行为。
3. 代码遗漏了ResStream.Free，存在内存泄漏；异常处理为空，无法感知请求失败。

解决方案：使用回调方法（异步场景最优解） #

将响应解析逻辑封装成主线程方法，线程完成请求后通过TThread.Synchronize将结果传回主线程处理，既避免主线程假死，又能正确获取响应。

步骤1：添加主线程处理方法

在TForm1中新增用于解析响应的方法：

procedure TForm1.ProcessHttpResponse(const Response: string);
begin
  // 这里替换成你的响应解析逻辑
  ShowMessage('收到响应：' + Response);
end;

步骤2：修改test函数代码

function TForm1.test: string;
var
  command, commandName: string;
begin
  Result := ''; // 异步场景下该返回值无实际意义
  TThread.CreateAnonymousThread(
    procedure
    var
      ReqStream, ResStream: TStringStream;
      http: TIdHTTP;
      ResponseStr: string;
    begin
      // 主线程同步：显示等待窗体并禁用操作
      TThread.Synchronize(nil,
        procedure
        begin
          waitForm.Label1.Caption := '请稍候...';
          waitForm.BitBtn1.Enabled := False;
          waitForm.FormStyle := fsStayOnTop;
          waitForm.Show;
        end);

      try
        http := TIdHTTP.Create(nil);
        ReqStream := TStringStream.Create('', TEncoding.UTF8);
        ResStream := TStringStream.Create('', TEncoding.UTF8);
        try
          command := '{"Amount":"69.00","TerminalName":"SIMULATE","omitSlipPrintingOnEFT":"1"}';
          commandName := 'sale';
          http.Request.ContentType := 'application/json';
          http.Request.CharSet := 'utf-8';
          http.Request.ContentEncoding := 'utf-8';
          http.Request.Accept := 'application/json';
          http.Request.Connection := 'keep-alive';
          http.ConnectTimeout := 60000;
          http.ReadTimeout := 60000;

          ReqStream.WriteString(command);
          ReqStream.Position := 0;

          try
            http.Post('http://localhost:5555/' + CommandName, ReqStream, ResStream);
            http.Disconnect;
            ResponseStr := ResStream.DataString;

            // 主线程同步：传递响应结果并处理
            TThread.Synchronize(nil,
              procedure
              begin
                ProcessHttpResponse(ResponseStr);
              end);
          except
            on E: Exception do
            begin
              // 主线程同步：提示请求异常
              TThread.Synchronize(nil,
                procedure
                begin
                  ShowMessage('请求失败：' + E.Message);
                end);
            end;
          end;
        finally
          // 修复内存泄漏：释放所有创建的资源
          ResStream.Free;
          ReqStream.Free;
          http.Free;
        end;
      finally
        // 主线程同步：关闭等待窗体并恢复操作
        TThread.Synchronize(nil,
          procedure
          begin
            waitForm.FormStyle := fsNormal;
            waitForm.BitBtn1.Enabled := True;
            waitForm.Close;
          end);
      end;
    end).Start;
end;

关键优化点 #

1. 将线程内用到的变量（ReqStream、ResStream、http）移至匿名线程内部，避免跨线程共享变量的风险。
2. 用TThread.Synchronize确保所有UI操作（显示/关闭等待窗体、更新按钮状态、处理响应）都在主线程执行，符合VCL控件的线程安全要求。
3. 补充异常捕获与提示，便于排查请求失败原因。
4. 修复内存泄漏问题，确保所有创建的流和组件都被正确释放。

内容的提问来源于stack exchange，提问作者q1werty