F�rum LoadfromStream stream read error #443349

17/05/2013

bom galera...sou novo aqui...e estou desesperado por essa resposta...me ajudem por favor...meu caso � o seguinte...

eu tenho um grid na tela, o cliente tem a autonomia de mudar as colunas, ocult�-las, e modificar os tamanhos...
eu salvo as configura��es em um campo blob do meu bd, at� ai tudo bem...funciona perfeitamente...
o problema � na hora de fazer o loadfromstream, ele n�o funciona, n�o d� o load...
se eu salvo o campo blob em um stream e salvo esse stream em um .txt com savetofile e fizer o loadfromfile no columns, elle funciona... vou colocar o codigo abaixo e me digam onde errei....

savetostream

try
    s := TMemoryStream.Create;
    CTRL_GRID.DSGRID.DataSet.Close;
    CTRL_GRID.DSGRID.DataSet.Open;
    CTRL_GRID.DSGRID.DataSet.Append;
    CTRL_GRID.DSGRID.DataSet.FieldByName('USUARIO').AsString := UsuarioLogado.Login;
    CTRL_GRID.DSGRID.DataSet.FieldByName('TITULO').AsString := FCadastros_Padrao.Name;
    CTRL_GRID.DSGRID.DataSet.FieldByName('TELA').AsString := FCadastros_Padrao.Name + CTRL_CADASTROS.DSPADRAO.DataSet.Name;
    DBGridTabela.Columns.SaveToStream(s);
    TBlobField(CTRL_GRID.DSGRID.DataSet.FieldByName('GRID')).LoadFromStream(s);
    CTRL_GRID.DSGRID.DataSet.Post;
    S.Free;
    Showmessage('Colunas salvas com sucesso.');
  except
    raise Exception.Create('Erro ao salvar.');
  end;

loadfromstream que d� erro

try
    s := TMemoryStream.Create;
    CTRL_GRID.DSGRID.DataSet.Close;
    CTRL_GRID.DSGRID.DataSet.Open;
    CTRL_GRID.FiltrarGrid(FCadastros_Padrao.Name, FCadastros_Padrao.Name + CTRL_CADASTROS.DSPADRAO.DataSet.Name, UsuarioLogado.Login);
    TBlobField(CTRL_GRID.DSGRID.DataSet.FieldByName('GRID')).SaveToStream(s);
    DBGridTabela.Columns.LoadFromStream(s); //o erro � nessa linha
    S.Free;
  except
    raise Exception.Create('Error Message');
  end;

loadfromstream que funciona mas eu n�o quero assim

    s := TMemoryStream.Create;
    CTRL_GRID.DSGRID.DataSet.Close;
    CTRL_GRID.DSGRID.DataSet.Open;
    CTRL_GRID.FiltrarGrid(FCadastros_Padrao.Name, FCadastros_Padrao.Name + CTRL_CADASTROS.DSPADRAO.DataSet.Name,           UsuarioLogado.Login);
    TBlobField(CTRL_GRID.DSGRID.DataSet.FieldByName('GRID')).SaveToStream(s);
    s.SaveToFile('c:\teste.cfg');
    DBGridTabela.Columns.LoadFromFile('c:\teste.cfg');
    S.Free;

desde j�...obrigado

Wendel Fassarella

Curtir t�pico

+ 0

Responder

Posts

17/05/2013

Diogenes Sampaio

Ol� Wendel,
Fa�a o seguinte:

s.Position:= 0;
DBGridTabela.Columns.LoadFromStream(s);

T++

Responder

Gostei + 0

17/05/2013

Wendel Fassarella

funcionou direitinho cara...
muito obrigado....
agr...como que eu fecho o t�pico??

Responder

Gostei + 0