السلام عليكم ورحمة الله وبركاتة
كيف حالكم اعضاء دلفي العرب
كيفة التعامل مع Abort;
مثال التحقق ان عثر على خطاء
if Abort
بدال ما يضهر لي الخطاء ويتشنج البرنامج
يضهر لي الخطاء في Memo
مع عمل توقف للبرنامج
وبس
وعليكم السلام
ما نوع الخطأ او الاستثناء الذي حدث ؟
404 غير موجود
ما الكود الذي كتبته وما الرابط ؟
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+'/'));
الكود ناقص! ماذا عن SSL بما ان الرابط https
انصحك بقراءة كتاب Indy In Depth
اخي تمام ssl ..
لاكن هذا المشكلة
لم اجد لها حل
فققرت ان اخليه الخطا لايضهر
فقط يطبع الخطا داخل memo
بدل من عرض الخطا برسالة مزعجه
عامة عندما تشك في تنفيذ امر ما استخدم/ضع بين 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);
يعطيك الله العافية اخي الكريم والله يكثر من امثالك