COMPARAR DESCRICAO DE TABELA COM DESCRIÇÃO ARQUIVO DE UMA PASTA
18/09/2017
0
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 ?
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
Curtir tópico
+ 0
Responder
Posts
19/09/2017
Felipe Morais
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.
[url:descricao=Imagens do programa em execução]https://ibb.co/jjwom5[/url]
Segue o código completo da Unit1.pas:
Substitua o Edit1 pelo FieldByName de sua Query/Table/DataSet e acredito que o resultado será o mesmo.
Espero ter ajudado, abraços!
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.
[url:descricao=Imagens do programa em execução]https://ibb.co/jjwom5[/url]
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!
Responder
20/09/2017
Felipe Morais
Perdão, achei que estava usando o filtro do forum para "Delphi" e o tópico é sobre C#, ato falho meu! :)
Responder
Clique aqui para fazer login e interagir na Comunidade :)