[firebase-br] ClientDataSet Não Salva Imagens no Banco

Stanley Jones stanley em promediconet.com.br
Qua Nov 29 11:06:30 -03 2006


pessoal,

ja tentei de tudo. não consigo gravar imagens no banco (firebird 1.5.2) 
usando tclientdataset e tsoapconection.
o código é executado normalmente, sem nenhum erro. so que a imagem não vai 
para o banco. qdo troco os
componentes para ibx, ou até mesmo os da paleta interbase, que fazem conexão 
direta com o banco, funciona
direitinho, acontece que minha aplicação tem que usar o tsoapconection e 
tclientdataset porque é acessada pela web.
será que é um bug no clientdataset ou então qual é o segredo que ainda não 
descobri????
vejam o código.

var
  ImageJPG: TJPEGImage;
  ImageMST: TMemoryStream;
begin
  try
    ImageJPG := TJPEGImage.Create;
    ImageMST := TMemoryStream.Create;
    ImageJPG.Assign(Image1.Picture);
    ImageJPG.SaveToStream(ImageMST);
    ImageMST.Position := 0;
    tbAux.CommandText := 'update fichas set fichas.foto = :foto where 
fichas.nroficha = 2';
    tbAux.Params.ParamByName('FOTO').LoadFromStream(ImageMST, ftBlob);
    tbAux.Execute;
    ImageJPG.Free;
    ImageMST.Free;
    ShowMessage('Foto gravada com sucesso.');
  except
    on E: Exception do
      begin
        ShowMessage('Problemas na tentativa de gravar o registro.' + #13 + 
E.Message);
        ImageJPG.Free;
        ImageMST.Free;
        Exit;
      end;
  end;

Alguem poderia me ajudar? 





Mais detalhes sobre a lista de discussão lista