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

[Stanley Jones]

Cantu, dá uma força ae amigo...

ainda não encontrei solução

vc já enfrentou esse problema?

será que o problema está na interligação do tclientdataset com 
tsoapconection, pelo fato de os dados trafegarem
no formato XML?

----- Original Message ----- 
From: "Stanley Jones" <stanley em promediconet.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, November 29, 2006 10:06 AM
Subject: ClientDataSet Não Salva Imagens no Banco


> 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?