1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : (2) °³¹ßÅø : Delphi XE8 (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥
3. Áú¹® ³»¿ë
procedure SendData(jObj : TJSONObject ; url : String) var ..... ...... begin ............ ................. ........ RESTClient.BaseURL := URL; RESTRequest.Timeout := 15000; RESTRequest.ClearBody; RESTRequest.SynchronizedEvents := False;
RESTRequest.Method := TRESTRequestMethod.rmPOST; RESTRequest.AddParameter('Referer','http://aaaaa', TRESTRequestParameterKind.pkHTTPHEADER); RESTRequest.AddParameter('ContentType','application/x-www-form-urlencoded', TRESTRequestParameterKind.pkHTTPHEADER); RESTClient.ContentType := 'application/x-www-form-urlencoded;charset="UTF-8"'; RESTRequest.AddParameter('json', jObj.toString, TRESTRequestParameterKind.pkGETorPOST);
RESTRequest.ExecuteAsync( .............. .............
) end;
procedure aFrom.btnSend(Sender: TObject) var jObj : TJSONObject ; begin jObj := TJSONObject.create;
//°ªÀ» Json¿¡ Ãß°¡ÇÑ´Ù JsonPutData(jObj , 'Name', edtName.text); JsonPutData(jObj , 'Age', edtAge.text); SendData(jObj, 'www.test.com/test.php'); jObj.free ==> ¿©±â¿¡¼ °¡²û½Ä ¿¡·¯°¡ ¹ß»ýÇÕ´Ï´Ù ±â°è¾î·Î µÈ ¿¡·¯ÀÔ´Ï´Ù end;
ºñµ¿±â·Î ¼¹ö¿¡ º¸³»¸é ¾ðÁ¦ ¸®ÅÏÀÌ µÉÁö¸ô¶ó¼ jObj.free ¿©±â¿¡¼ ¿¡·¯°¡ ³ª´Â°Ç°¡¿ä?
¸Þ¸ð¸® ÇØÁ¦ÇØÁÖ¸é ¾ÈµÇ³ª¿ä?
|