Delphi DataSnap 在正文中上傳 xml 文件

Question

在帶有 Datasnap 組件的 delphi 10 中，我試圖聲明一個接收 XML 文件的 Post 方法，但我不能。

有人知道 Datasnap 是否只能在正文中接收 Json 格式類型嗎？

（相反，任何例子都會很棒）

提前致謝。

Answer 1

您可以使用 datasnap WebModuleUnit 和自定義 ufileUploader 單元來克服這個問題，如下所示：

1. 在 WebModuleUnit 中：

    procedure TWebModule1.WebModuleDefaultAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    begin
      if Request.InternalPathInfo.StartsWith('/UploadFile') then
        Response.Content := ufileUploader.UploadFile(Request)
      else if (Request.InternalPathInfo = '') or (Request.InternalPathInfo = '/')
      then
        Response.Content := ReverseString.Content
      else
        Response.SendRedirect(Request.InternalScriptName + '/');
    end;

2. 在您的 ufileUploader 單元中：

    unit ufileUploader;
    
    interface
    
    uses Web.HTTPApp;
    
    function UploadFile(ARequest: TWebRequest): string;
    
    implementation
    
    uses System.SysUtils, System.Classes, Web.ReqMulti;
    
    function UploadFile(ARequest: TWebRequest): string;
    const
      DestPath = 'c:\';
    var
      i: integer;
      LFileName: string;
      LStream: TMemoryStream;
    begin
      if not TMultipartContentParser.CanParse(ARequest) then
      begin
        Result := 'Cannot parse request';
        Exit;
      end;
      if ARequest.Files.Count < 1 then
      begin
        Result := 'No file sended';
        Exit;
      end;
      LStream := TMemoryStream.Create;
      try
        // You have sended ARequest.Files.Count files
        for i := 0 to ARequest.Files.Count - 1 do
        begin
          LFileName := string(ARequest.Files.Items[i].FileName);
          LStream.Clear;
          // Read the sended file stream
          LStream.CopyFrom(ARequest.Files.Items[i].Stream,
            ARequest.Files.Items[i].Stream.Size);
          LStream.Position := 0;
          // Do what you want with the stream
          LStream.SaveToFile(DestPath + LFileName);
        end;
        Result := Format('%d files saved to %s ', [ARequest.Files.Count, DestPath]);
      finally
        FreeAndNil(LStream);
      end;
    end;
    
    end.

Answer 2

這不是您希望的答案，但我為這個確切的問題與 Embarcadero 開了一個案例，他們的回答是：

你好

我的名字是史蒂夫·阿克斯特爾。 我正在看這個案子。

很抱歉，Datasnap 不支持 XML。 它只支持 JSON，因此會出現錯誤消息。

問候

Steve Axtell Embarcadero 支持 ref:_00D30HwR._5005a28Y6yq:ref

問題出在Datasnap.DSService.TDSRESTService.ProcessParameters中：

// Look for more parameters in the body
if (Content <> nil) and (Length(Content) > 0) then
begin
  if LBody = nil then
  begin
    LBodyArray := nil;
    LBody := TJSONObject.ParseJSONValue(Content, 0);
    LFreeBody := LBody;
    if LBody = nil then
    begin
      //ParamArray.Free;
      raise TDSServiceException.Create(SNoJSONValue);
    end;
    if (LBody is TJSONObject) and (TJSONObject(LBody).Count = 1) and
      (TJSONObject(LBody).Pairs[0].JSonString.Value = PARAMETERS_PAIR) and
      (TJSONObject(LBody).Pairs[0].JsonValue is TJSONArray) then
    begin
      LBodyArray := TJSONArray(TJSONObject(LBody).Pairs[0].JsonValue);
      LBodyArrayIndex := 0;
    end
  end;
end;

如果正文不在 JSON 中，則無法處理 REST 請求，而且我還沒有找到強制 DataSnap 不在正文中查找其他參數的方法。

請注意，在我的例子中，我沒有使用 TComponent 而是使用 TDataModule 作為服務器方法。