zoukankan      html  css  js  c++  java
  • jpeg

    方法1:

    procedure TForm1.Button2Click(Sender: TObject);
    var
      JPEGImage: TJPEGImage;
    begin
    if SavePictureDialog1.InitialDir =''then
        SavePictureDialog1.InitialDir := ExtractFilePath(OpenPictureDialog1.FileName);
    if trim(LabeledEdit1.Text) <>''then
        SavePictureDialog1.FileName := trim(LabeledEdit1.Text) +'.jpg ';
    if SavePictureDialog1.execute then
    begin
        JPEGImage := TJPEGImage.Create;
        JPEGImage.Assign(image1.Picture.Graphic);
        JPEGImage.CompressionQuality:=25;
        JPEGImage.Compress;
        JPEGImage.SaveToFile(ExtractFilePath(SavePictureDialog1.Filename) + trim(LabeledEdit1.Text) +'.jpg ');
    end;
    end;

    方法2:

    procedure Tf_NewsPic.BitBtn1Click(Sender: TObject);
    var
      i: Integer;
      JI: TJPEGImage;
    begin
    ifnot OpenPictureDialog1.Execute then exit;
    for i :=0to OpenPictureDialog1.Files.Count -1do
    begin
        JI := TJPEGImage.Create;
        JI.LoadFromFile(OpenPictureDialog1.Files[i]);
        image4.Picture.Bitmap.Assign(JI);
        JI.Assign(image4.Picture.Bitmap);
        JI.CompressionQuality :=25;
        JI.Compress;
        JI.SaveToFile(zhtier.GetTempDir + ExtractFileName(OpenPictureDialog1.Files[i]));
        Q1.Append;
        TBlobField(Q1.Fieldbyname('图片')).LoadFromFile(OpenPictureDialog1.Files[i]);
        Q1.Post;
        JI.Free;
    end;
      Q1.Last;
    end;

  • 相关阅读:
    logging模块
    解压序列
    python碎片
    python碎片化
    [转]pycharm快捷键
    ios开发之自定义textView
    iOS 开发之字典写入文件
    iOS 开发之内存泄漏问题
    自己写小测试 内容:添加,删除,修改,详情,导出,上传文件,easyui tree树
    使用 jxl 实现复杂的excel 表格导出 java代码
  • 原文地址:https://www.cnblogs.com/key-ok/p/3476631.html
Copyright © 2011-2022 走看看