FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Conexión a DLL versión COM
Saludos....
Tengo un problemilla con unas dll.....y no se como trabajarlas desde delphi.. Me entragron unas dll que se registran por ejemplo C:\efiQuest>C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe efiQuest_dll.dll /tlb:efiQuest.tlb /codebase y la otra dll asociada es .. C:\efiQuest> regsvr32 c:\efiQuest\VB6Dll.dll todo se hace como se indica en el manual...ahora necesito que desde delphi pueda acceder a una funcion que retorna un valor booleano y que esta en efiQuest_dll.dll la funcion con sus parametros ConsultarAfiliado(edit1.Text,edit2.Text,txtServidorProxy, txtPuertoProxy, txtUsuarioProxy, txtClaveProxy,PrimerApellido, SegundoApellido,primerNombre,segundoNombre, fechaNacimiento,departamento,municipio,estadoAfiliacion, entidadAfiliacion,regimenAfiliacion,fechaInicioContratacion, fechaFinContratacion,fechaAfiliacionEntidad,fechaUltimaNovedad, tipoAfiliado,codigoError,mensajeErro) si la funcion retorna falso....en los campos codigoError,mensajeErro se reflejan codigo y descripcion del error encontrado.
__________________
Popayán-Colombia |
#2
|
|||
|
|||
Bueno compañeros....a tanto logre hacer algo que les comentare aqui...
este comando RegAsm.exe , crea el archivo efiquest.tlb, luego en dephi en este caso el 7, se agrega al proyecto un com object. este objeto al agregarlo pide el archivo tlb creado anteriormente, y se crea la interfaz para acceder a la dll, tambien pide el nombre de clase que para este caso es "efiq" en uno de lo archivo credos, se crea algo parecido a esto CLASS_efiq: TGUID = '{5D1FB07A-3636-4DB6-9A94-215443B01ACB}'; se diferencia porque la linea de codigo asocia el nombre de la clase y coloca el prefijo CLASS_. luego en el formulario que usa la dll, se crea un objeto de la siguiente manera... const Class_Efiq: TGUID = '{5D1FB07A-3636-4DB6-9A94-215443B01ACB}'; . uses ComObj; . Var efi: efiq; begin efi:=CreateComObject (Class_Efiquest) as efiq; ahora si con el objeto "efi" se puede hace referencia a todos los metodos que implementa la dll.
__________________
Popayán-Colombia |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
OllyDBG Version 2.0 - Pre-alpha code, Nueva versión de este increible depurador | Black_Ocean | Noticias | 1 | 16-04-2008 11:51:47 |
como puedo hacer para cambiar un archivo de excel con versión 2.1 a versión 8.0 | RONPABLO | Servers | 4 | 23-01-2006 06:02:38 |
Version BDE | ovargas | Tablas planas | 5 | 15-07-2005 20:42:58 |
version de sql? | vetustas | SQL | 6 | 14-01-2004 17:35:54 |
versión de una dll | ingacg | API de Windows | 8 | 24-06-2003 17:49:05 |
|