zoukankan      html  css  js  c++  java
  • delphi JPG转为BMP存入数据库

    delphi  JPG转为BMP存入数据库

     
    必须在uses中引用JPEG
    procedure TForm1.BitBtn3Click(Sender: TObject);
    var
    jpg:TJPEGimage;
    bmp:Tbitmap;
    ext:string;
    begin
    if openpicturedialog1.Execute then
    begin
    ext:=extractfileext(openpicturedialog1.FileName);//提取文件扩展名
    if (ext='.bmp') or (ext ='.BMP') then
     begin
     image1.Picture.LoadFromFile(openpicturedialog1.FileName);
     table1.Edit ;
     table1.Fields[2].Assign(image1.Picture);
     end
     else if (ext='.JPG') or (ext='.jpg') or (ext='.jpeg') or (ext='.JPEG') then
      begin
      jpg:=TJPEGimage.Create;
      bmp:=Tbitmap.Create;
       try
       jpg.LoadFromFile(openpicturedialog1.FileName);
       bmp.Assign(jpg);
       table1.Edit;
       table1.Fields[2].Assign(bmp);
       finally
       jpg.Free ;
       bmp.Free;
       end;
      end;
     end;
    end;
     
    附加:
    extractfilepath(application.exename)//获取可执行文件的完整路径
     
    extractfilename(application.exename)//获取可执行文件的文件名
     
    extractfileext(application.exename)//获取可执行文件的扩展名
  • 相关阅读:
    python实现清屏
    列表/字典/集合解析式和生成器
    SQL——pivot的用法
    前端的3大类描述
    2019-耦合性斗争笔记
    前端基础语法
    解决winform在win10下字体模糊的问题
    Xamarin.Android打包设置
    N0---我的编程教学提纲
    N0---关于变量
  • 原文地址:https://www.cnblogs.com/guorongtao/p/4455985.html
Copyright © 2011-2022 走看看