Type Library

13/06/2005

0

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


Airoosp

Airoosp

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar