获取原始的content

[wr960204]

今天遇到个情况，就是对方给过来的数据contentType和真实的不一样，它说是UrlEncod的类型，实际是字符串类型。
但是咱们的代码UrlEncod是在接受阶段就做了解码，然后把原始数据流释放了。不一定能准确的还原出原始数据。

是否可以在接收数据阶段只做Stream的存储，给Request增加诸如：contentAsString(encoding : TEncoding),contentAsJSON,contentAsUrlEncod,contentAsBytes类似的方法。
在方法里面做转换。这样任何类型如果想要读原始直接访问这个数据流即可。

[winddriver]

不能这么干，因为还有MultiPart数据，它不适合直接写到单一的内存流里。
目前代码里其实已经做了类似处理，btUrlEncoded类型的body数据先尝试decode，失败后会保留原始流。
我可以改一下Decode方法，让它更严格地检查格式

procedure TCrossHttpConnection._OnBodyEnd;
var
  LUrlEncodedStr: string;
  LUrlEncodedBody: THttpUrlParams;
begin
  if (FRequestObj.FBody = nil) then Exit;

  case FRequestObj.GetBodyType of
    btUrlEncoded:
      begin
        SetString(LUrlEncodedStr,
          MarshaledAString((FRequestObj.FBody as TMemoryStream).Memory),
          (FRequestObj.FBody as TMemoryStream).Size);
        LUrlEncodedBody := THttpUrlParams.Create;
        if LUrlEncodedBody.Decode(LUrlEncodedStr) then
        begin
          FreeAndNil(FRequestObj.FBody);
          FRequestObj.FBody := LUrlEncodedBody;
        end else
        begin
          FreeAndNil(LUrlEncodedBody);
          // 如果按 UrlEncoded 方式解码失败, 则保留原始数据
          // 并将类型改为 btBinary
          FRequestObj.FBodyType := btBinary;
          (FRequestObj.FBody as TStream).Position := 0;
        end;
      end;

    btBinary:
      (FRequestObj.FBody as TStream).Position := 0;
  end;
end;

[winddriver]

加了个RawBody，你试试吧

要转成其它数据就自行解决就行了

[wr960204]

十分感激

[wr960204]

代码有一处编译不过。
Utils.Logger 305行
LStream := TFileUtils.OpenWrite(ALogFile)；
LStream是TFileStream；TFileUtils.OpenWrite(ALogFile)返回的是TStream。

[winddriver]

不好意思，漏了Utils.Logger，已经更新了