delphi - 是否可以在 TIdHTTPServer onCommandGet 事件中重定向请求并使用 TIdHTTP(客户端)返回响应？

Question

我想知道我是否可以有 onCommandGet 事件，我可以将客户端请求重定向到另一个主机/端口，使用 TIdHTTP(客户端)获取我需要的信息并通过 AResponseInfo 将其发送回客户端？

它应该看起来像这样:

procedure HTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
client : TIdHTTP;
begin
  client := TIdHTTP.Create();
  try
    client.Request := ARequestInfo; // or somehow put the ARequestInfo in the client
    ... // in here I don't know how to make the GET, POST, HEAD or other 
    ... // (if possible) request to 'some_host:some_port'
    AResponseInfo := client.Response; // or somehow put the client Response in AResponseInfo
  finally
    FreeAndNil(client);
  end;


end;

Answer 1

没有本地解决方案可以满足您的要求。您将不得不手动实现它。从 ARequestInfo 复制相关值属性到 TIdHTTP.Request根据需要调用TIdHTTP.Get() , TIdHTTP.Post()等，然后从 TIdHTTP.Response 复制相关值进入 AResponseInfo如所须。