保存图片的属性到数据库中 包含图片的路径,大小,修改日期,图片属性等.解决方法

保存图片的属性到数据库中 包含图片的路径,大小,修改日期,图片属性等.
保存图片的属性到数据库中   包含图片的路径,大小,修改日期,图片属性等.

------解决方案--------------------
//获得文件信息，网上代码多的是

procedure GetFileTime(const Tf:string);
const
Model= 'yyyy/mm/dd,hh:mm:ss ';
var
Tp:TSearchRec;
LastWriteTime:string;
FindData: TWin32FindData;
function CovFileDate(Fd:_FileTime):TDateTime;
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;
begin
FindFirst(Tf,faAnyFile,Tp);
LastWriteTime:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime));//文件最后修改日期
showmessage( IntToStr( Tp.Size ) );//文件大小
......
FindClose(Tp);
end;
------解决方案--------------------
建一个表
Create Table FileProperty
(ID VARCHAR(64) NOT NULL,
FILENAME VARCHAR(255) NOT NULL,
F_PATH VARCHAR(255) NOT NULL,
F_LASTMODIFY VARCHAR(10) NOT NULL,
..
)
取出文件属性挨个存就行了