Delphi是一種功能強大的編程語言，有時您需要使用POST傳輸JSON字符串來實現與其他服務的交互。下面我們將介紹如何使用Delphi POST傳JSON字符串。

var
Http: THTTPClient;
Request: THTTPRequest;
Response: IHTTPResponse;
JsonToSend: TStringStream;
begin
Http := THTTPClient.Create;
Request := THTTPRequest.Create(Http.MethodPost, 'http://yourapi.com/postjson');
try
JsonToSend := TStringStream.Create('{"name": "Tom", "age": 18}');
Request.Body := JsonToSend;
Request.ContentType := 'application/json';
Response := Http.Execute(Request);
ShowMessage(Response.ContentAsString);
finally
Http.Free;
Request.Free;
JsonToSend.Free;
end;
end;

上述代碼中，我們首先創建了一個THTTPClient實例和一個THTTPRequest實例。然后，我們創建了一個TStringStream實例，用于將要發送的JSON字符串寫入請求體中。接下來，我們將請求體設置為JsonToSend，并設置請求內容類型的頭部為application/json。

最后，我們使用http.Execute方法發送POST請求并獲取響應。在獲取響應后，我們可以將其內容轉換為字符串并在屏幕上顯示。

現在，您了解了如何在Delphi中使用POST傳輸JSON字符串。希望這篇文章能夠幫助您實現與其他服務的交互。