Fórum Mostrar imagem na tela #214459

16/02/2004

0

Delphi

Preciso mostar uma imagem na tela usando comando SQL.
Quando faço a pesquisa dessa foto que está armazenada numa outra tabela a foto não aparece, ela vem em branco. Como se não conseguíssemos ler a foto.


Leandra

Leandra

Responder

Posts

16/02/2004

Keitarosan

Bom, antes de ajuda-la, goxtaria de saber alguns dados tecnicos :D
1- Que tipow de base de dados vuce ixtah usando?
2- Qual é tipo de dado que o campo da imagem aceita?
e 3- Qual o código que você está utilizando para a ´exibição´ da imagem? ^___^


Responder

Gostei + 0

16/02/2004

Leandra

Uso ado com SQL.
Gravei em uma query x uma imagem e quero ler a partir de uma query y este iamgem.
Faço o select (SELECT FOTO1 FROM QUERYX);
Depois dessa pesquisa tento jogar o campo pesquisado p/ sair num relatório, porém a foto vem em branco, como se eu não estivesse conseguindo ler esta foto.


Responder

Gostei + 0

16/02/2004

Keitarosan

Bom, pelo jeito você está utilizando tabela do Access, certo? o.o
Você já se certificou de que as imagens realmente estão dentro da base de dados, que elas estão sendo guardadas de forma correta lah dentro? o.O´


Responder

Gostei + 0

16/02/2004

Leandra

Não uso Access, uso SQL mesmo.
Já verifiquei no meu query analyzer e verifiquei q elas estão lá.
Pois em consultas na própria query que elas forma geradas ela aparece agora se eu tento consultar em outra query não consigo visualizá-las.


Responder

Gostei + 0

16/02/2004

Keitarosan

Bom, nom tow conseguindo entender muito bem o que você está tentando dizer, mas vamos lá, já que não é ACCESS a tabela, pelo jeito voce usal SQL SERVER então, certo?

Como você está tentandu exibir a imagem?
Associou o campo da tabela a um componente DBIMAGE ou DBIMAGE de relatorio para exibição da mesma?


Responder

Gostei + 0

16/02/2004

Leandra

Sim, eu uso SQL Server.
Vou tentar te explicar melhor.
Em uma tabela eu tenho as fotos que estão associadas a um DBimage.
Ai qdo eu faço um select p/ exibir estas fotos em uma outra tabela elas vem em branco, como se eu não conseguisse ler.
Faço simplesmente uma consulta que não retorna o campo q eu quero.
É mais ou menos assim.
As fotos estão gravadas em um campo da tabela Aeronave e eu quero ler as fotos na tabela Fretamento.
Faço meu select e as fotos não vem p/ minha consulta.
Melhorou? É difícil de explicar.


Responder

Gostei + 0

16/02/2004

Keitarosan

Ohhhh... agora vuce iluminou tudo, hahaha ^____^
intendi o que vuce quer fazer, em uma tabela chamada Aeronave contem as fotus armazenadas, certo?
Soh que você quer fazer a busca em uma tabela chamada Fretamento que com certeza deve estar ligada a tabela Aeronave de alguma forma, por algum codigo ou algo assim, tem como você postar aqui a query de consulta SQL que você montou para fazer essa peskisa? vai ver tem algum erro nela, nom sei... temus ki analisah tudo, hehehe :lol:

Dixkulpa si tow fazenu mta pergunta sem resolver o problema de vez, é que ajudar sem conhecer o problema nom é tom simples :D


Responder

Gostei + 0

16/02/2004

Leandra

Sim, é isso.
As consultas estão em código HTM.
Vou te mostrar as duas.
Na consulta Aeronave onde estão as fotos sai legal.
Mas a de fretamento q está ligada na tabela de aeronave não vem a foto.
Código aeronave:

if (dmTABELA.qrFAERONAVEFOTO1.BlobSize > 0) then
begin
frmCONSULTA.HTM(´<TABLE cellSpacing=0 cellPadding=0 width=650 border=0>´);
frmCONSULTA.HTM(´<TR><TD><DIV ALIGN=CENTER><BR>´);

dmTABELA.qrFAERONAVEFOTO1.SaveToFile(dmPRINCIPAL.stTEMP+´FOTO1.BMP´);

frmCONSULTA.HTM(´ <IMG SRC=´´+dmPRINCIPAL.stTEMP+´FOTO1.BMP´ BORDER=0 WIDTH=360 HEIGHT=179 ALIGN=´center´>´);

frmCONSULTA.HTM(´</TABLE></FONT></DIV>´);
frmCONSULTA.HTM(´<BR>´);
end;

Agora a consulta do fretamento onde deveria lista a foto.

// fotos da aeronave
dmPRINCIPAL.slSELECT.Clear;
dmPRINCIPAL.slSELECT.Add(´SELECT FOTO1 FROM AERONAVE WHERE ID = ´+dmFRETAMENTO.qrFFRETAMENTOID_AERONAVE.AsString);
ShowMessage(dmPRINCIPAL.slSELECT.Text);
if (dmPRINCIPAL.PESQUISA) then
begin
frmCONSULTA.HTM(´<TABLE cellSpacing=0 cellPadding=0 width=650 border=0>´);
frmCONSULTA.HTM(´<TR><TD><DIV ALIGN=CENTER><BR>´);

dmPRINCIPAL.qrPESQUISA.SaveToFile(dmPRINCIPAL.stTEMP+´FOTO1.BMP´);
frmCONSULTA.HTM(´<TD WIDTH=´86´>´);
frmCONSULTA.HTM(´ <IMG SRC=´´+dmPRINCIPAL.stTEMP+´FOTO1.BMP´ BORDER=0 WIDTH=360 HEIGHT=179 ALIGN=´center´>´);

frmCONSULTA.HTM(´</TABLE></FONT></DIV>´);
frmCONSULTA.HTM(´<BR>´);
end;

Verifica se assim ajuda


Responder

Gostei + 0

16/02/2004

Keitarosan

Noossa.... mtuuuu f*da, hahahaha
u ki eh issow Delphi voltadu pra Plataforma .NET? :D
Eu nunca tinha visto issow nom, mtu legal... aceita HTML, será ki dah pra implementar cum PHP? Ia ser tudo podeh usah Delphi integrado cum PHP *-* hahahha

Bom, vamus ao ki interessa u.u
Eu nunca vi essa parte do HTML, mas o grosso mermu continua sendo Object Pascal, mi diz uma coisa, pq vuce faix issow:
  dmPRINCIPAL.slSELECT.Clear; 
  dmPRINCIPAL.slSELECT.Add(´SELECT FOTO1 FROM AERONAVE WHERE ID = ´+dmFRETAMENTO.qrFFRETAMENTOID_AERONAVE.AsString);

e na hora de salvar(SaveToFile) a foto vuce faix assim:
  dmPRINCIPAL.qrPESQUISA.SaveToFile(dmPRINCIPAL.stTEMP+´FOTO1.BMP´);


u ki eu quero dizer é: Você monta a Query de consulta num objeto chamado [b:4f067dac16]slSELECT[/b:4f067dac16], mas salva a imagem de um objeto chamado [b:4f067dac16]qrPESQUISA[/b:4f067dac16]
Nom afirmo com certeza, pois acabei de ver que estou num ´mundo ixtranhu´, meu Delphi nom faix essas coisas cum HTML, hahahaha :P

O possivel erro nom pode estar nessa parte? o.O´´

ps.: Seu nome é lindu, hahaha, vuce é minha xará =P


Responder

Gostei + 0

19/02/2004

Leandra

Desculpa a demora de responder novamente é q está tudo muito corrido p/ mim.
Resolvi meu problema, vou ter q depois dar uma melhorada no código pois como vc viu mistura HTML com Delphi, funciona é bem legal.
Obrigada pela ajuda


Responder

Gostei + 0

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

Aceitar