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

madio

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

) ?. j! s; l7 @( r' L

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

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名，最后一个是窗体名 D6 n. Q8 i0 y" ~. Vconst tempFile='temp.jpg'; 8 P& i3 Q* M; ?3 ]2 U: z9 jconst photo='照片实体'; const photosize='照片文件长度'; var f:file of Byte; 3 M m) N9 Q- m6 o1 ?# P. ibegin if Source.RecordCount<>0 then 1 Y* z( Q. ]6 j begin Source.First; Source.Edit; image.Picture.SaveToFile(tempFile); try (TBlobField(Source.FieldByName(photo))).LoadFromFile(tempFile); AssignFile(f,tempFile); Reset(f); Source.FieldValues[photosize]:=FileSize(f); . c2 u+ U. P6 [% ?; p, X Source.Post; ; m' B+ C2 y% }+ {% p finally CloseFile(f); 0 W0 Z1 c4 D# b DeleteFile(tempFile); end; end; end; / Z% u9 u. W. k: n//------------------------------------------------------------------从数据库中读出图片的函数 % M' G3 R0 P% S6 X9 I1 r6 C% K% efunction TDBOper.DBToPhoto(const Source:TCustomADODataset;const image:TSUIImagePanel):Integer;

( f# K* M9 v8 q/ [& V

//image这里输入放图片的控件，比如TImage，Source是要存入的数据库名 % e+ f3 k& O3 j$ cconst tempFile='temp.jpg'; ; y- u% d5 S8 Xconst photo='照片实体'; const photosize='照片文件长度'; begin result:=0; % |1 P `* p! F( k0 T1 o! L if Source.RecordCount<>0 then begin //Source.First; + h+ a: ?* P5 U9 U/ X* z# h (TBlobField(Source.FieldByName(photo))).SaveToFile(tempFile); try & s: d3 Z" ^/ H: H image.Picture.LoadFromFile(tempFile); 9 f. k H1 [* J0 B6 |7 L7 a! b0 M result:=Source.FieldByName(photosize).AsInteger; 1 Y% u/ Z. A+ r8 k3 y finally 2 `5 j* z) U# j+ b DeleteFile(tempFile); + |1 _8 L* }9 O" r, O; f/ i$ W end; / J' C3 q' S% {- t end else result:=0; end;