查看: 3934|回复: 0

数据库中的图片存取函数！

字体大小: 正常放大

madio

3万主题	1312 听众	5万积分

TA的每日心情

	奋斗 2024-7-1 22:21

签到天数: 2014 天

[LV.Master]伴坛终老

自我介绍: 数学中国站长

群组: 数学建模培训课堂1

群组: 数学中国美赛辅助报名

群组: Matlab讨论组

群组: 2013认证赛A题讨论群组

群组: 2013认证赛C题讨论群组

电梯直达

1^#

发表于 2004-12-12 22:04 |只看该作者 |倒序浏览

|招呼Ta 关注Ta |邮箱已经成功绑定

//将图片存入数据库的函数

procedure TDBOper.PhotoToDB(const image:TSUIImagePanel;const Source:TCustomADODataset);

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名，最后一个是窗体名+ U) k! A7 p, }. I const tempFile='temp.jpg';( {1 f" F7 _, h7 L; n- l const photo='照片实体';2 x) ?4 o: R0 T' a const photosize='照片文件长度';" P( `. ~. g1 h4 B# c8 ^/ g J9 K- s var # ]/ j8 b+ S% i) r; m f:file of Byte;7 J4 O7 K6 ~2 [& p! C$ Y- B1 t begin ; |3 y" q" r7 d( N* B if Source.RecordCount<>0 then; `, v8 H( K$ q4 t% h begin 0 b& y4 I0 N) w6 q2 H% A Source.First;* M, a( P3 g* W Source.Edit;$ |0 v; S" c( ?) ~( }6 W image.Picture.SaveToFile(tempFile); 9 p3 E% h3 U! C7 e& C7 M# a try a5 k2 V* I ^) O- W* a3 q7 q (TBlobField(Source.FieldByName(photo))).LoadFromFile(tempFile);% x; k+ C7 _$ N7 z AssignFile(f,tempFile); r* ?! T, J) K$ P. k t Reset(f);8 _8 i# R7 u( {; W) i Source.FieldValues[photosize]:=FileSize(f); ! p; H3 g/ t- H2 `$ a$ Y Source.Post; & a# E9 y* I$ {1 K* y finally& g+ S. D" O: W; X/ d- R8 | CloseFile(f); * i! R3 y2 S0 r; I DeleteFile(tempFile); 6 w5 \, x( y- n* J- O% [, ? end; / w& { i. a* z# i% ~3 n end; / S! F3 r! i+ Rend; & q, M3 u; A+ a: }, W//------------------------------------------------------------------从数据库中读出图片的函数 9 K( \: m; }- F5 b1 z7 Xfunction TDBOper.DBToPhoto(const Source:TCustomADODataset;const image:TSUIImagePanel):Integer;

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名 / V; M9 H `9 u0 S! N7 a- Mconst tempFile='temp.jpg';! u5 b& e4 S# o" m3 `1 |# _ const photo='照片实体';5 |: C; f) z( F5 z+ O const photosize='照片文件长度';1 H8 g a3 O: T0 ^+ y6 E begin( L7 ~ O5 ~: ~4 ~& D# `. M result:=0; # U8 q+ y* x9 N6 T2 S6 T6 e if Source.RecordCount<>0 then 7 D, B& l1 N4 m% ~! O; Q+ g0 a begin" j% _) V2 J$ G0 ?" x //Source.First; 7 {2 |. |, s* v& P" Q4 l (TBlobField(Source.FieldByName(photo))).SaveToFile(tempFile);# p: G- i( e; U4 C- Q try& l0 ~* c1 L' g z0 p image.Picture.LoadFromFile(tempFile);) h: c9 D( v; @" v- D" b6 ? result:=Source.FieldByName(photosize).AsInteger; , o' x0 A- r% _4 { finally1 e" }! S4 _- A% s DeleteFile(tempFile);5 K5 v% c; _! R4 [4 O1 i end;6 e3 V$ x+ N' ] E' n+ a4 x' H% t end , T! W ~4 M# m, x# w else& B, j% U: Q+ p/ f5 t# I8 f result:=0;( ^" ]2 n1 M2 T( k3 u; T0 S# j3 v end;