1 下載/安裝組件uLkJSON.pas

2 下載/安裝組件strprocess.pas

uses SuperObject,uLkJSON,strprocess;

//POST JSON數(shù)據(jù)格式的請(qǐng)求

procedure TForm1.btnPostRequestClick(Sender: TObject);

var

Url,strBandID,strShopID,str3,str4,strCoin: string;//請(qǐng)求地址

strReqJson: TStringStream;

JsonReceived,JsonSend: ?TlkJSONobject;

strResp : string;

begin

//請(qǐng)求地址

Url := '';

//請(qǐng)求參數(shù){"bandid":"手環(huán)ID","shopid":"場(chǎng)地ID","sign":"參數(shù)簽名"}

//創(chuàng)建一個(gè)包含JSON數(shù)據(jù)的變量,這種格式有問(wèn)題嗎？

strBandID ?:= '000001';

strShopID ?:= '000001';

JsonSend := TlkJSONobject.Create;//必須先Create一個(gè)對(duì)象

JsonSend.Add('bandid',strBandID);

JsonSend.Add('shopid',strShopID);

JsonSend.Add('sign',getSignature(strBandID+strShopID));

strReqJson := TStringStream.Create(TlkJSON.GenerateText(JsonSend));

memo1.Lines.Clear;

memo1.Lines.add(strReqJson.DataString);

strReqJson.Position := 0;

try

IdHTTP1.Request.ContentType := 'application/json';

strResp := IdHTTP1.Post(URL, strReqJson);

memo2.Lines.Clear;

Memo2.Lines.Text :=strResp;

// 錯(cuò)誤的JSON數(shù)據(jù)格式,為什么會(huì)多了[] : [{"code":"0","message":"success","object":{"bandid":"000001","coin":"5"}}]

// 返回正確的JSON數(shù)據(jù)格式 {"code":"0","message":"success","object":{"bandid":"000001","coin":"5"}}

JsonReceived := TlkJSON.ParseText(TrimRightChar(TrimLeftChar(trim(strResp),'['),']')) as TlkJSONobject;

//Jstart.field 為jbase時(shí)，

strBandID := vartostr(JsonReceived.Field['object'].Field['bandid'].Value);

memo3.Lines.Clear;

memo3.Lines.add(strBandID);

//Jstart.field 有子數(shù)據(jù)為jslist時(shí)

strCoin := vartostr(JsonReceived.Field['object'].Field['coin'].Value);

memo3.Lines.add(strCoin);

finally

JsonSend.Free;

JsonReceived.Free;

end;

end;

文件ServletDelphi.java

import java.io.IOException;

import java.io.InputStream;

import java.io.PrintWriter;

import javax.servlet.ServletException;

import javax.servlet.http.HttpServlet;

import javax.servlet.http.HttpServletRequest;

import javax.servlet.http.HttpServletResponse;

import net.sf.json.JSONArray;

import net.sf.json.JSONObject;

public class ServletDelphi extends HttpServlet {

/**

* Constructor of the object.

*/

public ServletDelphi() {

super();

}

/**

* Destruction of the servlet.

*/

public void destroy() {

super.destroy(); // Just puts "destroy" string in log

// Put your code here

}

/**

* The doGet method of the servlet.

*

* This method is called when a form has its tag value method equals to get.

*

* @param request the request send by the client to the server

* @param response the response send by the server to the client

* @throws ServletException if an error occurred

* @throws IOException if an error occurred

*/

public void doGet(HttpServletRequest request, HttpServletResponse response)

throws ServletException, IOException {

response.getWriter().println("Hello Servlet Delphi!");

}

/**

* The doPost method of the servlet.

*

* This method is called when a form has its tag value method equals to post.

*

* @param request the request send by the client to the server

* @param response the response send by the server to the client

* @throws ServletException if an error occurred

* @throws IOException if an error occurred

*/

public void doPost(HttpServletRequest request, HttpServletResponse response)

throws ServletException, IOException {

String strJson = inputStream2String(request.getInputStream());

//System.out.println("receive json:"+json);

//response.getWriter().println(json);

JSONObject subJsonObj = new JSONObject();

subJsonObj.put("bandid", "000001");

subJsonObj.put("coin", "5");

JSONObject responseJsonObj = new JSONObject();

responseJsonObj.put("code", "0");

responseJsonObj.put("message", "success");

responseJsonObj.put("object", subJsonObj);

JSONArray array = new JSONArray();

array.add(responseJsonObj);

//System.out.println("return JSON: " + array.toString());

response.getWriter().println(array.toString());

}

/**

* Initialization of the servlet.

*

* @throws ServletException if an error occurs

*/

public void init() throws ServletException {

// Put your code here

}

public static String inputStream2String (InputStream in) throws IOException {

StringBuffer out = new StringBuffer();

byte[] b = new byte[4096];

for (int n; (n = in.read(b)) != -1;) {

out.append(new String(b, 0, n));

}

return out.toString();

}

}

來(lái)自 “ ITPUB博客 ” ，鏈接：http://blog.itpub.net/10248702/viewspace-2133540/，如需轉(zhuǎn)載，請(qǐng)注明出處，否則將追究法律責(zé)任。

總結(jié)

以上是生活随笔為你收集整理的delphi 解析json java_Delphi处理JSON格式数据的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。