دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة DNSUIDRecToDNSUIDStr

تحويل سجل DNSUID إلى نص DNSUID.

الصيغة:

Function DNSUIDRecToDNSUIDStr(UIDRec As TDNSUIDRec) As String

الصنف:
TString.

الوسائط (Parameters):

الشرح:
هذه واحدة من دوال تحويل أرقام DNSUID. رقم DNSUID هو سلسلة نصية (String) مكونة من 20 رقماً (مثلاً 62020050110194124031)، و يتم توليد هذه الأرقام بحيث لا يمكن أن يتكرر الرقم مرة أخرى. بالإضافة إلى كونه سلسلة نصية، يمكنك التعامل مع الرقم على أنه سجل يتكون من 10 حقول من النوع Byte، و كذلك يمكنك التعامل معه على أنه مصفوفة ذات 10 عناصر من النوع Byte (كل رقمين متتاليين في السلسلة النصية يمثلان بايتاً واحدة)، مع العلم أن تحويل النص إلى سجل أو مصفوفة يبدأ من اليسار إلى اليمين. حيث تقوم هذه الدالة بتحويل رقم DNSUID من سجل TDNSUIDRec إلى نص.
البارامتر UIDRec هو من النوع TDNSUIDRec الذي يتكون من 10 حقول من النوع Byte (أسماؤها Byte1, Byte2, ... إلخ)، لكن أي حقل في السجل يجب أن تكون قيمته محصورة بين 0 و 99، و إلا فإن الدالة ستعيد نصاً فارغاً.
النص الناتج هو تمثيل نصي لحقول السجل ابتداءً من أول حقل في السجل (Byte1) عند بداية النص من اليسار، و انتهاءً بآخر حقل في السجل (Byte10) عند نهاية النص من اليمين.
يمكنك توليد أرقام DNSUID باستعمال الدالة GetDNSUIDStr أو إحدى أخواتها، و يمكنك استعمال هذه الأرقام كمعرفات فريدة لا تتكرر.

الاستخدام:

Dim ObjString As New TString
Dim UIDRec As TDNSUIDRec

UIDRec = ObjString.GetDNSUIDRec()
Text1.Text = ObjString.DNSUIDRecToDNSUIDStr(UIDRec)

انظر أيضاً:
الدالة DNSUIDArrToDNSUIDStr
الدالة DNSUIDStrToDNSUIDArr
الدالة DNSUIDStrToDNSUIDRec
الدالة GetDNSUIDArr
الدالة GetDNSUIDRec
الدالة GetDNSUIDStr

بداية الصفحة