Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 2)
Continuação da série de artigos que mostra como criar uma aplicação em Kylix acessando o banco de dados PostgreSQL usando o componente Zeos como conexão. Neste aprenderemos a armazenar imagens em banco de dados.
Parte 3: Programando os eventos
No Evento OnClick do BtnIncluir:
ZTable1.Insert;
if OpenDialog1.Execute then
begin
TBlobField( DataSource1.DataSet.FieldByName('arquivo') ).LoadFromFile( OpenDialog1.Filename );
DBEdit1.Text := ExtractFileName(OpenDialog1.FileName);
end;
if OpenDialog1.Execute then
begin
TBlobField( DataSource1.DataSet.FieldByName('arquivo') ).LoadFromFile( OpenDialog1.Filename );
DBEdit1.Text := ExtractFileName(OpenDialog1.FileName);
end;
No evento OnClick do BtnGravar:
Ztable1.Post;
No evento OnCreate do Form:
ZTable1.Open;
No evento OnDestroy do Form:
ZTable1.Close;