Ver Mensaje Individual
  #1  
Antiguo 30-01-2006
Delphiboy Delphiboy is offline
Miembro
 
Registrado: mar 2005
Posts: 35
Reputación: 0
Delphiboy Va por buen camino
Como crear un objeto en Delphi ?

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 !

Última edición por vtdeleon fecha: 30-01-2006 a las 20:06:45. Razón: Aunque no sea Delphi :-P
Responder Con Cita