delphi4arab منتديات دلفي للعرب
التعامل مع api - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع api (/showthread.php?tid=7343)



التعامل مع api - صعب الوصايف - 10-12-2015

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


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


RE: التعامل مع api - onexite - 10-12-2015

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; 



RE: التعامل مع api - صعب الوصايف - 10-12-2015

يعطيك العافية اخي الكريم
[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


RE: التعامل مع api - onexite - 10-12-2015

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


RE: التعامل مع api - صعب الوصايف - 11-12-2015

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