请教,如何将image显示的图相保存到数据库中?
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;