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 ! :confused:

En VB objet es simplemente un tipo de datos que ayudado con la compilación tardía (Late Building) puede utilizarse para referenciar cualquier tipo de objeto COM y acceder a sus métidos, propiedades....
En Delphi yo te recomendaría crear una interfaz con los métodos de la clase clsAutorizacion, y remplazar Object por esa "interface". Luego utilizar la función CreateOleObject definida en la unit ComObj.
Otra opción puede ser importar las classes de este objeto Activex desde Project\Import Type Library.

Saludos!

Clase no registrada : EOleSysError
 

Gracias por contestar delphi.com.ar, ya importe las clases desde "Project\Import Type Library.", me agrego un componente en la ficha ActiveX, lo pegue en mi forma como cualquier otro componente y ya puedo ver sus propiedades y metodos, el problema viene al ejecutar (correr) el programa pues me envia el siguiente errro:

Clase no registrada : EOleSysError

ya busque en los temas donde se mensiona este error y segun debo registrar el objeto activex con una utileria llamada "regsrv32.exe" la cual busque en mi PC pero no la tengo (utilizo windows 2000 profesional)

Que puedo hacer ? :(

el programa se llama regsvr32.exe y normalmente está en \windows\system32

Hasta luego.

;)