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

[Magnun Oliveira]

jah q eh soh p/ o Cantu ... num era + facil pvt?

----Original Message Follows----
From: "Stanley Jones" <stanley em promediconet.com.br>
Reply-To: FireBase <lista em firebase.com.br>
To: "FireBase" <lista em firebase.com.br>
Subject: [firebase-br] [p/ CANTU] ClientDataSet Não Salva Imagens no Banco
Date: Wed, 29 Nov 2006 17:06:02 -0300

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?


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br