怎么把一个目录下的所有图片都放到数据库的BOLB字段中呢？(50分)

dir:='D:/111/';
i:=SQLClientDataSet1.fieldbyname('F_NUMBER').AsInteger;
guid:=GetGUID;
SQLClientDataSet1.Append;
SQLClientDataSet1.FieldByName('F_GUID').AsString:=guid;
SQLClientDataSet1.FieldByName('F_NUMBER').AsInteger:=i+1;
SQLClientDataSet1.FieldByName('F_TITLE').AsString:='';
tblobfield(SQLClientDataSet1.FieldByName('F_AFFIX')).LoadFromFile(dir+'1078824098.jpg');
SQLClientDataSet1.FieldByName('F_NAME').AsString:=ExtractFileName(dir+'1078824098.jpg');
SQLClientDataSet1.Post;
SQLClientDataSet1.ApplyUpdates(0);

使用FindFirst，FindNext，FindClose函数

FindClose可以不用
if FindFirst(路径名称,faArchive,SearchRec)=0 then begin
J:=True;
New(P);
P.FileName:=SearchRec.Name;
P.DirPath:=DirectList;
P.FileSize:=SearchRec.Size;
P.ModifyTime:=FileDateToDateTime(SearchRec.Time);
FileList.Add(P);
while FindNext(SearchRec)=0 do begin
New(P);
P.FileName:=SearchRec.Name;
P.DirPath:=DirectList;
P.FileSize:=SearchRec.Size;
P.ModifyTime:=FileDateToDateTime(SearchRec.Time);
FileList.Add(P);
end;
end;

用遍历

FindFirst，FindNext，FindClose
每找到一个就加到WORD中。把一个目录循环完就行了。

多人接受答案了。