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

Question

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

Answer 1

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

Answer 2

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,Re) '
                   +'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;