السلام عليكم ،،،
أرغب في تحويل الكود التالي الدلفي
Private _pageDecoding As System.Text.Encoding = GetEncoding(1256) Private _pageEncoding As System.Text.Encoding = GetEncoding(1252) Function ReEncodeString(ByVal s As String) As String Dim bytes() As Byte bytes = System.Text.Encoding.Unicode.GetBytes(s) bytes = System.Text.Encoding.Convert(System.Text.Encoding.Unicode, _pageDecoding, bytes) Return _pageEncoding.GetString(bytes) End Function Function ReDecodeString(ByVal ds As String) As String Dim dbytes() As Byte dbytes = System.Text.Encoding.Unicode.GetBytes(ds) Return _pageDecoding.GetString(dbytes) End Function