सी # परावर्तन - एक चर

Question

मैं एक वर्ग का एक उदाहरण है की एक फ़ील्ड का मान बदल रहा है, मैं इस उदाहरण का एक उद्देश्य डेटा सदस्य केवल एक ही प्रकार (स्वैप) की एक और वस्तु के साथ, कारण बदलना चाहते हैं मेरे सिस्टम की बाधाओं के लिए मैं =, नए या सेटर ऑपरेटर का उपयोग नहीं कर सकता।

मूल रूप से मैं एक चर के क्षेत्र के मान को बदलना चाहता हूं, फ़ील्ड एक अन्य वस्तु के अंदर एक वस्तु है - चर जो इसके उदाहरण है।

क्या यह प्रतिबिंब का उपयोग कर संभव है? यदि ऐसा है तो कृपया मुझे बुनियादी दिशा दे सकते हैं?

धन्यवाद Yoav

Answer 1

हाँ, यह संभव है।

संक्षेप में, एक छिपा हुआ (निजी/संरक्षित/आंतरिक) फ़ील्ड का मान बदलने के लिए

Type typeInQuestion = typeof(TypeHidingTheField); 
FieldInfo field = typeInQuestion.GetField("FieldName", BindingFlags.NonPublic | BindingFlags.Instance); 
field.SetValue(instanceOfObject, newValue); 

की तरह कुछ है। पढ़ने के लिए संबंधित FieldInfo.GetValue(...) का उपयोग करें; अपने वांछित स्वैपिंग ऑपरेशन प्राप्त करने के लिए दो छोटे से गठबंधन करें।

मुझे बाध्यकारीफ्लैग पर न रखें (मुझे हमेशा पहले प्रयास में उन गलत लगता है) या सटीक वाक्यविन्यास, लेकिन यह मूल रूप से यह है।

संदर्भ के लिए System.Reflection पर देखो।

Answer 2

आप .NET 3.5 का उपयोग करते हैं, तो आप उस संबोधित करने के लिए निम्न कोड के साथ मेरी खुला स्रोत पुस्तकालय, Fasterflect, उपयोग कर सकते हैं:

typeof(MyType).SetField("MyField", anotherObject); 

Fasterflect उपयोग करते समय, आप के साथ परेशान करने के लिए नहीं है सही बाध्यकारीफ्लैग विनिर्देश और प्रदर्शन निहितार्थ (जैसे प्रतिबिंब का उपयोग करते समय)।

जेनरिक साथ vb में

Answer 3

, लेकिन मौलिक त्रुटि हैंडलिंग:

Module somereflectionops 
    Function GetFieldValue(Of OBTYPE, FIELDTYPE)(instance As OBTYPE, fieldname As String, Optional specbindingflags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance) As FIELDTYPE 
     Dim ot As Type = GetType(OBTYPE) 
     Dim fi As FieldInfo 
     Try 
      fi = ot.GetField(fieldname, BindingFlags.Default Or specbindingflags) 
      If fi Is Nothing Then Return Nothing 
      Return fi.GetValue(instance) 
     Catch ex As Exception 
      Return Nothing 
     End Try 
    End Function 

    Function SetFieldValue(Of OBTYPE, FIELDTYPE)(instance As OBTYPE, fieldname As String, value As FIELDTYPE, Optional specbindingflags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance) As Boolean 
     Dim ot As Type = GetType(OBTYPE) 
     Dim fi As FieldInfo 
     Try 
      fi = ot.GetField(fieldname, BindingFlags.Default Or specbindingflags) 
      If fi Is Nothing Then Return false 
      fi.SetValue(instance, value) 
      Return True 
     Catch ex As Exception 
      Return False 
     End Try 
    End Function 
End Module 

उपयोग: SetFieldValue (cartonclass से पूर्णांक) (cartonyoudropped, "survivingeggcount", 3)