Ver Mensaje Individual
  #4  
Antiguo 22-07-2007
carlohg carlohg is offline
Registrado
 
Registrado: may 2007
Ubicación: Medellin - Colombia
Posts: 9
Reputación: 0
carlohg Va por buen camino
Importanto DLL de .NET a DELPHI

he creado una clase en visual 2005 y le he activado COM class y COM Visible.

En delphi lo agrego de la siguiente forma:

component - import componenet - Import :NET assembly

Y asi logro importar mi DLL.

El problema es que cuando quiero accederla me aparece lo siguiente

unit ADQclass_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// $Rev: 5081 $
// File generated on 22/07/2007 04:07:59 p.m. from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Documents and Settings\Carlos Horacio\Mis documentos\Visual Studio 2005\Projects\ADQclass\ADQclass\bin\Debug\ADQclass.dll (1)
// LIBID: {2B16395E-8105-4512-A8B0-47408899AE9B}
// LCID: 0
// Helpfile:
// HelpString:
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
ADQclassMajorVersion = 1;
ADQclassMinorVersion = 0;
LIBID_ADQclass: TGUID = '{2B16395E-8105-4512-A8B0-47408899AE9B}';
IID__ADQclass: TGUID = '{05C172B5-176E-3BFD-9259-7003E12020FC}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_ADQclass = interface;
_ADQclassDisp = dispinterface;
// *********************************************************************//
// Interface: _ADQclass
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {05C172B5-176E-3BFD-9259-7003E12020FC}
// *********************************************************************//
_ADQclass = interface(IDispatch)
['{05C172B5-176E-3BFD-9259-7003E12020FC}']
procedure ConfStart; safecall;
procedure Detener; safecall;
function Get_SizePaq: Integer; safecall;
procedure Set_SizePaq(pRetVal: Integer); safecall;
function Get_FrecAdq: Integer; safecall;
procedure Set_FrecAdq(pRetVal: Integer); safecall;
function Get_Limite: Integer; safecall;
procedure Set_Limite(pRetVal: Integer); safecall;
property SizePaq: Integer read Get_SizePaq write Set_SizePaq;
property FrecAdq: Integer read Get_FrecAdq write Set_FrecAdq;
property Limite: Integer read Get_Limite write Set_Limite;
end;
// *********************************************************************//
// DispIntf: _ADQclassDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {05C172B5-176E-3BFD-9259-7003E12020FC}
// *********************************************************************//
_ADQclassDisp = dispinterface
['{05C172B5-176E-3BFD-9259-7003E12020FC}']
procedure ConfStart; dispid 1;
procedure Detener; dispid 2;
property SizePaq: Integer dispid 3;
property FrecAdq: Integer dispid 4;
property Limite: Integer dispid 5;
end;
implementation
uses ComObj;
end.

no se como acceder a mis propiedads ni a mis funciones ni procedimientos,
no se si falta un create o algo asi???

Gracias a cualquier información.
Responder Con Cita