25-10-25, 06:46 AM
(25-10-25, 05:56 AM)Zuhare كتب : هل تريد فقط استخراج filename من headers الرابط؟
موضوعها سهل لكن الكود القديم يواجه مشكلة الترميز ...الان انتهىت المشكلة .
هذا هو الكود بعد ان اوقفت البرنامج ...الكود كان Function كامل اخذته فقط بهذه الصورة.
كود :
Dim fileData As Byte() = wc2.DownloadData(aurl)
Dim contentDisposition As String = wc2.ResponseHeaders("Content-Disposition")
If Not String.IsNullOrEmpty(contentDisposition) Then
Dim fileName As String = ""
If contentDisposition.Contains("filename=") Then
fileName = contentDisposition.Substring(contentDisposition.IndexOf("filename=") + 9)
fileName = fileName.Replace("""", "")
fileName = Uri.UnescapeDataString(fileName)
Return fileName
End If
End Ifاللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير