Delphi 把单张图片保存到Access数据库


本文整理自网络,侵删。

 
procedure TForm1.BitBtn2Click(Sender: TObject);
var ext:string;
begin
  openpicturedialog1.FileName :='.jpg';
If OpenPictureDialog1.Execute Then
 begin
   image1.Picture.LoadFromFile(openpicturedialog1.FileName );
      if image1.picture.Graphic <> nil then  
    begin
       adoquery1.Edit;
       adoquery1.FieldByName('图片').Assign(image1.Picture.Graphic);
       ext:=extractfileext(openpicturedialog1.FileName );
   if uppercase(ext) = '.BMP' THEN
      adoquery1.FieldByName('格式').VALUE :='bmp'
   ELSE
     IF (UPPERCASE(EXT) = '.JPEG') OR (UPPERCASE(EXT) = '.JPG') THEN
      adoquery1.FieldByName('格式').VALUE := 'jpg';
   adoquery1.Post;
   end;
end;
end;
 
――――――――――――――――

原文链接:https://blog.csdn.net/qq_33536143/article/details/85756491

相关阅读 >>

Delphi vclzip实现分卷压缩

Delphi 建立快捷方式

Delphi将n个相同字符提取到左边,m个相同字符提取到右边

Delphi 取得当前监视器的分辨率

Delphi 校验注册码时的技巧

Delphi mscomnn1 判断com口是否打开

Delphi如何过xp的防火墙而不被拦截

Delphi 的内存操作函数(4): 清空与填充内存

Delphi thttprio 控件调用webservice超时问题

Delphi 查找指定目录,指定扩展名的所有文件名

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...