Fórum Visualizar imagem do banco mysql #260111

26/11/2004

0

Seguinte...

consegui gravar no banco de dados mysql a imagem que eue queria utilzando o seguinte comando:

x.Params[4].LoadFromFile(´C:\tiago\outros\fotos_galera_vf\teste.jpg´,ftBlob);

só que agora me encontro com o seguinte problema eu tenho que abrir essa imagem em uma timage como eu faço isso...

imagem.pictura.loadfromfile(´´); ou não tem nada haver


Piaum3

Piaum3

Responder

Posts

26/11/2004

Reginaldo174

Seguinte... como eu faço isso... imagem.pictura.loadfromfile(´´); ou não tem nada haver


Isso mesmo .... faça assim:
Image1.Picture.LoadFromFile(´C:\tiago\outros\fotos_galera_vf\teste.jpg´);



Responder

Gostei + 0

26/11/2004

Piaum3

mais como eu faço para recuperar a informação que está cadastrada no BLOB.. porque o que ele me retorna é o seguinte

ÿØÿà

ou seja deve ser uma codificação como eu faço para transformar isso para que eu possa visualizar a imagem


Responder

Gostei + 0

26/11/2004

Reginaldo174

Pergunta ..
vc gravou o path da imagem ou a imagem ???

Se for o path abra assim :
Image1.Picture.LoadFromFile(´C:\tiago\outros\fotos_galera_vf\teste.jpg´);


Se tiver gravado a imaem faça assim :

Use um componente DBimage

[/code]


Responder

Gostei + 0

26/11/2004

Piaum3

seguinte eu gravei a imagem,,, e para selecionar estou utilizando a seguinte expressão

x:= tsqlquery.Create(nil);
x.SQLConnection := dados.conexao;
x.SQL.Clear;
x.SQL.Add(´select emp_codigo,emp_cnpj,emp_razaosocial,emp_nomefantasia,emp_logotipo,emp_endereco,´);
x.SQL.Add(´emp_bairro,emp_cidade,emp_cep,emp_telefone,emp_estado,emp_qtdvaga from tbl_empresa´);

txt_codigo.Text := formatfloat(´0000´,x.Fields[0].AsFloat);
txt_cnpj.Text := x.Fields[1].AsString;
txt_razaosocial.Text := x.Fields[2].AsString;
txt_nomefantasia.Text := x.Fields[3].AsString;
//txt_logotipo.Text := x.Params[4].AsString;
txt_endereco.Text := x.Fields[5].AsString;
txt_bairro.Text := x.Fields[6].AsString;
txt_cidade.Text := x.Fields[7].AsString;
txt_cep.Text := x.Fields[8].AsString;
txt_telefone.Text := x.Fields[9].AsString;
txt_estado.Text := x.Fields[10].AsString;
txt_qtdvagas.Text := x.Fields[11].asstring;

só que não sei como recuperar a imagem que eu gravei ela está no emp_logotipo


Responder

Gostei + 0

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

Aceitar