Imagem no banco com TMemoryStream

30/12/2021

6

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

Kauan Oliveira

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar