التعامل مع الخطاء في text - نسخة قابلة للطباعة

التعامل مع الخطاء في text - نسخة قابلة للطباعة

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

التعامل مع الخطاء في text - صعب الوصايف - 21-02-2016

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

Blush

كيف حالكم اعضاء دلفي العرب

كيفة التعامل مع Abort;

مثال التحقق ان عثر على خطاء
if Abort
بدال ما يضهر لي الخطاء ويتشنج البرنامج
يضهر لي الخطاء في Memo
مع عمل توقف للبرنامج
وبس

RE: التعامل مع الخطاء في text - محمد عبد العزيز - 21-02-2016

وعليكم السلام
ما نوع الخطأ او الاستثناء الذي حدث ؟

RE: التعامل مع الخطاء في text - صعب الوصايف - 21-02-2016

الخطاء من IDHTTP
idhttp http 1.1 404 not found

http://d.top4top.net/p_51obpb1.png

RE: التعامل مع الخطاء في text - محمد عبد العزيز - 21-02-2016

404 غير موجود
ما الكود الذي كتبته وما الرابط ؟

RE: التعامل مع الخطاء في text - صعب الوصايف - 21-02-2016

Memo1.Lines.Add(idhttp.Get('https://www.instagram.com/'+edit1.Text+'/'))

idhttp := Tidhttp.Create(nil);
idhttp.Request.Accept := 'text/html, */*';
idhttp.Request.UserAgent := 'User-Agent=Mozilla/5.0 (Windows NT 6.1; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0)';
idhttp.Request.ContentType := 'Content-Type=application/x-www-form-urlencoded; charset=UTF-8';
idhttp.HandleRedirects := True;

Memo1.Lines.Add(idhttp.Get('https://www.instagram.com/'+edit1.Text+'/'));

RE: التعامل مع الخطاء في text - محمد عبد العزيز - 22-02-2016

الكود ناقص! ماذا عن SSL بما ان الرابط https
انصحك بقراءة كتاب Indy In Depth

RE: التعامل مع الخطاء في text - صعب الوصايف - 22-02-2016

اخي تمام ssl ..

لاكن هذا المشكلة
لم اجد لها حل
فققرت ان اخليه الخطا لايضهر
فقط يطبع الخطا داخل memo
بدل من عرض الخطا برسالة مزعجه

RE: التعامل مع الخطاء في text - محمد عبد العزيز - 22-02-2016

عامة عندما تشك في تنفيذ امر ما استخدم/ضع بين try except
في حالتك الامر هو Get لidhttp
بدلا من الاستخدام المباشر

كود :
Memo1.Lines.Add(idhttp.Get('https://www.instagram.com/'+edit1.Text+'/'));

غيره بشيئ مثل

كود :
Var
HTML:String;
Begin
//..... باقي الكود
Try
HTML := idhttp.Get(https://www.instagram.com/'+edit1.Text+'/');
except
on e: EIdHTTPProtocolException do begin
      Memo1.lines.add(e.ErrorMessage);
      Memo1.lines.add(idHTTP.response.ResponseText);
end;
end;
Memo1.Lines.Add(HTML);

RE: التعامل مع الخطاء في text - صعب الوصايف - 22-02-2016

يعطيك الله العافية اخي الكريم والله يكثر من امثالك