TStream e Blob ?

Question

Eu gostaria de copiar uma imagem de uma tabela para outra, o campo � do tipo Blob do FireBird, montei esse c�digo mais n�o tive sucesso, algu�m poderia me dar uma ajudinha ?[code:1:da8e828cfa]procedur...

Cabelo · Answer

Colega....voc� est� usando o m�todo errado.....use assim na linha para salvar na 2� tabela..clientdataset2.LOADFROMSTREAM(A);e n�o clientdataset2.SaveToStream(A);dessa forma voc� est� carregando para a vari�vel A o conte�do do dataset 2um abra�o...

Renatacoimbra · Answer

Oi Cabelo, obrigada pela resposta, usando o c�digo abaixo est� dando outro erro, BitMap Image is not valid.

a imagem que tenho na tabela 1 � jpg, ser� se o erro � derivado disso ?


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  A,B : TStream;
Begin

  ClientDataSet1.Open;
  ClientDataSet2.Open;
  ClientDataSet1.First;
  ProgressBar1.Position := 0;
  ProgressBar1.Max := ClientDataSet1.RecordCount;

  While not ClientDataSet1.Eof do begin
    ClientDataSet2.Append;
    ClientDataSet2ID.AsInteger         := ClientDataSet1ID.AsInteger;
    ClientDataSet2DESCRICAO.AsString   := ClientDataSet1DESCRICAO.AsString;

    A := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName(�FOTO�), BMREAD);
    B := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName(�COMENTARIOS�), BMREAD);

    try
      ClientDataSet2FOTO.LoadFromStream(a);
      ClientDataSet2COMENTARIOS.LoadFromStream(B);
    Finally
      A.Destroy;
      b.Destroy;
    end;
    
    ClientDataSet2.Post;
    ProgressBar1.Position := ProgressBar1.Position +1;
    ClientDataSet1.Next;
  end;

  ClientDataSet2.ApplyUpdates(0);
  
end;

Cabelo · Answer

Qual � exatamento o campo blob que voc� criou para armazenar a imagem?????...

Renatacoimbra · Answer

Tipo do do campo Imagem:[list:e816073acb]BLOB sub_type 0 segment size 80[/list:u:e816073acb][/code]...

Cabelo · Answer

Renata...Verifique se existe realmente uma imagem no campo que voc� est� tentando gravar... e veja se no banco de dados o campo blob n�o esta setado para not null.Debug o programa desde a primeira linha desta rotina e me fale em qual linha est� dando o erro......

Renatacoimbra · Answer

Todos os campos tem imagem sim, o campo n�o esta not null, o erro est� acontecendo nas linhas abaixo:


      ClientDataSet2FOTO.LoadFromStream(a);
      ClientDataSet2COMENTARIOS.LoadFromStream(B);

Cabelo · Answer

Tente gravar primeiro os dados que n�o forem blobs, incluisive a chave prim�ria... depois selecione somente a chave e o campo que deseja gravar a imagem, d� um edit e inclua a rotina para gravar...

assim :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
A,B : TStream;
Begin

ClientDataSet1.Open;
ClientDataSet2.Open;
ClientDataSet1.First;
ProgressBar1.Position := 0;
ProgressBar1.Max := ClientDataSet1.RecordCount;

while not ClientDataSet1.Eof do
begin
ClientDataSet2.Append;
ClientDataSet2ID.AsInteger := ClientDataSet1ID.AsInteger;
ClientDataSet2DESCRICAO.AsString := ClientDataSet1DESCRICAO.AsString;
ClientDataSet2.ApplyUpdates(0);
ClientDataSet3.Open;
ClientDataSet3.Edit;
A := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName(�FOTO�), BMREAD);
B := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName(�COMENTARIOS�), BMREAD);

try
ClientDataSet3FOTO.LoadFromStream(a);
Finally
A.Free;
end;
clientDataSet33.ApplayUpdates;
ProgressBar1.Position := ProgressBar1.Position +1;
ClientDataSet1.Next;
end;

end;

s� para testar.... se funcionar... � s� implementar para os outros campos BLOB..

F�rum TStream e Blob ? #320021