该怎么实现把JPG图片存入数据库中。还有Image数据类型最大可以存多大的图片?谢谢啊
解决方案 »
- 新手:不会用tpagecontrol
- for1有一个eidt1,怎么删除掉这个eidt1(要把这edit1这个对象释放掉,并在FORM1上看不到edit1的显示,不能用eidt1.visible:=false)
- query1.delete;删除错误是什么原因
- mdiapp中的资窗口关闭的问题
- 没钱!我想出售此IE工具条的源码,如Baidu,google工具条那样
- 用Delphi怎么和DREAMWEAVER一起开发网页,用来和数据库相连!!界面也好看!!大家进来讨论一下!!进来有分!
- 用INDY的IdSMTP发送邮件,在附件的处理上,此控件好像只能从具体文件读入?不知有无其它方法(如从文件流)等途径追加附件?望高手指教!
- 我在一个新建的单元里面要用到self,请问要use什么?
- 请教dephi的入门书?立即给分
- 那里有 Install shield??
- 奇怪的数据类型问题
- 关于datatime类型变量的相加问题
如果你用BDE,BDE Administrator中的Blob Size要设足够大,如1024,就是1M,10240就是10M也就是可以导入10M大的图片,再改大就可以导入更大的图片,够你用了吧
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
ADOTable1.Post;
end;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO myimages(FileName,pic) VALUE(''Image1'',:pic)');
Query.ParamByName('pic').LoadFromFile('D:\Hasd.bmp',ftBlob);
Query.ExecSQL; 修改:Query.Close;
Query.SQL.Clear;
Query.SQL.Add('UPDATE myimages SET pic=:pic WHERE filename=''Image1''');
Query.ParamByName('pic').LoadFromFile('D:\Hasd2.bmp',ftBlob);
Query.ExecSQL
->数据库图片bmp/jpg存储(Accsee)