F�rum MemoryStream loadfromfile n�o funciona #508192

22/01/2015

Prezados,

Estou tentando salvar v�rias imagens (JPG) em uma tabela com campos BLOB. Para carregar uma imagem eu fa�o o seguinte:

 if (OpenPictureDialog1.Execute) then
  begin
   tbPaginas.Insert;
    ms := TMemoryStream.Create;
   try
     ms.LoadFromFile(OpenPictureDialog1.FileName);
     ms.Position := 0;
     TBlobField(tbPaginas.FieldByName('IMAGEM')).LoadFromStream(ms);

   finally
     ms.Free;
   end;
  tbPaginasCAPITULO.AsInteger := tbCapitulosCODIGO.AsInteger;
  tbPaginasNUM_PAGINA.AsInteger := 1;
  tbPaginas.Post;
 end;

Entretanto, eu preciso carregar v�rias imagens de uma vez e � a� que estou com problema, modifiquei a fun��o para a seguinte:

 if (OpenPictureDialog1.Execute) then
  begin
   for i := 0 to OpenPictureDialog1.Files.Count-1 do
     begin
      tbPaginas.Insert;
      ms := TMemoryStream.Create;
      try
       ms.LoadFromFile( TFileName(OpenPictureDialog1.Files[i]) );
       ms.Position := 0;
       TBlobField(tbPaginas.FieldByName('IMAGEM')).LoadFromStream(ms);
      finally
       FreeAndNil(ms);
      end;
       tbPaginasCAPITULO.AsInteger := tbCapitulosCODIGO.AsInteger;
       tbPaginasNUM_PAGINA.AsInteger := 1;
       tbPaginas.Post;
     end;
  end;

Por�m, o loadfromfile do memorystream n�o est� funcionando, pois quanto tento salvar o campo blob est� vazio.
Alguma ideia de coo resolver isso?

Dannicl�o Teles

Curtir t�pico

+ 0

Responder

Posts

22/01/2015

Dannicl�o Teles

Resolvi o problema, acontece que eu estava liberando o memorystream antes de salvar a imagem no banco.

Responder

Gostei + 0