[سعود]

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
ومع ذلك جربتها من الجانبين ولم يتغير شي

[الطالب]

سلام


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

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


موفقين

[سعود]

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

[أبو عمر]

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

[الطالب]

سلام


جرب هذا - ا للي فهمته ان الترميز يخص ال 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 لمشروع بسيط للتجربه، هذا اذا ما فيه ازعاج او بثقل عليك،
لاني ما فهمت موضوعك.

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


موفقين

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