Fórum Salvar o Nome de uma Imagem e Também Deletar Ela #325916

procedure TFrmCadPersonagensComics.InserirImagem(Imagem: TDBImage);
var
  JPEG: TJPEGImage;
  OpSelecionaImagem: TOpenPictureDialog;
  Picture: TPicture;

begin
  if not Assigned(Imagem) then
    exit;
  if (not Assigned(Imagem.DataSource)) or (Imagem.DataField = ´´) then
    exit;
  if not Assigned(Imagem.DataSource.DataSet) then
    exit;
  if not (Imagem.DataSource.DataSet.Active) then
    exit;
  OpSelecionaImagem := TOpenPictureDialog.Create(nil);
  try
    OpSelecionaImagem.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];
    OpSelecionaImagem.Filter := ´Todas (JPEG)|*.jpg;*.jpeg|Imagem JPEG (*.jpg)|*.jpg|Imagem JPEG (*.jpeg)|*.jpeg´;
    OpSelecionaImagem.Title := ´(HqMx) Selecione o Arquivo de Imagem em JPG´;
    Picture := TPicture.Create;
    try
      JPEG := TJPEGImage.Create;
      try
        if OpSelecionaImagem.Execute then
          begin
            Picture.LoadFromFile(OpSelecionaImagem.FileName);
            JPEG.Assign(Picture.Graphic);
            if not (Imagem.DataSource.DataSet.State in dsEditModes) then
              Imagem.DataSource.DataSet.Edit;
            Imagem.Picture.Graphic.Assign(JPEG);
          end;
      finally
        FreeAndNil(JPEG);
      end;
    finally
      FreeAndNil(Picture);
    end;
  finally
    FreeAndNil(OpSelecionaImagem);
  end;

procedure TFrmCadPersonagensComics.SbCarregaImagemClick(Sender: TObject);
begin
  InserirImagem(FrmVerPersonagensComics.DbImgImagem);

end;