以下这两个函数可以找出你目录的图像，把图像存入数据库的例子很多，你自己找一下吧，我不想再写了。
Function TFrmMain.BatchDirectory: boolean;
var
searchRec: TsearchRec;
begin
Result := true;
if (FindFirst(Picpath + '*.*', faDirectory, SearchRec) = 0) then
begin
while (FindNext(SearchRec) = 0) do
begin
if not Btn_stop.Enabled then
Break;
if IsValidDir(SearchRec) then
begin
if SubDirectory(Picpath, SearchRec.Name) = false then //调用图像包整理函数
begin
Result := false;
exit;
end;
end;
end;
end;
FindClose(SearchRec);
StatusBar1.Panels[1].Text := '空闲';
end;
function TFrmMain.SubDirectory(Parentpath, Subpath: string): boolean;
var
SRec: TSearchRec;
MainNM, Path: string;
piccount: integer;
sqlstr, picocuntlengt: string;
imagetype: string;
batchname:string;
begin
Path := Parentpath + Subpath;
Result := true;
if not FileExists(path + '/index.dat') then
begin
if (FindFirst(Format('%s/*.jpg', [Path]), faAnyFile, SRec) = 0) then
begin
application.ProcessMessages;
Memo_msg.Lines.Add(path);
PB_FileDir := Path + '/';
repeat
Memo_msg.Lines.Add(Format('%s', [SRec.Name]));
// Path+'/'+SRec.Name 就是你目录中保存的图像
until FindNext(SRec) <> 0;
FindClose(SRec);
P_WriteOver(PB_FileDir, 'index.dat');
end;
Memo_msg.Lines.Add('开始对图像进行打包......');
application.ProcessMessages;
end;
end;
