//tenta isso
procedure TForm1.Button1Click(Sender: TObject);
var
imagem: TMemoryStream;
begin
if FileExists(dg.FileName) then
begin
imagem := TMemoryStream.Create;
imagem.LoadFromFile('foto.jpg');
updt.close;
updt.SQL.Clear;
updt.SQL.Add('update sp_imagem set imagem = :imagem);
updt.paramByName('imagem').LoadFromStream(imagem,ftblob);
updt.ExecSQL;
end;
end;
/////////////
Claudio Rogerio Carvalho Filho wrote:
>
> Pessoal, alguem teria um exeplo de como cadastrar e recuperar uma
> imagem ou arquivo em um campo ByteA. Ja tentei de varias formas e
> ainda não achei um metodo que funcione. Ja pesquisei no google e nao
> achei nenhum exeplo.
>
> Obrigado.
> _______________________________________________
> pgbr-geral mailing list
> [email protected]
> https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
>
>
--
View this message in context:
http://www.nabble.com/Delphi-Zeos-%2B-PG-%2B-ByteA-tp14337322p14480608.html
Sent from the PostgreSQL - Brasil mailing list archive at Nabble.com.
_______________________________________________
pgbr-geral mailing list
[email protected]
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
