Delphi Datasnap Post请求

File- New -other

---

在Form上面添加控件：

IdHTTPServer 并实现方法IdHTTPServer1CommandGet

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo:
    TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  ADataJson:TJSONObject;
  aRequestContent:string;
begin
  if SameText(ARequestInfo.Document,'/api/JmzService/ExuBill') = True then
  begin

    if UpperCase(ARequestInfo.Command) = 'POST' THEN
    begin
  //    strPlist:= TStrings.Create();
      arequestinfo.CharSet := 'UTF-8';

      if  (arequestinfo.PostStream <> nil ) and (arequestinfo.PostStream.Size >0 ) then
      begin
        arequestinfo.PostStream.Position := 0;
        aRequestContent := StreamToString(ARequestInfo.PostStream);
      end;

      aRequestContent := TIdURI.URLDecode(aRequestContent);     //中文解码

  //    strPlist := ARequestInfo.Params;

      ADataJson:= TJSONObject.Create().AddPair('code','0').AddPair('msg','susscss').AddPair('info','测试').AddPair('token','84848ED0-A72D-4304-ADA0-001F2B7B3173');
  //    strPlist.Free;
      AResponseInfo.ContentType := 'text/html; charset=GB2312';
      AResponseInfo.CharSet := 'UTF-8';  //指定中文字符集
      AResponseInfo.ContentText:=  ADataJson.ToString;
    end;
  end
  else
  begin
   //404
      AResponseInfo.CharSet := 'UTF-8';  //指定中文字符集
      AResponseInfo.ResponseNo := 404;

      AResponseInfo.ContentText := '找不到' + ARequestInfo.Document;

  end;

在启动加上

procedure TForm1.StartServer;
begin
  if not FServer.Active then
  begin
    FServer.Bindings.Clear;
    FServer.DefaultPort := StrToInt(EditPort.Text);
    FServer.Active := True;
    IdHTTPServer1.Active := True;//非常重要
  end;
end;