学习unigui【28】UniGUI接收POST/GET

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-137.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-0111.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-03

25.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

小儿科问题，直接上流程代码：

 

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
  var
      JSONData: TBytes;
  JSONString: string;
begin
//  Result := False;

  // 判断路径是否是 /queryData
  if ARequestInfo.URI = '/queryData' then
  begin
    // 处理GET请求
    if ARequestInfo.Command = 'GET' then
    begin
      AResponseInfo.ContentText := '成功接收GET请求，参数为：' + ARequestInfo.Params.Text;
      AResponseInfo.ResponseNo := 200; // HTTP 200 OK
      Handled := True;
//      Result := True;
    end
    // 处理POST请求
    else if ARequestInfo.Command = 'POST' then
    begin

    // 确保 PostStream 有数据
      if Assigned(ARequestInfo.PostStream) then
      begin
        // 将PostStream转换为字节数组
        SetLength(JSONData, ARequestInfo.PostStream.Size);
        ARequestInfo.PostStream.Position := 0; // 重置流位置
        ARequestInfo.PostStream.ReadBuffer(JSONData[0], ARequestInfo.PostStream.Size);

        // 使用 UTF-8 将字节数组转换为字符串
        JSONString := TEncoding.UTF8.GetString(JSONData);

        AResponseInfo.ContentText := '成功接收POST请求，JSON参数为：' + JSONString;
        AResponseInfo.ResponseNo := 200; // HTTP 200 OK
      end
      else
      begin
        AResponseInfo.ContentText := 'POST请求没有包含任何数据';
        AResponseInfo.ResponseNo := 400; // HTTP 400 Bad Request
      end;



      Handled := True;
    end
    else
    begin
      AResponseInfo.ContentText := '不支持的请求方法';
      AResponseInfo.ResponseNo := 405; // HTTP 405 Method Not Allowed
      Handled := True;
//      Result := True;
    end;
  end
  else
  begin
//    AResponseInfo.ContentText := '404 - 未找到路径';
//    AResponseInfo.ResponseNo := 404; // HTTP 404 Not Found
  end;
end;

结果：