[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