التعامل مع api

[صعب الوصايف]

السلام عليكم ورحمة الله وبركاتة


عند طلب صفحة خدمة api 
من صفحة api/api.php
يأتي الرد
هكذا
{ "status":true, "result":"السلام عليكم", "message":"" }
انا جلعت الرد يأتي في Memo1
الطريقة لجلب فقط رسالة ( السلام عليكم )  من دون { "status":true, "result":", "message":"" }
هل يمكن فعلها ؟
ب idhttp
او من خصائص Memo ؟
لأني لا أعلم كيف

[onexite]

PHP كود :

implementation
   uses dbxJSON;

const
  response = '{ "status":true, "result":"السلام عليكم", "message":"" }' ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  LJsonObj  : TJSONObject;
begin
    LJsonObj    := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(response),0) as TJSONObject;
  try
   ShowMessage(LJsonObj.Get('result').JsonValue.Value);
  finally
     LJsonObj.Free;
  end;

end; 


[صعب الوصايف]

يعطيك العافية اخي الكريم
[b]onexite[/b]
انا ودي شرح بس بسيـط عشان اتعامل معها مستقبلاً فهي مفيدة جداً
ليت تشرح لي الكون فقط لأن أساساً معرف المكون الخاص به
لأن برفق لك مثال صيني بعد البحث
ف ياليت شرح بسيط للكون الخاص بـك حتى أفهمه

---

لأن هذا يضهر لي خطاء
LJsonObj  : TJSONObject;
وهذا
dbxJSON; في uses

---

[dcc32 Error] Unit1.pas(31): E2003 Undeclared identifier: 'TJSONObject'
[dcc32 Error] Unit1.pas(33): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(33): E2015 Operator not applicable to this operand type
[dcc32 Error] Unit1.pas(35): E2029 ')' expected but identifier 'Get' found
[dcc32 Error] Unit1.pas(35): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(35): E2125 EXCEPT or FINALLY expected
[dcc32 Error] Unit1.pas(39): E2029 '.' expected but ';' found
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Failed

[onexite]

مثل هذه المواضيع موجودة في المنتدى
http://delphi4arab.net/forum/showthread.php?tid=4232

[صعب الوصايف]

يعطيك العافية جاري المحاولة لفهم طريقة العمل