wrapper dll or activex to pass value to DLL. I cannot pass array DLL to device.
$30-250 USD
Fermé
Publié il y a plus de 8 ans
$30-250 USD
Payé lors de la livraison
I cannot use this DLL from a database program I currently use. I need a wrapper DLL or Active-x so I can access use this DLL. My program does not allow array DLL.
Vendor for the device, only provided me a sample visual basic code.
******************************* provided by the vendor **********************
Imports POSLink
Public Class Form1
Private CARD_TYPES() As String = {"CREDIT", "DEBIT", "CHECK", "EBT_FOODSTAMP", "EBT_CASHBENEFIT", "GIFT", "LOYALTY", "CASH", "EBT"}
Private TRANS_TYPE() As String = {"UNKNOWN", "AUTH", "SALE", "RETURN", "VOID", "POSTAUTH", "FORCEAUTH", "ADJUST", "INQUIRY", "ACTIVATE", "DEACTIVATE", "RELOAD", "VOID SALE", "VOID RETURN", "VOID AUTH", "VOID POSTAUTH", "VOID FORCEAUTH", "VOID WITHDRAWAL", "REVERSAL", "WITHDRAWAL", "ISSUE", "CASHOUT", "REPLACE", "MERGE", "REPORTLOST", "REDEEM", "VERIFY", "REACTIVATE", "FORCE ISSUE", "FORCE ADD", "UNLOAD", "RENEW"}
Private Sub btnProcess_Click(ByVal sender As [login to view URL], ByVal e As [login to view URL]) Handles [login to view URL]
Dim posl As [login to view URL] = New [login to view URL]()
Dim payRequest As PaymentRequest = New PaymentRequest() ' Setup a request object.
Dim com1 As CommSetting = New CommSetting()
' use uart to communicate
'[login to view URL] = "UART"
'[login to view URL] = "COM16"
'[login to view URL] = "50000"
'[login to view URL] = com1
' use tcp to communicate
'[login to view URL] = "TCP"
'[login to view URL] = "[login to view URL]"
'[login to view URL] = "10009"
'[login to view URL] = "50000"
'[login to view URL] = com1
[login to view URL] = [login to view URL]([login to view URL])
[login to view URL] = [login to view URL]([login to view URL])
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = payRequest
Dim result As ProcessTransResult = [login to view URL]() '// Blocking call, will return when the transaction is complete.
' There will be 2 separate results that you must handle. First is the ProcessTransResult, this will give you the result of the
' request to call poslink. PaymentResponse should only be checked if [login to view URL] == OK.
' PaymentResponse is the result of the financial transaction to the payment server.
Select ([login to view URL])
Case [login to view URL]
Dim r As PaymentResponse = [login to view URL]
[login to view URL]("ResultCode : " + [login to view URL] + vbCrLf + "ResultTxt :" + [login to view URL] + vbCrLf + "ExtData :" + [login to view URL], [login to view URL])
Case [login to view URL]
[login to view URL]([login to view URL], "Error Processing Payment")
Case Else
[login to view URL]("Action Timeout.")
End Select
End Sub
#Region "UI CODE"
Private Sub Button2_Click(ByVal sender As [login to view URL], ByVal e As [login to view URL]) Handles [login to view URL]
[login to view URL]()
End Sub
Private Sub Form1_Load(ByVal sender As [login to view URL], ByVal e As [login to view URL]) Handles [login to view URL]
[login to view URL]()
[login to view URL]()
[login to view URL](CARD_TYPES)
[login to view URL] = CARD_TYPES(0)
[login to view URL]() ' this will trigger a changed event on this controll which is where we load the trans types.
[login to view URL]()
[login to view URL]()
[login to view URL](TRANS_TYPE)
[login to view URL] = TRANS_TYPE(2)
[login to view URL]()
End Sub
***************************************************************************************
Please provide a suggestion so my database program (Paradox) can access the DLL and communicate with device.
Hi. I am a Senior VB6, VBA and VB.NET and C# WPF and WINFORMS Developer living in Paris,
I have read your specifications and i want to realize your application.
i have already developed several applications you can find in my folio.
I use to develop wrapper from C, or Windev, to .NET in VB.NET or C#
You can contact me for any questions else.
Kind regards