Armazenando fotos no sistema!
Bom dia;
Estou desenvolvendo um sistema onde preciso colocar fotos armazenadas para visualização então como não quero colocar-las no banco de dados para não pesar muito estou com a ideia de criar um campo com o caminho e colocar as fotos numa determinada pasta para quando forem passados os registros elas fossem apenas mostradas agora com que componente faço isso para mostrar as fotos dando o caminho.
Forte abraço...
Ewerton Azevedo do Nascimento
Estou desenvolvendo um sistema onde preciso colocar fotos armazenadas para visualização então como não quero colocar-las no banco de dados para não pesar muito estou com a ideia de criar um campo com o caminho e colocar as fotos numa determinada pasta para quando forem passados os registros elas fossem apenas mostradas agora com que componente faço isso para mostrar as fotos dando o caminho.
Forte abraço...
Ewerton Azevedo do Nascimento
Ewerton
Curtidas 0
Respostas
Imoreira
25/09/2003
procedure CarregaFoto(Foto: TImage; codigo: String);
var SearchRec : TSearchRec;
begin
if FindFirst(´c:\fotos\´+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then begin
foto.Stretch := true;
foto.Picture.LoadFromFile(´c:\fotos\´+codigo+´.bmp´);
end else if FindFirst(´c:\fotos\´+codigo+´.jpg´,faAnyFile,SearchRec) = 0 then begin
foto.Stretch := true;
foto.Picture.LoadFromFile(´c:\fotos\´+codigo+´.jpg´);
end else begin
foto.Picture := NIL;
end;
end;
No evento afterscrool da sua tabela coloque:
CarregaFoto(Foto,tbProdutoCodigo.asstring);//foto=TImage
Você pode usar .bmp ou .jpg
[i:54d8803027][b:54d8803027]Obs.:[/b:54d8803027] Conforme citado [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=22786&sid=81573d48b682ddf8cfde5a430bbcd9cd//url]neste tópico[/url], providenciei o acerto no código - Sandra/Moderação.[/i:54d8803027]
var SearchRec : TSearchRec;
begin
if FindFirst(´c:\fotos\´+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then begin
foto.Stretch := true;
foto.Picture.LoadFromFile(´c:\fotos\´+codigo+´.bmp´);
end else if FindFirst(´c:\fotos\´+codigo+´.jpg´,faAnyFile,SearchRec) = 0 then begin
foto.Stretch := true;
foto.Picture.LoadFromFile(´c:\fotos\´+codigo+´.jpg´);
end else begin
foto.Picture := NIL;
end;
end;
No evento afterscrool da sua tabela coloque:
CarregaFoto(Foto,tbProdutoCodigo.asstring);//foto=TImage
Você pode usar .bmp ou .jpg
[i:54d8803027][b:54d8803027]Obs.:[/b:54d8803027] Conforme citado [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=22786&sid=81573d48b682ddf8cfde5a430bbcd9cd//url]neste tópico[/url], providenciei o acerto no código - Sandra/Moderação.[/i:54d8803027]
GOSTEI 0
Mmtoor
25/09/2003
tem um exemplo com fonte em http://www.cjs.com.br
MMTOOR2003
MMTOOR2003
GOSTEI 0