用delphi批量导入某子目录下所有JPG图片文件到数据库

mzyp2002

于 2004-11-20 16:36:00 发布

阅读量1.9k

点赞数

分类专栏： BORLAND 文章标签： delphi dataset integer 数据库 insert function

本文链接：https://blog.csdn.net/mzyp2002/article/details/188757

版权

这篇博客介绍了如何使用Delphi编写代码，批量将指定子目录下的所有JPG图片文件导入到数据库中。通过创建TJPEGImage对象加载图片到内存，然后保存到数据库的Blob字段。在界面上，利用TDirectoryListBox、TGauge和CheckBox控件进行交互，用户可以选择目录并监视导入进度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//保存图片到数据库
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
      G

最低0.47元/天解锁文章