Fórum Missing Data provider or Data packet #13886

Boa noite Rodrigo, meu Mestre estou tendo o determinado problema , criei um Class (TSQL)para fazer consulta simples ultizando o ClientDataSet em Tempo de Excução mais estou tendo o seguinte erro quanto tendo dar um open no ClientDataSet "Missing Data provider or Data packet" Segue embaixo o codigo que estou usando.

unit Utpersis;

interface

uses DBClient, DB, SqlExpr,Provider;

type
   TSQL = class
private
  { private declarations }
  FQuery :TSQLQuery;
  FClient:TClientDataSet;
  FProv  :TProvider;
protected
  { protected declarations }
public
  { public declarations }
  constructor Create(cSQL:TSQLConnection);
  destructor  Destroy; override;

  procedure Select(ds:TDataSource);
end;

implementation

{ TSQL }

constructor TSQL.Create(cSQL:TSQLConnection);
begin
     Inherited Create;

      FQuery :=TSQLQuery.Create(nil);
      FClient:=TClientDataSet.Create(nil);
      FProv  :=TProvider.Create(nil);

      FQuery.SQLConnection:=cSQL;

      FProv.DataSet:=FQuery;
      FProv.Name:='MY_PROVIDER';
      FProv.Options:=[poAllowCommandText];

      FClient.ProviderName:=FProv.Name;

end;

destructor TSQL.Destroy;
begin
  FQuery.Free;
  FQuery:=nil;

  FClient.Free;
  FClient:=nil;

  FProv.Free;
  FProv:=nil;

  inherited;
end;

procedure TSQL.Select(ds:TDataSource);
begin
     FClient.Close;
     FClient.CommandText:='SELECT * FROM UCTABUSERS';
     C.Open;
    
     ds.DataSet:=FClient;
end;

end.

At.Alex Oliveira