Fórum Problema Read Error #23786

Olá pessoal, meu problema e o seguinte:
tenho um sistema datasnap, onde nele possuo varias tabelas que nunca sao editadas pelo usuario apenas por mim que disponibilizo novos registros em atualizacoes, (e para garanti que todos os clientes tenham as mesmas tabelas
sao tabelas utilizadas em lookup de cadastros.
para diminuir o trafego na rede, criei uma tabela que armazena a lista dessas tabelas (controladas por mim) e um campo com a data da ultima alteracao,

uma trigger foi criada tambem em cada tabela para manter essa lista atualizada.

bom.
no cliente quando e feito a conexao eu criei uma rotina que vai no servidor e compara essas tabelas se estao diferentes da copia existente na maquina local, se for diferente (data do ultimo acesso) eu apago a local e busco no servidor e salvo local.

com isso em todos os formularios no lugar de buscar essa informacao no servidor n vezes.. busco ela localmente.
a rotina da protinha, so que quando a funcao vai buscando as tabelas do servidor da um erro (read error)
aleatoriamente cada vez em uma tabela diferente.
veja o codigo da funcao.

FUNCAO QUE GERA O BANCO LOCAL.
Procedure TFrmMain.GeraTabelaServidor(tabela: string);
  Var i:integer;
    Begin
       pbExecuta.Progress :=pbExecuta.Progress+1;
       if Not dbLocal.Connected then
          Begin
            DeleteFile('C:\Banco.abs');
            dbLocal.DatabaseFileName :='C:\Banco.abs';
            if not FileExists('C:\Banco.abs') Then
               dbLocal.CreateDatabase;
            dbLocal.Open;
          End;

       absTabLocal.Close;
       absTabLocal.FieldDefs.Clear;

       cdsSelectTabela.Close;
       cdsSelectTabela.COMMANDTEXT :='SELECT * FROM '+TABELA;
       cdsSelectTabela.Open;  -> O ERRO DA AQUI!!!!!!!!!!!!!!

       absTabLocal.TableName :=tabela;
       for I := 0 to cdsSelectTabela.Fields.Count - 1 do
          begin
          Case cdsSelectTabela.Fields[i].DataType of
           ftInteger,
           ftSmallint  :absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftInteger,0,false);

           ftFloat,
           ftCurrency,
           ftFMTBcd  :absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftCurrency,0,false);

           ftTimeStamp,
           ftDateTime,
           ftDate      :absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftdatetime,0,false);
           ftBoolean   :absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftBoolean,0,false);

           ftGraphic   :absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftGraphic,0,false);

           ftString,
           ftWideString:absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftString,cdsSelectTabela.Fields[i].Size,false);

           ftBlob,ftWideMemo,ftMemo:absTabLocal.FieldDefs.Add(cdsSelectTabela.Fields[i].FieldName,ftMemo,0,false);
          End;
         End;
       absTabLocal.CreateTable;

       absTabLocal.Open;
       pbServer.MaxValue :=cdsSelectTabela.RecordCount;
       pbServer.Progress  :=0;
       cdsSelectTabela.First;
       While not cdsSelectTabela.Eof do
           Begin
              pbServer.Progress  :=pbServer.Progress+1;
              absTabLocal.append;
               for I := 0 to cdsSelectTabela.Fields.Count - 1 do
                 begin
                   try
                    absTabLocal.FieldByName(cdsSelectTabela.Fields[i].FieldName).Value :=cdsSelectTabela.Fields[i].Value;
                   except
                   end;
                 end;

              absTabLocal.post;
              cdsSelectTabela.next;
           End;
    end;




No servidor eu tenho um datasetprovider, ligado a um SqlDataSet
o datasetprovider ta marcado para aceitar commandtext

o cdsSelectTabela. esta ligado ao remoteserver, e ao provider name correspondente.


acho que ta estourando a capacidade ou algo parecido.


na hora eu chamo a funcao assim.


GeraTabelaServidor('tabelaA');
GeraTabelaServidor('TabelaB);

sao cerca de 30 tabelas, cada uma numeros de registros diferentes, algumas com ate 30.000 registro no max.


ja tentei mudar o componente SQLdataset, para um adoquery, TSQLQuery e nao deu certo.

ja tentei botar o nome da tabela no servidor destivando o commandtext, e passando o nome da tabela
no evento BeforeGetRecords, e la no servidor nesse mesmo evento alterar o sql da query.


ja tentei criar uma funcao no servidor que retorne um TDataSet, no cliente botar
um TDataSetProvider ligado TSqlServerMethod que por sua vez vai ta ligado a funcao do servidor q retorna TDataSet.
quando faz uma tabela so da certo, agora quando desativa, bota outra e abre em sequencia da o pau.

NAO SEI MAIS O QUE FAZER.




sera que e bug do delphi?
USO DELPHI 2010 com os SP 4 e 5