COMPARAR DESCRICAO DE TABELA COM DESCRIÇÃO ARQUIVO DE UMA PASTA

C#

18/09/2017

Bom dia,,
Tenho uma tabela no banco que guarda a descrição da imagem de alguns produtos que cadastramos aqui no sistema da empresa.
Porem alguns produtos ainda estão sem imagens, essas imagens dos produtos ficam tudo em uma unica pasta no servidor.
Alguem sabe alguma forma de pega a descricao da imagem.jpg ou png que ta registrada no banco, e verifica se essa descrição existe dentro da pasta onde as imagens ficam cadastrada ?
Edson Venancio

Edson Venancio

Curtidas 0

Respostas

Felipe Morais

Felipe Morais

18/09/2017

Boa noite, Edson

Se por "descrição da imagem" você se refere ao caminho/diretório da imagem, é bem simples. Fiz um pequeno programa usando o Delphi 7 que ilustra este procedimento.

Num Form pus um Edit, um Button e um Image. No evento OnClick do Button é feita a verificação do caminho físico da imagem. Se o caminho for válido, a imagem em disco é carregada no componente Image1.

Imagens do programa em execução

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Verifica se o diretório digitado no Edit existe;
  if FileExists(Trim(Edit1.Text)) then
    // Se existe, carrega imagem no componente;
    Image1.Picture.LoadFromFile(Trim(Edit1.Text))
  else
    ShowMessage('Imagem não encontrada.');
end;


Segue o código completo da Unit1.pas:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Verifica se o diretório digitado no Edit existe;
  if FileExists(Trim(Edit1.Text)) then
    // Se existe, carrega imagem no componente;
    Image1.Picture.LoadFromFile(Trim(Edit1.Text))
  else
    ShowMessage('Imagem não encontrada.');
end;

end.


Substitua o Edit1 pelo FieldByName de sua Query/Table/DataSet e acredito que o resultado será o mesmo.

Espero ter ajudado, abraços!
GOSTEI 0
Felipe Morais

Felipe Morais

18/09/2017

Perdão, achei que estava usando o filtro do forum para "Delphi" e o tópico é sobre C#, ato falho meu! :)
GOSTEI 0
POSTAR