Fórum Gravando e resgatando PDF de banco Access com Blob #461764

unit unit_blob;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ShellApi, DBCtrls, OleCtnrs, DBClient, DBTables;

type
  TForm1 = class(TForm)
    SaveDialog1: TSaveDialog;
    btAnexar: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    btInserir: TButton;
    Shape1: TShape;
    btVisualizar: TButton;
    Memo1: TMemo;
    lblResultado: TLabel;
    ADOConnection1: TADOConnection;
    procedure btAnexarClick(Sender: TObject);
    procedure btInserirClick(Sender: TObject);
    procedure btVisualizarClick(Sender: TObject);
    procedure btTestaConexaoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


// Anexando dados (funcional) ++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.btAnexarClick(Sender: TObject);
  var
    arquivo : TMemoryStream;

begin
  SaveDialog1.Execute;

  if (SaveDialog1.FileName <> '') then
    begin
      //Carregamento da imagem:
      arquivo := TMemoryStream.Create;

      //Alocando o conteúdo da SaveDialog na variável.
      Memo1.Lines.SaveToStream(arquivo);

      //Mostrando o nome ao usuário.
      Memo1.Text := SaveDialog1.FileName;
          //Propriedade text usada pelo fato do nome do arquivo não aparecer
          //no memo automaticamente.
    end;
end;

// Inserido dados (não funcional) ++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.btInserirClick(Sender: TObject);
begin
    //Gravando os dados...
    ADOQuery1.Close; //Fecha conexões antigas...
    ADOQuery1.SQL.Clear; //Limpa conexões...
    ADOQuery1.SQL.Add('insert into tbl_arquivo (arquivo) values (:param_cx_arquivo)'); //Faz a inserção...
    ADOQuery1.Parameters.ParamByName('param_cx_arquivo').LoadFromFile(Memo1.Lines.Text, ftBlob); //Dado recebido...

   //Executa a query.
   try
    ADOQuery1.ExecSQL; //Execução da Query.

    ShowMessage('Registro gravado com sucesso!');
   except
    ShowMessage('Erro ao gravar dados...');
   end;

end;

// Visualizando / Recuperando dados (funcional) ++++++++++++++++++++++++++++
procedure TForm1.btVisualizarClick(Sender: TObject);
  var
    //Tratando Blob
    S : TMemoryStream;
    FileStream : TFileStream;

    //Confirmação de informações
    resultado : Integer;

begin
    //Consultando
    ADOQuery1.Close; //Fecha conexões antigas...
    ADOQuery1.SQL.Clear; //Limpa conexões...
    ADOQuery1.SQL.Add('select arquivo from tbl_arquivo where codigo = 23'); //Faz a inserção...
    ADOQuery1.Open; //Execução da Query.

    //Contando o resultado...
    resultado := ADOQuery1.RecordCount;
    lblResultado.Caption := 'Resultado da pesquisa: '+ IntToStr(resultado) +' registro(s) encontrado(s).';
    lblResultado.Visible := True;


     S := TMemoryStream.Create;
      try
        //Criação do arquivo que receberá o pdf...
        FileStream := TFileStream.Create('c:\arquivo.pdf', fmCreate);

        //Salvamento do conteúdo do arquivo dentro da memória Ram...
        TBlobField(ADOQuery1.FieldByName('arquivo')).SaveToStream(S);

        //Ainda não sei a função do posicionamento...
        S.Position := 0;

        //Transferência dos dados da Ram para o arquivo criado
        FileStream.CopyFrom(S, S.Size);

        //Abertura do arquivo.
        //RESULT := 'c:\arquivo.pdf';
        ShellExecute(handle, 'open', 'c:\arquivo.pdf', '', '', SW_SHOWNORMAL);

      finally
        S.Free;
        FileStream.Free;
      end;

end;

//Testando a conexão com o banco MySQL... (funcional)
procedure TForm1.btTestaConexaoClick(Sender: TObject);
begin
  try
    ADOConnection1.Open();
    ShowMessage('Conectou!!');
  except
    on erro_ao_conectar: Exception do
      ShowMessage(erro_ao_conectar.Message);
  end;
end;

end.