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

关于数据库中的图象存取，网上的资料多是直接用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


  begin


    lPicture.Assign(FPhoto.Picture.Graphic);


    lPicture.SaveToStream(lStream);


  end;  


  if FDatabase.InTransaction then FDatabase.Commit;


  FDatabase.StartTransaction;


  Query.Sql.text:= 'Insert Into Human(Name,IDCard,Sex,Photo) values(:Name,:IDCard,:Sex,:Photo)’;


  子段前加冒号，动态生成SQL参数,然后给参数赋值：


  Query.ParamByName('Name').asstring:=’张家恶少’;


  Query.ParamByName('IDCard').asstring:=Something;


  Query.ParamByName('Sex').asstring:=Something;


  Query.ParamByName('Photo').LoadFromStream(lStream,ftBlob);


  try


    Query.Prepare;


    Query.execSQL;


    Query.Close;


    FreeAndNil(lStream);


    FreeAndNil(lPicture);


   Result:=True;


    FDatabase.Commit;


  except


    FDatabase.Rollback;


    Query.Close;


    FreeAndNil(lStream);


    FreeAndNil(lPicture);


    Result:=False;


  end;


  最后要主要释放动态生成的LStream 和 LPicture


 


E_mail: [email protected]  QQ: 8133413  张家恶少

作者Blog： http://blog.csdn.net/DavidLove/