用delphi批量导入某子目录下所有JPG图片文件到数据库
来源:互联网 发布:改歌词软件 编辑:程序博客网 时间:2024/06/05 15:17
//保存图片到数据库
function imagesavetosql(dataset:TQuery;filename:String):boolean;
var
imagejpg:TJPEGImage; //jpg图片
MyStm:TMemoryStream;
begin
result:=false;
MyStm:=TMemoryStream.Create;
imagejpg:=Tjpegimage.Create;
if filename<>'' then
begin
imagejpg.LoadFromFile(filename);
imagejpg.SaveToStream(MyStm);
MyStm.Position:=0;
TBlobField(dataset.FieldByName('pict')).LoadFromStream(MyStm); //不可与DMImage之类控件,因为其只支持BMP
result:=true;
end;
MyStm.Free;
imagejpg.free;
end;
//界面上添加TDirectoryListBox,TGauge控件; chk_road(注:checkbox控件)
procedure Tfrmpict.BitBtn2Click(Sender: TObject);
var
dirlist:TStringList;
i:Integer;
begin
inherited;
if chk_road.Checked then
begin
dirlist:=TStringList.Create ;
dirlist.Clear;
try
GetAllFileName(DirectoryListBox1.Directory,dirlist);
if dirlist.Count>0 then
begin
Gauge1.MinValue :=0;
Gauge1.MaxValue:= dirlist.Count-1;
for i:=0 to dirlist.Count-1 do
begin
with dm.qry_pict do
begin
Insert;
Fields[0].AsString:=copy(dirlist.Strings[i],1,pos('.',dirlist.Strings[i])-1);
if imagesavetosql(dm.qry_pict,dirlist.Strings[i] )=false then
begin
ShowMessage('导入'+dirlist.Strings[i]+'.jpg图片时出错');
Abort;
end;
Post;
end; //with
Gauge1.AddProgress(1);
end; //for
end //if
else
ShowMessage('该目录下不存在JPG类型图片');
finally
dirlist.Free;
end;
end
else
ShowMessage('请执行路径选取操作');
//Close;
end;
Procedure GetAllFileName(const fpath: String; filelist: TstringList);
var
fs: TsearchRec;
begin
if findfirst(fpath+'/*.jpg',faAnyFile,fs)<>0 then
exit;
repeat
if (fs.name<>'.') and (fs.name<>'..') then
if((fs.Attr and faDirectory)=faDirectory) then
GetAllFileName(fpath+'/'+fs.Name,filelist)
else
filelist.Add(fpath+'/'+fs.name);
until findnext(fs)<>0 ;
sysutils.findclose(fs);
end;
- 用delphi批量导入某子目录下所有JPG图片文件到数据库
- 用delphi批量导入某子目录下所有JPG图片文件到数据库
- 用delphi批量导入某子目录下所有JPG图片文件到数据库 选择自 mzyp2002 的 Blog
- 批量把文件(图片)导入到数据库
- Delphi 将JPG图片上传到SqlServer数据库里
- Delphi 将JPG图片上传到SqlServer数据库里
- SSIS-批量导入图片到数据库
- SSIS-批量导入图片到数据库续
- linux c 读取目录及其子目录下所有.jpg文件的文件名(无后缀)
- 使用批处理命令移动子目录下的所有文件到当前目录下,并删除子目录
- delphi 文件搜索,遍历所有子目录
- 批量导入csv文件到数据库
- 批量处理BCP导入文件到数据库
- 将目录及子目录下的.jpg文件名提取到.txt文件中
- C#批量附加指定目录下的所有数据库文件到数据库中
- PHP获取某目录下所有文件、子目录文件
- linux下批量修改目录以及子目录里的所有文件的时间
- shellapi-delphi删除目录及子目录及所有目录下的文件
- retertert
- asp.netcs0016错误解决方法
- IT技术类网址收藏
- 学习回调函数同时引申出用函数参数返回一些值或指针
- Replace Type Code with State/Strategy(以State/Strategy取代型别码)
- 用delphi批量导入某子目录下所有JPG图片文件到数据库
- IE和FF上传文件类型不一样
- 和谐
- 如何编写测试计划
- DELPHI实现摄像头拍照
- C# 使用水晶报表有感(web篇)
- 获得结果集的字段名称,ResultSet的属性要调用ResultSetMetaData的方法
- 乔生经典语录
- delphi7找不到TBDEClientDataSet控件的解决方案