Hola foro, quiero utilizar una libreria en delphi, esta libreria (DllAutorizadorPT) generar una clave, tengo el siguiente ejemplo de como se utiliza en visual basic:
Como puedo hacer lo mismo en delphi ?
Código Delphi
[-]
Option Explicit
Public vg_Obj As Object
Private Sub Form_Load()
Set vg_Obj = CreateObject("DllAutorizadorPT.clsAutorizacion")
End Sub
Private Sub cmdGenera_Click()
On Error GoTo MsgError
vg_Obj.mLimpiaPropiedades
vg_Obj.pTienda = Me.TextTienda.Text
vg_Obj.pImporte = Me.TextImporte.Text
vg_Obj.pDia = Me.TextDia.Text
vg_Obj.pTicket = Me.TextTicket.Text
vg_Obj.mGenera
if vg_Obj.pNoError = “0” then
msgbox “Autorización = ” & vg_Obj.pAutorizacion
…CONTINUA PROCESO…
else
msgbox "NoError = " & vg_Obj.pNoError & vbCrLf & _
"DescError = " & vg_Obj.pDescError
end if
Exit Sub
MsgError:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
Gracias por el apoyo !
