如何在Delphi的INDY多线程Web调用中无需传参使用Session对象？

针对你提出的多线程Web调用场景（每个请求对应独立Indy线程），有以下几种可行方案，无需通过参数传递即可让所有关联函数访问上下文对象：

1. 线程局部存储（TLS） #

利用操作系统提供的线程局部存储机制，每个线程拥有独立的存储区域，可直接存取上下文对象。

底层API实现（兼容全版本Delphi） #

var
  // 全局TLS索引，程序初始化时分配
  TLSContextIndex: Integer;

initialization
  TLSContextIndex := TlsAlloc;
finalization
  TlsFree(TLSContextIndex);

// Indy线程处理请求时
procedure TMyIndyThread.Execute;
var
  MyContext: TCallContext;
begin
  MyContext := TCallContext.Create;
  try
    // 将上下文存入当前线程的TLS
    TlsSetValue(TLSContextIndex, MyContext);
    // 启动请求处理流程
    ProcessRequest;
  finally
    MyContext.Free;
    TlsSetValue(TLSContextIndex, nil);
  end;
end;

// 任意需要访问上下文的函数
procedure SomeBusinessFunction;
var
  MyContext: TCallContext;
begin
  MyContext := TCallContext(TlsGetValue(TLSContextIndex));
  if Assigned(MyContext) then
  begin
    // 写入数据到上下文对象
    MyContext.Result := '业务处理完成';
    MyContext.Logs.Add('执行了SomeBusinessFunction');
  end;
end;

简化版（Delphi XE及以上） #

使用TThread.ThreadLocal封装，无需手动管理TLS索引：

var
  ThreadLocalContext: TThreadLocal<TCallContext>;

// Indy线程内初始化
ThreadLocalContext.Value := TCallContext.Create;
try
  ProcessRequest;
finally
  ThreadLocalContext.Value.Free;
  ThreadLocalContext.Value := nil;
end;

// 其他函数中直接访问
if Assigned(ThreadLocalContext.Value) then
  ThreadLocalContext.Value.Feedback := '已完成子步骤';

2. 绑定Indy的TIdContext上下文 #

Indy每个请求对应一个TIdContext（或派生类如TIdHTTPContext），可将自定义上下文挂到其Data属性上：

procedure TMyHTTPServer.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  MyContext: TCallContext;
begin
  MyContext := TCallContext.Create;
  try
    AContext.Data := MyContext;
    // 启动请求处理
    HandleRequest(AContext);
    // 从上下文取结果写入响应
    AResponseInfo.ContentText := MyContext.Result;
  finally
    MyContext.Free;
    AContext.Data := nil;
  end;
end;

// 全局工具函数：获取当前线程的上下文对象
function GetCurrentCallContext: TCallContext;
var
  IndyContext: TIdContext;
begin
  Result := nil;
  IndyContext := TIdCurrentThread.Context;
  if Assigned(IndyContext) then
    Result := TCallContext(IndyContext.Data);
end;

// 业务函数中使用
procedure SomeSubProcedure;
var
  Ctx: TCallContext;
begin
  Ctx := GetCurrentCallContext;
  if Assigned(Ctx) then
    Ctx.Status := '正在执行子步骤';
end;

3. 自定义Indy线程类+成员变量 #

如果使用自定义线程类处理请求，可直接给线程类添加上下文成员：

type
  TMyWebThread = class(TIdThreadWithTask)
  public
    CallContext: TCallContext;
    procedure Execute; override;
  end;

procedure TMyWebThread.Execute;
begin
  CallContext := TCallContext.Create;
  try
    inherited;
    // 执行请求处理逻辑
  finally
    CallContext.Free;
  end;
end;

// 业务函数中通过当前线程实例获取上下文
procedure SomeFunction;
var
  CurrThread: TMyWebThread;
begin
  CurrThread := TMyWebThread(TThread.CurrentThread);
  if Assigned(CurrThread.CallContext) then
    CurrThread.CallContext.Logs.Add('执行了SomeFunction');
end;

注意事项 #

• 所有方案都要确保上下文对象的生命周期与线程绑定，线程结束时必须释放，避免内存泄漏
• 每个线程的上下文对象完全独立，不会出现多线程并发冲突问题
• 禁止在非当前请求线程中访问上下文（比如主线程直接调用），否则会拿到nil或无效对象

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