تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف نتحقق ان ملف موجود على رابط معين؟؟
#1
كيف نتحقق ان ملف موجود على رابط معين؟؟
لو استخدم جملة Try لا اعرف نوع الخطا لان ممكن يكون الخطا باسم الملف بترميز غير مفهوم ممكن يكون اسم الملف يحتوي فراغات لكونه نتيجة بحث بالـ regex
جربت الكود التالي وبرضو! نفس خطا 404
كود :
Dim request As WebRequest = HttpWebRequest.Create(mybb_forum_furl & avatar_url.Trim.Replace(" ", "") & amatch.Value)
                        request.Method = "HEAD"
                        ' Just get the document headers, not the data.
                        'request.Credentials = System.Net.CredentialCache.DefaultCredentials
                        request.Headers.Add("cookie", fillmybbcookie)
                        ' This may throw a WebException:
                        Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
                            If response.StatusCode = HttpStatusCode.OK Then
                                wc.DownloadFile(mybb_forum_furl & avatar_url.Trim.Replace(" ", "") & amatch.Value, mybb_forum_lbldir & "uploads\avatars\" & amatch.Value)
                            End If

                        End Using
الرد
تم الشكر بواسطة:
#2
تفضل
PHP كود :
''' <summary>
''' 
التحقق من وجود ملف على رابط معين 
''' اذا كان قيمة غير صحيحة فيعني ذلك
''' 
404 not found
''' </summary>
''' 
<param name="url"></param>
''' <returns></returns>
Public Shared Function IsFileAlive(url As String) As Boolean

    If Not url.ToLower().StartsWith("http://") Then
        Throw New Exception("Schemeيجب ان يبدأ الرابط ب")
    End If
    Try
        Dim rq As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        rq.Method = WebRequestMethods.Http.Head
        Using rs As HttpWebResponse = DirectCast(rq.GetResponse(), HttpWebResponse)
            If rs.StatusCode = HttpStatusCode.OK Then
                Return True
            Else
                Return False
            End If
        End Using
    Catch ex As Exception
        If ex.Message = "The remote server returned an error: (404) Not Found." Then
            Return False
        Else
            Throw New Exception(ex.Message)
        End If
    End Try
End Function 

الاستعمال

PHP كود :
Try
    
Dim s As Boolean IsFileOnServer("http://www.google.com/kwskwqkdqw")
Catch 
ex As Exception
    MessageBox
.Show(ex.Message)
End Try 
الرد
تم الشكر بواسطة: Sajad , سعود , kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج لنك فيجول بيسك 2013 رابط مباشر naderalkeng54 4 53 21-09-18, 11:08 PM
آخر رد: essawq
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 125 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  اكواد صنع برنامج للضغط علي زر معين بكثره مثال علي زر c AhmedShawqe 3 111 13-09-18, 03:19 PM
آخر رد: DK-x
  مساعدة في طريقة تضمين خط معين للمشروع essawq 9 185 12-09-18, 08:02 AM
آخر رد: elgokr
  [VB.NET] منع تشغيل برنامج معين مع برنامجى habamix 1 105 20-08-18, 03:04 AM
آخر رد: boudyonline
  [VB.NET] الاستعلام على رقم معين في حقل Elhatmi 13 351 02-08-18, 10:39 AM
آخر رد: Elhatmi
  [VB.NET] التعامل مع سطر موجود بالداتا جرد فيو هاني المومني 1 108 27-07-18, 09:54 PM
آخر رد: asemshahen5
  كيف اصنع شريط تقدم مثل الذي موجود في مشغلات الفيديو معاذ ابراهيم العامري 8 317 22-07-18, 10:23 AM
آخر رد: معاذ العامري
  [VB.NET] كود او طريقة تثبيت الفريمورك اذا كان غير موجود باستخدام الساتب فاكتوري larbihamri 9 288 18-07-18, 07:40 PM
آخر رد: elgokr
  [VB.NET] كيفية جعل قيمة افتراضية من داخل كومبوبوكس موجود في داتا جريد فيو محمد صلاح ابراهيم 4 182 16-07-18, 02:31 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم