![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
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. ![]() |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| como se usan las dll en otro Proyecto | Michel | OOP | 11 | 19-01-2008 18:48:04 |
| Como importar funciones de una DLL en C# | edgusano | .NET | 4 | 30-10-2006 08:57:47 |
| Como leer de un fichero txt y comprobar ??? | chelejuan | Varios | 2 | 19-04-2005 18:43:47 |
| Como Crear DLL | pruz | Varios | 1 | 20-10-2003 22:09:46 |
| Componentes Visuales, como propiedad de otro Componente | ingacg | OOP | 5 | 01-07-2003 23:10:39 |
|