ADO Database Delphi

  1. Home
  2. Delphi
  3. ADO Database
  4. Resim ekle
procedure Tkisiyeozel.Button1Click(Sender: TObject);
begin
openpicturedialog1.filter:='Resim Dosyaları *.bmp';
if openpicturedialog1.Execute then
begin
table1.edit;
dbimage1.Picture.loadfromfile(openpicturedialog1.filename);
table1.post;
end;
end;