Mega Code Archive

 

Categories / Delphi / ADO Database

 

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;