也来谈谈数据库中的图象存取


   关于数据库中的图象存取，网上的资料多是直接用Table或者Query 等控件然后利用流作为媒介来完成。目前我还没看到封装在一个类里面，完全用SQL语句来实现图象的存取。前段时间开发一个运证管理系统就碰到了这样一个问题：要把每个司机的照片
入库。我们可以在主界面放置一个TImage和OpenDialog对话框进行照片的选择，可是
最后怎样将照片存入数据库呢？
下面提供源代码让大家分析（其中删去了一些不相关的东西）：
THuman=class (TComponent)
 Private
  Name:string;
  IDCard:string;
  Sex:Byte;
  Photo:TImage;
  FQuery:TQuery;
  FDatabase:TDatabase;
-          - -
publisned
  property Name:string read FName write FName;
  property IDCard:string read FIDCard write FIDCard;
  property Sex:Byte read FSex write FSex;
  property Photo:TImage read FPhoto write FPhoto;
  property Query:TQuery read FQuery write FQuery;
  property Database:TDatabase read FDatabase write FDatabase;
function THuman.Insert: Boolean;
var
  Sqlstr:string;
  lStream:TMemoryStream;
  lPicture:TJPEGImage;
begin
  lStream:=TMemoryStream.Create;
  lPicture:=TJPEGImage.Create;
// FPhoto为TImage变量，在主界面可以选择一张照片  
 if FPhoto.Picture.Graphic<>nil then
补充：软件开发 , Delphi ,