在Delphi中使用GET請求傳遞JSON,可以使用TNetHttpClient組件來實現,步驟如下:
// 1. 實例化TNetHttpClient組件 var httpClient: TNetHttpClient := TNetHttpClient.Create(nil); try // 2. 設置請求參數 var url := 'https://example.com/api?data=';//請求的URL和參數名 var jsonData := TJSONObject.Create; try jsonData.AddPair('name', '小明'); jsonData.AddPair('age', '22'); jsonData.AddPair('gender', '男'); var requestBody := TEncoding.UTF8.GetBytes(jsonData.ToString);//將JSON轉換為字節流 // 3. 發送GET請求 var response: IHTTPResponse := httpClient.Get(url + TBase64Encoding.Base64.Encode(requestBody)); //4. 解析響應數據 var responseStr := response.ContentAsString(); //將響應轉換為字符串 ShowMessage(responseStr); //在界面顯示響應字符串 finally jsonData.Free; end; finally httpClient.Free; end;
其中,第2步中的TEncoding.UTF8.GetBytes(jsonData.ToString)將JSON對象轉換為字節流,第3步中使用了TBase64Encoding將字節流進行編碼,避免了JSON中的特殊字符引起的問題。
上述代碼僅供參考,實際使用中需根據具體情況進行修改。
下一篇vue 開發原生app