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

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

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

هو كود بسيط 

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

معي كود مكتوب بلغة 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