Um Campo do tipo blob numa query e um Timage no form faço assim
Procedure frm1.Image_logoClick(Sender: TObject);
var
imagem: TPicture;
stream: TStream;
img2: TJPEGImage;
begin
try
imagem := TPicture.Create;
OpenPictureDialog.Execute;
if OpenPictureDialog.FileName <> '' then
begin
imagem.LoadFromFile(OpenPictureDialog.FileName);
if (imagem.Width <> 180) or (imagem.Height <> 80) then
begin
Application.MessageBox('As dimensões da imagem devem ser de 180 x
80 pixels!', 'teste', MB_OK + MB_ICONINFORMATION);
end
else
begin
if not (zquery_image_logo.State = dsInsert) and
(zquery_image_logo.RecordCount > 0) then
begin
zquery_image_logo.Open;
zquery_image_logo.Delete;
zquery_image_logo.Insert;
end;
Image_logo.Picture := imagem;
if not (Modulo1.zquery_image_logo.State in [dsInsert, dsEdit]) then
zquery_image_logo.edit;
TBlobField(zquery_image_logo.FieldByName('IMAGEM')).Assign(imagem.Graphic);
img2:= TJPEGImage.Create;
stream :=
ZQuery_image_logo.CreateBlobStream(ZQuery_image_logo.FieldByName('IMAGEM'),
bmRead);
img2.LoadFromStream(stream);
img2.Free;
//
imagem.Free;
end;
end;
except
on e: exception do ShowMessage(e.Message);
end;
end;
Seu uso está limitado a imagens JPEG
Em 27 de setembro de 2012 14:22, Francisco Adriano Flores <
[email protected]> escreveu:
> Éverton,
>
> Qual é versão do teu Delphi ?
>
> Em 27 de setembro de 2012 13:58, Éverton Bueno Lima <
> [email protected]> escreveu:
>
>> Ola pessoal,****
>>
>> ** **
>>
>> ** **
>>
>> Eu criei um tipo bytea para poder salvar a imagem no meu banco de dados
>> so que não estou conseguindo salvar pelo Delphi alguém já fez esse
>> procedimento de salvar uma imagem no postgres pelo Delphi, estou
>> utilizando conexão adoquery.****
>>
>> ** **
>>
>> ** **
>>
>> _______________________________________________
>> pgbr-geral mailing list
>> [email protected]
>> https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
>>
>>
>
> _______________________________________________
> pgbr-geral mailing list
> [email protected]
> https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
>
>
--
Anselmo M. Silva
_______________________________________________
pgbr-geral mailing list
[email protected]
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
