منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف نرسل ترميز النص مع الــ webrequest

الصفحات : 1 2 3

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 

سلام

مع اني ماني فاهم الموضوع، لكن اعتقد انها احدى هذه

كود :

req.Headers.Add("Content-Type", "text/xml; charset=windows-1256")

او

req.Headers.Add(HttpRequestHeader.ContentEncoding, "windows-1256")

او

req.Headers.Add("Content-Encoding", "windows-1256")

موفقين

القيمة تصل للخادم لكن لا تعود بالترميز الصحيح فقط اللغة الانجليزية ام العربي لا.
اظن Response
ومع ذلك جربتها من الجانبين ولم يتغير شي Sad

سلام

ممكن تضع مشروع صغير للتجربه مع شرح بسيط للتشغيل

وممكن تشوف هذا الرابط بيتكلم عن ال GetResponse مع UTF8
https://msdn.microsoft.com/en-us/library....100).aspx

موفقين

اطلعت عليه ولم افهم منه شيء Sad

بالنسبة للمشروع بسيط جدا كما ترى الاكواد هذا هو كل مالدي

سعود
العربي خليه كلمة واحدة من دون مسافات
او حط بدل المسافات شرطة مثلا
سعود_محمد

سلام

جرب هذا - ا للي فهمته ان الترميز يخص ال 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

موفقين

(08-09-15, 11:48 AM)أبو عمر كتب : [ -> ]سعود
العربي خليه كلمة واحدة من دون مسافات
او حط بدل المسافات شرطة مثلا
سعود_محمد

جربت فقط الاسم وتفس الاشكال الترميز مش مضبوط

إقتباس :جرب هذا - ا للي فهمته ان الترميز يخص ال response

الـreadStream.ReadToEnd() جاب محتوى الصفحة html source

لكن لدى سؤال كيف نحول النص لبايت ثم نعيده الى string اذكر الاخ vbnet عملها مرة وايضا الاخ syria

سلام

ممكن تعطيني خطوات اسويه على 2010 لمشروع بسيط للتجربه، هذا اذا ما فيه ازعاج او بثقل عليك،
لاني ما فهمت موضوعك.

احيانا يكون عندي تطفل مزعج للاخرين.....

موفقين

(08-09-15, 12:11 PM)الطالب كتب : [ -> ]سلام

ممكن تعطيني خطوات اسويه على 2010 لمشروع بسيط للتجربه، هذا اذا ما فيه ازعاج او بثقل عليك،
لاني ما فهمت موضوعك.

احيانا يكون عندي تطفل مزعج للاخرين.....

موفقين

بارك الله فيك .. بالعكس احنا المستفيدين Smile

المشروعان مرفقان(ههههههه وين مدرس النحو)

الصفحات : 1 2 3