+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف نرسل ترميز النص مع الــ webrequest (/showthread.php?tid=13166)
كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
PHP كود :
Dim un As String = "", cpid As String = "", dt As String = ""
un = txtid.Text
cpid = CpuId()
dt = gd()
Dim forcheck As String = "?un=" & un & "&cpid=" & cpid & "&dt=" & dt
Dim url As String = "http://localhost:54832/Default.aspx" & forcheck
Dim req As WebRequest = WebRequest.Create(url)
req.Headers.Add("Charset", "windows-1256")
Dim res As WebResponse = req.GetResponse
lblstate.Text = res.Headers("ok").ToString
res.Close()
الاعلى في البرنامج المكتبي
في صفحة الويب
PHP كود :
Private Function reply(ByVal un As String) As String
Return "welcome : " & un
End Function
If Not IsPostBack Then
Response.Headers.Add("ok", reply(Request.QueryString("un")))
Return
End If
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
مع اني ماني فاهم الموضوع، لكن اعتقد انها احدى هذه
كود :
req.Headers.Add("Content-Type", "text/xml; charset=windows-1256")
او
req.Headers.Add(HttpRequestHeader.ContentEncoding, "windows-1256")
او
req.Headers.Add("Content-Encoding", "windows-1256")موفقين
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
القيمة تصل للخادم لكن لا تعود بالترميز الصحيح فقط اللغة الانجليزية ام العربي لا.
اظن Response
ومع ذلك جربتها من الجانبين ولم يتغير شي
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
ممكن تضع مشروع صغير للتجربه مع شرح بسيط للتشغيل
وممكن تشوف هذا الرابط بيتكلم عن ال GetResponse مع UTF8
https://msdn.microsoft.com/en-us/library/system.net.httpwebrequest.getresponse(v=vs.100).aspx
موفقين
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
اطلعت عليه ولم افهم منه شيء
بالنسبة للمشروع بسيط جدا كما ترى الاكواد هذا هو كل مالدي
RE: كيف نرسل ترميز النص مع الــ webrequest - أبو عمر - 08-09-15
سعود
العربي خليه كلمة واحدة من دون مسافات
او حط بدل المسافات شرطة مثلا
سعود_محمد
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
جرب هذا - ا للي فهمته ان الترميز يخص ال response
لكن الافضل استخدام UTF8
كود :
Dim un As String = "", cpid As String = "", dt As String = ""
un = txtid.Text
cpid = CpuId()
dt = gd()
Dim forcheck As String = "?un=" & un & "&cpid=" & cpid & "&dt=" & dt
Dim url As String = "http://localhost:54832/Default.aspx" & forcheck
Dim req As WebRequest = WebRequest.Create(url)
Dim res As WebResponse = req.GetResponse
Dim receiveStream As Stream = res.GetResponseStream()
Dim readStream As New StreamReader(receiveStream, System.Text.Encoding.UTF8)
MsgBox(readStream.ReadToEnd())
lblstate.Text = res.Headers("ok").ToStringموفقين
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
(08-09-15, 11:48 AM)أبو عمر كتب : سعود
العربي خليه كلمة واحدة من دون مسافات
او حط بدل المسافات شرطة مثلا
سعود_محمد
جربت فقط الاسم وتفس الاشكال الترميز مش مضبوط
إقتباس :جرب هذا - ا للي فهمته ان الترميز يخص ال responseالـreadStream.ReadToEnd() جاب محتوى الصفحة html source
لكن لدى سؤال كيف نحول النص لبايت ثم نعيده الى string اذكر الاخ vbnet عملها مرة وايضا الاخ syria
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
ممكن تعطيني خطوات اسويه على 2010 لمشروع بسيط للتجربه، هذا اذا ما فيه ازعاج او بثقل عليك،
لاني ما فهمت موضوعك.
احيانا يكون عندي تطفل مزعج للاخرين.....
موفقين
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
(08-09-15, 12:11 PM)الطالب كتب : سلام
ممكن تعطيني خطوات اسويه على 2010 لمشروع بسيط للتجربه، هذا اذا ما فيه ازعاج او بثقل عليك،
لاني ما فهمت موضوعك.
احيانا يكون عندي تطفل مزعج للاخرين.....
موفقين
بارك الله فيك .. بالعكس احنا المستفيدين
المشروعان مرفقان(ههههههه وين مدرس النحو)