求一关于图片保存到数据库的解决方案!(100分)

  • 主题发起人 主题发起人 landa8888
  • 开始时间 开始时间
L

landa8888

Unregistered / Unconfirmed
GUEST, unregistred user!
图片格式为JPG,如果把图片保存到数据库,并用程序浏览图片,不能复制图片,同时刻录成光盘形式,可直接在光盘执行程序并浏览图片.谢谢!
 
数据库用access了
还有一种方法就是把图片以文件树的形式保存
 
你的问题问的有些模糊。
用DBIMAGE就可以在程序中浏览从数据库下来的图片,且不能复制。(还是能被抓图的哦)
后面的光盘问题,不太理解你的意思。
 
dbimage控件连接数据源就OK了。
 
本来做好可以在电脑直接运行,我是说能不能直接在光盘运行呢?
 
你的数据库路径设得对就可以呗,把数据库放在执行文件当前目录下是一个好办法呀
http://www.aidelphi.com/6to23/Docu/BlobStream.zip
一个利用TBlobStream在数据库中保存BMP和JPG图片的例子
这个例子倒没有完全做到你想要的,但可参看一下的
 
那能不能把图片加密后才存到数据库呢》
 
加密后提交到数据库当中还可以直接浏览了吗?
 
landa8888,
>>>>本来做好可以在电脑直接运行,我是说能不能直接在光盘运行呢?
能。将数据指向光盘的路径就行。技术上没问题。若要自动运行那种,可以做个AutoRun.ini来实现。
 >>>>那能不能把图片加密后才存到数据库呢
 能。图片读成流,流是可以压缩的。当然,读出时要解压。
>>>>不能复制图片
能。图片存到数据库中,且压缩时加上别人不知道的头部,这样,就只能用你自已做的程序读出里面的图片啦。程序中不加复制功能不就行了。当然了,拷屏就没办法了。

 
To:DouZheng;谢谢你的回答,请问能不能给个例子参考下!
 
>>>>本来做好可以在电脑直接运行,我是说能不能直接在光盘运行呢?
如果用到Access数据库,那就不行,光盘是只读的,不能操作数据库。
 
还有的是如何把一张JPG的图片生成缩略图的形式,好象ACDSEE生成的缩略图一样,谢谢大家了
 
用canvas的screchdraw方法
 
To:book523;能不能具体一点?谢了.
 
http://www.2ccc.com/article.asp?articleid=340

数据库存取图片演示
一个在数据库存取图片的演示代码,包含ACCESS数据库和SQL数据库两种方式。

1、 小高端用户ADO+SQL2000
2、 在小高端用户使用的数据库中SQL是最为普遍的。

首先先要用上流(Stream)程序如下:

procedure TForm1.DBGrid1DblClick(Sender: TObject); //双击DBGrid栏显示图片
Var
Ms:TStringStream;
Jpg:TJpegImage;
begin
Ms:=TstringStream.Create('');
Jpg:=TJpegImage.Create;
TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(Ms);
Jpg.LoadFromStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
// Form2.Image1.Picture.Bitmap.LoadFromStream(Ms); //调用bmp图像的方法
Form2.Image1.Picture.Assign(Jpg);
Form2.Show;
form2.Position :=poScreenCenter;
end;

{如果JpegImage是从一个文件中load的话(loadfromstream),图像就可以正常显示而从数据库字段中读到流里,JpegImage再从这个流里load,就不行,会出现错误JPEG error #41。}

procedure TForm1.Button2Click(Sender: TObject); //保存
Var
Msmem:TmemoryStream;
Jpg:TJpegImage;
begin
msmem:=TmemoryStream.Create;
Jpg:=TjpegImage.Create;
Jpg.Assign(form2.Image1.Picture.Graphic);
Jpg.SaveToStream(Msmem) ;
// form2.Image1.Picture.Bitmap.SaveToStream(Msmem); // 保存bmp图像的方法
Msmem.Position :=0;
ADOTable1.Edit ;
TBlobField(ADOTable1.FieldByName('zp')).LoadFromStream(Msmem);
ADOTable1.Post;
Msmem.Free ;
Jpg.Free;
end;
 
还是未能找到合适的答案,请大家继续帮忙解决问题!谢谢大家!
 
access是可以在光盘上直接运行的当然要程序动态设置数据表路径。
其他大型数据库(c/s)恐怕不行。
至少oracle不行(表空间tablespace)。
当然如果我说错了还请大家海涵。

 
你的问题是不是程序被刻录到光盘上就不能正确运行了,如果是这样,是因为数据库只读的原因,请想其他办法吧,应该有许多解决的办法。
 
其实,如果可以直接对图片进行加密的话,我就不用把数据存到数据库了。
 
后退
顶部