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 枚举所有电脑磁盘

Delphi 取pe文件的引入表和导出表

Delphi安卓创建pdf文件并打开

Delphi 资源文件管理 resources and images

vclzip控件的简单使用

Delphi 判断网站文件是否存在

Delphi webservice 中采用 tsoapattachment 传输文件

Delphi 下载整个网站图片例子

Delphi d10.x 并行库ppl编程之 tparallel.for

Delphixe7关于android 检测屏幕是否处于关闭状态

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

转载请注明出处：木庄网络博客 » Delphi 把单张图片保存到Access数据库