学习unigui【28】UniGUI接收POST/GET
小儿科问题，直接上流程代码：
1 procedure TUniServerModule.UniGUIServerModuleHTTPCommand( 2 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo; 3 var Handled: Boolean); 4 var 5 JSONData: TBytes; 6 JSONString: string; 7 begin 8 // Result := False; 9 10 // 判断路径是否是 /queryData 11 if ARequestInfo.URI = '/queryData' then 12 begin 13 // 处理GET请求 14 if ARequestInfo.Command = 'GET' then 15 begin 16 AResponseInfo.ContentText := '成功接收GET请求，参数为：' + ARequestInfo.Params.Text; 17 AResponseInfo.ResponseNo := 200; // HTTP 200 OK 18 Handled := True; 19 // Result := True; 20 end 21 // 处理POST请求 22 else if ARequestInfo.Command = 'POST' then 23 begin 24 25 // 确保 PostStream 有数据 26 if Assigned(ARequestInfo.PostStream) then 27 begin 28 // 将PostStream转换为字节数组 29 SetLength(JSONData, ARequestInfo.PostStream.Size); 30 ARequestInfo.PostStream.Position := 0; // 重置流位置 31 ARequestInfo.PostStream.ReadBuffer(JSONData[0], ARequestInfo.PostStream.Size); 32 33 // 使用 UTF-8 将字节数组转换为字符串 34 JSONString := TEncoding.UTF8.GetString(JSONData); 35 36 AResponseInfo.ContentText := '成功接收POST请求，JSON参数为：' + JSONString; 37 AResponseInfo.ResponseNo := 200; // HTTP 200 OK 38 end 39 else 40 begin 41 AResponseInfo.ContentText := 'POST请求没有包含任何数据'; 42 AResponseInfo.ResponseNo := 400; // HTTP 400 Bad Request 43 end; 44 45 46 47 Handled := True; 48 end 49 else 50 begin 51 AResponseInfo.ContentText := '不支持的请求方法'; 52 AResponseInfo.ResponseNo := 405; // HTTP 405 Method Not Allowed 53 Handled := True; 54 // Result := True; 55 end; 56 end 57 else 58 begin 59 // AResponseInfo.ContentText := '404 - 未找到路径'; 60 // AResponseInfo.ResponseNo := 404; // HTTP 404 Not Found 61 end; 62 end;
结果：
