crear componente de bd dinamicamente

[gushmaish]

hola como les va?
estoy intentando agregar a mi clase TConnection un componente zconnection,

la cosa es q no estoy muy seguro de como hacerlo, aqui va la partecita donde se conecta..

unit UConection;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ZClasses, ZDbcIntfs, ZCompatibility,Grids,
ZConnection, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
    //Dejar solo la base de datos q se utiliza
ZDbcMySql,ZDbcMysqlUtils, ExtCtrls
    //ZDbcInterbase6,
    //ZDbcPostgreSql,
    //ZDbcDBLib
    ;

type
    TConnection = class
private
    //datos para la coneccion
    Protocol:string;
    HostName:string;
    Port:integer;
    DataBase:string;
    UserName:string;
    Password:string;

    connection:TZConnection;
    FDataset: TZQuery;

public
    constructor Create(); overload;
    constructor Create(Prot:string;Host:string;Prt:integer;DB:string;User:string;Pass:string);overload;
    function connect():boolean;
end;

implementation

constructor TConnection.Create();//en este caso
begin
    Protocol:='';
    HostName:='';
    Port:=0;
    DataBase:='';
    UserName:='';
    Password:='';
end;

constructor TConnection.Create(Prot:string;Host:string;Prt:integer;DB:string;User:string;Pass:string);
begin
  Protocol:=Prot;
  HostName:=Host;
  Port:=Prt;
  DataBase:=DB;
  UserName:=User;
  Password:=Pass;
end;

function TConnection.connect():boolean;
var
  Url: string;
begin
  connection:=TZConnection.Create(Self);
  connection.Protocol:=Protocol;
  connection.HostName:=HostName;
  connection.Port:=Port;
  connection.Database:=DataBase;
  connection.User:=UserName;
  connection.Password:=Password;
  try//intenta conectarse y si lo logra devuelve true, sino false
    connection.Connected:=true;
  except
    connect:=false;
    exit;
  end;
  connect:=true;
end;

end.

me dice q Son imcompatibles "TComponent y TConnection"

y si le saco la parte de

connection:=TZConnection.Create(Self);

tambien me da error

basicamente lo q necesito es crear un componente dinamicamente, ya q no solo necesito crear un zconnection sino tambien un zquery y demas componentes zeos..

desde ya muy agradecido

[pijo]

... pero yo probaria de cambiar la instrucción esa del create que usas.

connection:=TZConnection.Create(Self);

El create del TZConnection necesita como parámetro un objeto de la clase TComponent, pero el Self que le pasas es un TConnection que es la clase que creas tu que no desciende del tipo TComponent.
Por eso te dice que no són compatibles, una de dos, o haces que tu TConnection descienda del TComponent y entonces ya funcionará, o le pones al Create(xxx) donde xxx sea el nombre de un objeto del tipo TComponent.

ánimos

[gushmaish]

Muchas gracias amigo!!!

Eso anduvo bien, lo unico q hice fue heredar de TComponent

TConnection = class(TComponent)

hasta luego y gracias nuevamente