Visualizar imagem do banco mysql

Delphi

26/11/2004

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

Curtidas 0

Respostas

Reginaldo174

Reginaldo174

26/11/2004

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´);



GOSTEI 0
Piaum3

Piaum3

26/11/2004

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


GOSTEI 0
Reginaldo174

Reginaldo174

26/11/2004

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]


GOSTEI 0
Piaum3

Piaum3

26/11/2004

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


GOSTEI 0
POSTAR