有关图片存到后端数据库中的一个问题?(15分)

  • 主题发起人 主题发起人 flfje
  • 开始时间 开始时间
F

flfje

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI7中怎么打相片(如:A.jpg)在本地相应的地点打开到TDBImage控件中,后,怎样保存到后端数据库(MS SERVER 2K)中?

现在急用,,,,请各位指点指点!!!谢谢!!!有实例者,请告之!!!谢谢!!!
 
,,,,打开相片,,,,
刚才掉了一个字“开”字。。。。~~~失误
 
在DELPHI7中怎么把相片(如:A.jpg)在本地相应的地点打开到TDBImage控件中,后,怎样保存到后端数据库(MS SERVER 2K)中?

现在急用,,,,请各位指点指点!!!谢谢!!!有实例者,请告之!!!谢谢!!!
 
我有一个类似Tdbimage的控件,如需要请留下QQ
 
在DELPHI7中怎么把相片(如:A.jpg)在本地相应的地点打开到TImage控件中,后,怎样保存到后端数据库(MS SERVER 2K)中?

现在急用,,,,请各位指点指点!!!谢谢!!!有实例者,请告之!!!谢谢!!!
 
请看我以前回答过的帖子吧:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3148420
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3130221
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3126184

注意你的数据库中的存放图片的字段要设置成Image的才行
 
谢谢!aricyoung,在吗?
我现在按到上面的例子,去写一些相关的代码时,打开、保存图片时没有问题。我想检验保存动作是否真的保存进去。但,在读取数据库中的图片时,报错!请指点!!!
出错提示是:ERROR;llleagl character in input file:' '($A1A1)

相关源代码如下:

//保存
var
tmp:TMemoryStream;
begin
tmp:=TMemoryStream.Create;
if sFileName='' then
begin
application.MessageBox('请先选择图片所在的路径!','提示',MB_OK);
exit;
end;
image1.Picture.Graphic.SaveToStream(tmp);
ADOQuery1.Close;
ADOQuery1.SQL.Text:='update bzgzry set zp=:pic where zgzh=:zgzh';
ADOQuery1.Parameters.ParamByName('zgzh').Value:=rightstr(form1.DBEdit3.Text,8);
ADOQuery1.Parameters.ParamByName('pic').LoadFromStream(tmp,ftBLOB);
ADOQuery1.ExecSQL;
end;

//读取

var
mStream:TMemoryStream;
JpgFile:TjpegImage;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from bzgzry where zgzh=:zgzh';
ADOQuery1.Parameters.ParamByName('zgzh').Value:=rightstr(form1.DBEdit3.Text,8);
ADOQuery1.Open;
if not ADOQuery1.FieldByName('zp').IsNull then begin
mStream:=TMemoryStream.Create ;
JpgFile:=TjpegImage.Create ;
TBlobField(ADOQuery1.FieldByName('zp')).SaveToStream(mStream);  //顯示的轉換為BlobFiled並保存至內存流 //注:主要是这一句报的错!
mStream.Position :=0;
jpgfile.LoadFromStream(mStream); //主要就是这一句
image2.Picture.Assign(JpgFile);
end
else begin
image2.Picture :=nil;
end;
end;
 
aricyoung,在吗?

各位大吓们知道原因吗?请指点!
 
出错提示是:ERROR;lllegal character in input file:' '($A1A1)
 
aricyoung,在吗?

各位大吓们知道原因吗?请指点!
 
请高手指点!急用,谢谢!!!
 
我现在做的毕业设计就是一个相册管理系统,不过我的后台数据库是paradox,如果对你有帮助的话,请留QQ号码
 
楼上,谢谢!我用的数据库是SQL.
有没有人知道原因吗?请告之!~谢谢!
 
有人知道是什么原因吗?请指点~!
 

Similar threads

S
回复
0
查看
758
SUNSTONE的Delphi笔记
S
S
回复
0
查看
751
SUNSTONE的Delphi笔记
S
S
回复
0
查看
838
SUNSTONE的Delphi笔记
S
S
回复
0
查看
799
SUNSTONE的Delphi笔记
S
后退
顶部