Extender objeto ADODB.Connection

[mpcarrao 0]

OláGostaria de criar um objeto ActiveX (DLL) para conectar um banco de dados.O "ADODB.Connection" faz isto. Eu gostaria que o meu objeto fosse uma "cópia" deste, só mudando o método "open", para o qual eu faria uma nova implementação.Há como fazer isto (por herança, ou algo do tipo)?Obrigado pela ajuda,mpcarrao

[Aroldo Zanela 0]

Colega,

 

Basta ir em component -> new component -> ancestor type e selecionar ADOConnection. Será criado o protótipo abaixo:

 

unit ADOConnection1;interfaceuses  Windows, Messages, SysUtils, Classes, DB, ADODB;type  TADOConnection1 = class(TADOConnection)  private    { Private declarations }  protected    { Protected declarations }  public    { Public declarations }  published    { Published declarations }  end;procedure Register;implementationprocedure Register;begin  RegisterComponents('Samples', [TADOConnection1]);end;end.

Agora é só fazer as implementações.