Gracias Brandolin por tu respuesta, el siguiente es un ejemplo de como se llama a la funcion y como se lee el valor de la propiedad LNoError, esta escrito en Visual Basic. Yo necesito hacer lo mismo pero en Delphi 5.
Option Explicit
Public vg_Obj As Object
Private Sub Form_Load()
Set vg_Obj = CreateObject("MiDll.clsGeneral")
End Sub
Private Sub cmdGenera_Click()
On Error GoTo MsgError
vg_Obj.LimpiaPropiedades
vg_Obj.Tienda = Me.TextTienda.Text
vg_Obj.Importe = Me.TextImporte.Text
vg_Obj.Dia = Me.TextDia.Text
vg_Obj.Ticket = Me.TextTicket.Text
vg_Obj.mPaso1
if vg_Obj.LNoError = “0” then
msgbox “Autorización = ” & vg_Obj.Autorizacion
…CONTINUA PROCESO…
else
msgbox "NoError = " & vg_Obj.LNoError & vbCrLf & _
"DescError = " & vg_Obj.pDescError
end if
Exit Sub
MsgError:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
saludos, gracias.
