欧美一区二区三区,国内熟女精品熟女A片视频小说,日本av网,小鲜肉男男GAY做受XXX网站

delphi get請求傳遞json

錢良釵2年前9瀏覽0評論

在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中的特殊字符引起的問題。

上述代碼僅供參考,實際使用中需根據具體情況進行修改。