إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

ملفات ال Dll


1 رد (ردود) على هذا الموضوع

#1 kokew2000

kokew2000

    عضو

  • الأعضــاء
  • 46 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 08 January 2018 - 08:35 PM

السلام عليكم اعضاء الجروب العباقرة 

معي كود مكتوب بلغة C وبريد معرفة طريقة تحويلة الي ملف DLL واستدعائة من فورم اوراكل فبريد اعرف الخطوات 

مرفق ملف بة الكود 

هو كود بسيط 



#2 kokew2000

kokew2000

    عضو

  • الأعضــاء
  • 46 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 09 January 2018 - 11:42 AM

السلام عليكم اعضاء الجروب العباقرة 

معي كود مكتوب بلغة visual basic وبريد معرفة طريقة تحويلة الي ملف DLL واستدعائة من فورم اوراكل فبريد اعرف الخطوات 

مرفق ملف بة الكود 

هو كود بسيط 

ملفات مرفقة

 

 

Dim feature As HaspFeature = HaspFeature.Default
 
Dim vendorCode As String = _
"mCh8Vz14BV9gVFgk6lKWJGutdZ2FKb4ynD+YQJGes7pma6qSRPN7hSLmbS1t2gxNdkWEUEjGYyuVZvUv" + _
"F8+PhuksWMZohv51cTqLjWEXchrH0l0yMyLvVuP336a/LYR5FfftB8af4rosN81Wy33Mfx1ofU7lDE9/" + _
"71VBBxDm2OoyxRkn1VwcXiWEbIYZTvFlSNo2rGSwUltIq1YiXNkI5BZvR6z2vlte5Df6Pr6sWEZKwlUs" + _
"zQbTub4whN8l+K88U+iohW3TUnzQ96M2N0M+7JNc9CesU2JI7rMvUZ7chvqcFYmuIXEz/KUzquQWkYSA" + _
"GjBOYGaCVx42OfXLlXmYzcahEMJ47wZqa12hFUFoRhLWAt6Re0SI8ZR3OcgRKLNUT+pakSlJ8ZrHib8l" + _
"zItcwE3w8DgJlEZK2Dm3BVaW0P4xRUKWSPnHL+Tt7XplRMkDq+UzeG2F1HVEa1YE4wjOyCHTB/QUKh9m" + _
"xpiukNAQA7CLdccfdfO20WC9QEKmqlcSIwUhOqS5AnAR8cJbkLHCxw84pD8fpdhXkp8d5+mp8a0sq6jb" + _
"Pn14PAXAOc1Dy049CoafHExCfoskXoIbLltw4NM2HH+nmUzgljcyXMRucJLfp7ubv5oNNdM0WxXDsT9V" + _
"8Uemq/e6Hbn2ap5h9PXU5VL5Yv4NvwAVGkTnJ6nyJI64C6Ga+FBw2VcaIZChRhjGyv5JohqtVQkBPx6y" + _
"p3HLZ98rwSrIkaoJitZCXMkYC/g7kjPe+xy3+IM1xLQLFvm7mfaUdydA7goquOnrgWcO4m+DAAAJpOdv" + _
"TAUr1AQsqdm3RL7owCTH11eLxhiTvp7eu2pa3IbIAyXaoAKz2gPKbIESxV5LI4u15NyMtlB1a8mgYwf9" + _
"UcAciAq2UtDgYNXIfaN66cY/mEs7DumhhEoyf0BFXKyXsuyKsAorTjPZuIw="
 
Dim hasp As Hasp = new Hasp(feature)
Dim status As HaspStatus = hasp.Login(vendorCode)
 
If (HaspStatus.StatusOk <> status) Then
   'handle error
End If