Imagem no banco com TMemoryStream

30/12/2021

galera to com dificuldade com uma situa��o aqui, utilizo o TMemoryStream para salvar arquivos do FastReport no banco de dados, mas ao tentar usar o mesmo m�todo para salvar imagens n�o consigo abri-las depois de exportar, diz que n�o � poss�vel ler aquele formato.

como utilizo para importar no banco:

StreamTemp := TMemoryStream.Create();

  OpenDialog1.Execute();

  if not (OpenDialog1.FileName = EmptyStr) then begin

    lbCaminhoAnexo.Caption := OpenDialog1.FileName;

    StreamTemp.LoadFromFile(OpenDialog1.FileName);

with dmPrincipal.qUpdt do begin
          Close;
          ParamByName('anexo').AsStream := StreamTemp;
          ParamByName('nome').AsString  := ExtractFileName(OpenDialog1.FileName);

          ExecSQL;
        end;

e para salvar no computador uso:

 if not DirectoryExists('C:\FiveOcorrencias\app\Anexos') then
        CreateDir('C:\FiveOcorrencias\app\Anexos');

      Anexo := 'C:\FiveOcorrencias\app\Anexos\Prtcl.'+
                FieldByName('id_ocorrencias').AsString+'.'+FieldByName('anexo_nome').AsString;
    
      if not FileExists(Anexo) then
        dmPrincipal.qOcorrenciaListar.SaveToFile(Anexo);

s� para refor�ar novamente, com os arquivos .fr3 funciona normal, mas com as imagens n�o funciona direito, n�o consigo saber se o problema est� na hora de salvar no banco ou na hora de exportar para o computador

Kauan Oliveira

Curtir t�pico + 0

Responder

Posts

04/01/2022

Kauan Oliveira

Encontrei uma solu��o galera caso algu�m tenha interesse me manda um email.. podalive.e@gmail.com

Responder

Gostei + 0