Array
(
)

Type Library

Airoosp
   - 13 jun 2005

Alguém sabe como fazer para adicionar uma unit em uma dll criada pela Type Library, ao abrir a Type Library é possível criar os métodos, classes, interfaces.
Segue abaixo o conteúdo inicial da unit.


unit ClasseLivros;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, ClubeDoLivro_TLB, StdVcl, ADODB, SysUtils;

type
TLivros = class(TAutoObject, ILivros)
protected
procedure Cadastrar(const Titulo, Autor: WideString); safecall;
function AcharCodigo(const Titulo: WideString): Integer; safecall;
function AcharTitulo(CodigoLivro: Integer): WideString; safecall;
function FimDeArquivo: WordBool; safecall;
function Titulo: WideString; safecall;
procedure ListarLivros; safecall;
procedure Proximo; safecall;
{ Protected declarations }
end;

var
TblLivros: TADOQuery;

implementation

uses ComServ;
.
.
.


Obrigado


Airton