摘要: //存数据procedure TForm1.Button1Click(Sender: TObject);var mm: TMemoryStream;begin mm := TMemoryStream.Create; image1.Picture.Graphic.SaveToStream(mm); sqlQuery1.SQL.Clear; SQLQuery1.SQL.Add('insert into datasnap_test (id, des, img) values (2, :des, :img)'); SQLquery1.ParamByName('des') 阅读全文
posted @ 2013-11-16 13:48 ftwsnow 阅读(285) 评论(0) 推荐(0) 编辑