数学建模社区-数学中国

标题: 数据库中的图片存取函数！ [打印本页]

作者: madio 时间: 2004-12-12 22:04
标题: 数据库中的图片存取函数！

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

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

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名，最后一个是窗体名 - R7 o9 }* u p" F l( t* N& _* Kconst tempFile='temp.jpg';" L, |8 t2 I3 v, r2 b. i7 P const photo='照片实体'; 8 ~% }- [, J. d8 o/ nconst photosize='照片文件长度'; ' ?! }$ N( p" _3 z% kvar ( W G5 [! O% z/ @+ B, c* h f:file of Byte;! X8 h/ J5 d, p! S+ g begin: h( W) F- j5 I q if Source.RecordCount<>0 then/ j0 I7 z$ E* T. N2 Q* W4 S begin ( w8 x, P, P& M$ ~" C Source.First; % V2 N# C' [* G. j Source.Edit;' a G! H3 c$ r: x image.Picture.SaveToFile(tempFile);* _' Y( F9 P2 `2 J1 r- h try' R/ I9 R6 v7 b% B! { (TBlobField(Source.FieldByName(photo))).LoadFromFile(tempFile); " W, S# z2 y0 l; c AssignFile(f,tempFile); L; q* f1 u7 Y) C, o Reset(f);# _. G4 q- r! Y) d$ g/ P Source.FieldValues[photosize]:=FileSize(f);# K& Z. K3 n/ l Source.Post;# Y& g& N; M* K9 ^0 O( ~1 N finally , u' C( {) g; }$ { CloseFile(f);! y0 B4 i' m! h8 u* J" B DeleteFile(tempFile);% \ A# V* T8 G1 [+ y end; c" s' i* r$ p! j# y5 M end; 6 ]5 a. z0 N5 C! @# }" H" Bend;0 u9 z8 {! |5 }: N //------------------------------------------------------------------从数据库中读出图片的函数8 f' I" B, d5 p function TDBOper.DBToPhoto(const Source:TCustomADODataset;const image:TSUIImagePanel):Integer;

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名( u6 z* h7 }! j5 C/ B, v( F5 k9 Z const tempFile='temp.jpg';9 q$ r. b; {- U const photo='照片实体'; % p# O; b$ b7 H* C) ^! f' f0 C& ^- lconst photosize='照片文件长度'; 7 K3 a/ Q2 G# @% K) j5 |6 nbegin+ Z- C4 @6 U: ~& X4 j1 S result:=0; / e7 ~- H* n1 ^6 R if Source.RecordCount<>0 then + n: J. J `% }2 s G7 d" J begin" G; |" C$ w* y7 |' N0 ~+ I //Source.First; 0 N4 { \+ w( g. O- f1 u (TBlobField(Source.FieldByName(photo))).SaveToFile(tempFile); 3 j/ W; _; y) I9 c1 |+ g- k try 3 ^$ P( I/ _" R2 j$ A1 i image.Picture.LoadFromFile(tempFile);; Q% @6 J* d! j9 X result:=Source.FieldByName(photosize).AsInteger; 4 \8 l2 J7 }% H1 }1 L finally- M0 l* p8 Q5 k) @ W DeleteFile(tempFile); - D/ g _5 O* ?! t2 y/ g end;# P+ Z8 a& N5 z/ a0 n0 u end 6 A, b+ `! A. U1 g+ [% Z3 k else2 k7 z {' t, |( E, M S" n result:=0;# U; ~ p% b( y end;

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)