Pessoal, como faço para jogar uma imagem que está em um campo blob do mysql
para um componente timage? A figura pode ser tanto JPG como BMP.
Para armazenar fiz assim:
fiz da seguinte forma, usando query:o nome da tabela é Produtos
query.close;
query.sql.Clear;
query.Sql.Add ('insert into Produtos (Imagem)');
query.Sql.Add ('Values(:Imagem)');
query.ParamByName('Imagem').LoadFromFile(open.filename, ftGraphic);
query.ExecSql;
onde open.filename é um componente opendialog....
Para jogar devolta fiz assim:
var
fldCampo : TField;
stStream : TStream;
cod : string;
begin
//Joga imagem devolta-----------------------------------------------------------
cod := frmmenu.queryprodutos.fieldbyname('Codigo').asstring;
with frmmenu.queryprodutos do begin
Close;
frmmenu.queryprodutos.SQL.Clear;
frmmenu.queryprodutos.SQL.Add('SELECT * from Produtos where Codigo =
"'+cod+'"');
frmmenu.queryprodutos.Open;
if(not eof) then begin
fldCampo := FieldByName('Imagem');
stStream := CreateBlobStream(fldCampo, bmRead);
editimagem.Picture.Bitmap.LoadFromStream(stStream);
end;
end;
//------------------------------------------------------------------------------
PORÉM QUANDO A FIGURA QUE EU TENHO ARMAZENADA NO MYSQL É JPG DA O SEGUINTE ERRO:
Project sistema.exe raised excpeption class EinvalidGraphic whith message
'bitmat não é válido'. Process stopped. Use step or tun to continue
Alguém sabe outra rotina para jogar a imagem para meu timage?
att Charles Chiodi
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
