• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用delphi批量导入某子目录下所有JPG图片文件到数据库

      //保存图片到数据库

      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控件

      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;

      让程序出现windows标准对话框式样的帮助
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

    • 0
    • 0
    • 0
    • 57
    • 单栏布局 侧栏位置: