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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)