Fórum Imagens dos produtos #156846

30/04/2003

0

Bom dia a todos!

Bem pessoal, gostaria de saber como faço para trabalhar com imagens relacionadas a produtos em um banco de dados. Sei que não é recomendável gravar as imagens em no banco, então criei uma tabela com o código EAN de cada produto e seu respectivo nome, e no diretóro de nome imagens coloquei as imagens dos produtos com seu respectivo nome igual ao que eu fiz no banco, minha dúvida agora é saber como fazer que ele ´pegue´ a imagem do diretório para apresentá-la após uma consulta, alguém tem idéia?

Angelo


Angelo

Angelo

Responder

Posts

30/04/2003

Dedi

[color=blue]SE ESTIVER USANDO DBE[/color]

VAR
Lista : TStringList;
BEGIN
basededados := ´´;
if Trim(´NOMEDOALIAS´) <> ´´ then
BEGIN
Lista := TStringList.Create;
Session.GetAliasParams(´NOMEDOALIAS´,Lista);
basededados := Copy(Lista[0],6,Length(Lista[0])-5);
basededados := basededados + ´\´;
foto:= basededados +´fotos\´+PRODUTO+´.jpg´;
if FileExists(foto) then
begin
Image1.Visible:=true;
Image1.Picture.LoadFromFile(foto);
end;
END;
END;

se tiver duvidas so falar;
no caso o diretorio ´foto´ está dentro do Diretorio de dados


Responder

Gostei + 0

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

Aceitar