Problemas con TclientDtataset

[cso2000]

Saludos a todos,

Mi problema es el siguiente:

Estoy creano un componente TclientDataset al cual le quiero agregar dos componetes TsqlDataset y TdatasetProvider, el problema es no he podido asignarle la propiedad ProviderName a mi componente que tendria que ser el nombre del TdatasetProvider que declaro como variable dentro del mismo componete,

anexo el codigo para ver si me pueden ayudar:

unit SCEClientDataSet;

interface

uses
  Windows, Messages, SysUtils, Classes, DB, DBClient, Provider, SqlExpr;

type
  TSCEClientDataSet = class(TClientDataSet)
  private
    procedure SetSqlDataset(const Value: TSQLDataSet);
    { Private declarations }
  protected
    // aqui declaro la variable
    FDatasetProvider : TDataSetProvider;
    FSqlDataset : TSQLDataSet;
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published
    // esta la utilizo para
    property SqlDataset : TSQLDataSet Read FSqlDataset Write SetSqlDataset;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('dbExpress', [TSCEClientDataSet]);
end;

{ TSCEClientDataSet }

constructor TSCEClientDataSet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDatasetProvider:= TDataSetProvider.Create(Self);
  FDatasetProvider.DataSet := FSqlDataset;
  self.ProviderName := FDatasetProvider.Name;
end;

destructor TSCEClientDataSet.Destroy;
begin
  FDatasetProvider.Free;
  FDatasetProvider := Nil;
  inherited Destroy;
end;


procedure TSCEClientDataSet.SetSqlDataset(const Value: TSQLDataSet);
begin
  FSqlDataset := Value;
end;

end.

les agradesco toda la ayuda que puedan darme.

[jmariano]

Tienes que darle un nombre al componente TDataSetProvider en el constructor Create de la clase (cuando un componente es creado manualmente no se le asigna un nombre por defecto).

Código Delphi [-]
constructor TSCEClientDataSet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDatasetProvider:= TDataSetProvider.Create(Self);
  FDatasetProvider.DataSet := FSqlDataset;
  FDatasetProvider.Name := '(Nombre)';
  self.ProviderName := FDatasetProvider.Name;
end;

Saludos!

[cso2000]

Gracias por responder.

Ya he probado algo asi, aun que veo una diferencia

FDatasetProvider.Name := '(Nombre)';

son nesesarios los parentesis ??

Gracias de nuevo.

[jmariano]

No, jeje! , en realidad lo que quería decir con '(Nombre)' es que pusieras cualquier nombre que quisieras como: 'DataSetProvider1' o lo que sea pero sin los parentesis.

Por cierto, ¿funcionó?

Saludos!

[cso2000]

Nop, de echo hize la prueba nuevamente y non nofunciono.

haber si vieras otra cosa.

Grasis de nuevo.

[jmariano]

Existe otra manera que quizás sea mas acorde a lo que quieres hacer, utilizar el método "SetProvider" del ClientDataSet:

Código Delphi [-]
  procedure SetProvider(Provider: TComponent);

La desventaja de usar este método es que tendrás que invocarlo cada vez que abras el ClientDataSet. Por lo que mejor sería asignarlo en el método que se ejecuta antes de abrir tu componente:

Código Delphi [-]
procedure TSCEClientDataSet.DoBeforeOpen; override;
begin
  SetProvider(FDatasetProvider);
  inherited;  
end;

Saludos!