sistema para imobiliaria (fotos dos imoveis)
Estou fazendo um sistema para imobiliaria, e gostaria de colocar fotos do imovel no cadastro de imovel, q grave no banco de dados a foto tb, só q pra não ficar muito pesado teria q ser em JPG. E existe algum tipo de componente q fique mais fácil de mostrar a foto tipo com barra de rolagem ou algo parecido, algém tem alguma idéia?
Janete
Curtidas 0
Respostas
Rfpsatin
26/09/2003
Salve colega, já pensou na possibilidade de gravar apenas o caminho das fotos?
tipo, cria uma pasta no servidor, tipo fotos, e armazena num campo string o caminho dele.
Fica + leve e ágil de trabalhar em se tratando de BD e performance em rede.
Ricardo
tipo, cria uma pasta no servidor, tipo fotos, e armazena num campo string o caminho dele.
Fica + leve e ágil de trabalhar em se tratando de BD e performance em rede.
Ricardo
GOSTEI 0
Imoreira
26/09/2003
Veja isto:
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=22560&highlight[/url]
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=22560&highlight[/url]
GOSTEI 0
Janete
26/09/2003
Veja isto:
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=22560&highlight[/url]
Olá! vi o seu exemplo mas não quer dar certo na hora de compilar falar na linha:
if FindFirst(c:\fotos\´+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then
isso ´Undeclared Indentfer; ´C´´
pode me ajudar?
GOSTEI 0
Imoreira
26/09/2003
Desculpe o erro de digitação:
O correto é:
if FindFirst([color=red:2e2e8b63a4]´c:\fotos\´[/color:2e2e8b63a4]+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then // com as aspas fechadas.
Reveja o código e feche as aspas que estiverem abertas.
Fui.
______________________
[i:2e2e8b63a4][b:2e2e8b63a4]Observação:[/b:2e2e8b63a4][/i:2e2e8b63a4]
[b:2e2e8b63a4]iMoreira[/b:2e2e8b63a4][i:2e2e8b63a4], para que os usuários não tenham problemas quanto ao seu código postado no [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=22560&highlight//url]link[/url], providenciei a alteração. - Sandra/Moderação.[/i:2e2e8b63a4]
O correto é:
if FindFirst([color=red:2e2e8b63a4]´c:\fotos\´[/color:2e2e8b63a4]+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then // com as aspas fechadas.
Reveja o código e feche as aspas que estiverem abertas.
Fui.
______________________
[i:2e2e8b63a4][b:2e2e8b63a4]Observação:[/b:2e2e8b63a4][/i:2e2e8b63a4]
[b:2e2e8b63a4]iMoreira[/b:2e2e8b63a4][i:2e2e8b63a4], para que os usuários não tenham problemas quanto ao seu código postado no [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=22560&highlight//url]link[/url], providenciei a alteração. - Sandra/Moderação.[/i:2e2e8b63a4]
GOSTEI 0
Imoreira
26/09/2003
1º - Inclua a unit jpeg na seção uses
2º - Crie uma pasta com o nome fotos
3º - Ao copiar a foto para essa pasta você tem que renomeá-la com o mesmo numero do codigo da sua tabela.
Ok?
2º - Crie uma pasta com o nome fotos
3º - Ao copiar a foto para essa pasta você tem que renomeá-la com o mesmo numero do codigo da sua tabela.
Ok?
GOSTEI 0
Janete
26/09/2003
Desculpe o erro de digitação:
O correto é:
if FindFirst([color=red:b711ccaf72]´c:\fotos\´[/color:b711ccaf72]+codigo+´.bmp´,faAnyFile,SearchRec) = 0 then // com as aspas fechadas.
Reveja o código e feche as aspas que estiverem abertas.
Fui.
Não sei como exibir as fotos no sistema?
GOSTEI 0
Imoreira
26/09/2003
Poste aquí.
GOSTEI 0
Janete
26/09/2003
Poste aquí.
Consegui! Muito Obridado deu certinho.
:D
GOSTEI 0