请教,如何将image显示的图相保存到数据库中?

最新推荐文章于 2021-05-28 10:47:47 发布

aibi9196

最新推荐文章于 2021-05-28 10:47:47 发布

阅读量139

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/delphi2007/archive/2008/11/05/1326862.html

版权

请教,如何将image显示的图相保存到数据库中? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061113160341154.html
请教,如何将image显示的图相保存到数据库中? 多谢了!!!!!!!!

看下例程
http://www.delphibox.com/article.asp?articleid=3685

以流的方式保存一下。我做过，就按照这样的。

var
_picture: TFileStream;
begin
_picture:= TFileStream.Create('c:\11.bmp',fmOpenRead);
with ADOCommand do
begin
Parameters.Clear;
Parameters.AddParameter.Name:='UserPicture';//添加一个参数
Parameters.AddParameter.DataType:= ftBlob;//参数类型为数据流
if _picture<>nil then
Parameters.ParamByName('UserPicture').LoadFromStream(_picture,ftBlob);//给参数赋值
//下面是你的insert sql语句
//image类型字段在values里对应':userpicture'参数
fsql:= 'insert into UserInfo (UserID,USERNAME,LOGNNAME,'
+'UsePsw,UserSex,UserBirthday,LearnLevel,UserDutyName,UserDuty,UserSecOffice,'
+'SuitSpecID,DeptID,ClassID,UserAddr,UserPhone,UserPicture,UserPictureEx,UserPower,Remark) '
+'values ('+inttostr(fid)+','''
+trim(editName.Text)+''','''+trim(editLogn.Text)+''','''+trim(editPswd1.Text)+''','''
+cboxUserSex.Text+''',cdate('''+DateTimeToStr(UserBirthday.DateTime)+'''),'''
+cboxXl.Text+''','''+trim(editZc.Text)+''','''+trim(editZw.Text)+''','''
+trim(editKs.Text)+''','+inttostr(_SuitSpecID)+','+inttostr(_DeptID)+','''
+strTemp2+''','''+trim(editAddr.Text)+''','''+trim(editPhone.Text)+''',:userpicture,'''
+_picEx+''','+inttostr(_power)+','''+memo1.Text+''')';
CommandText:= fsql;
try
Execute;
if messagebox(Handle,pchar('添加用户成功！'+#13+#13+'是否继续添加？'),
pchar('提示'),mb_yesno+MB_ICONQUESTION)=mryes then
begin

end else Close;
except
end;
end;
end;