jpeg
2013-12-16 13:45
141 查看
方法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;
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;
相关文章推荐
- JAVA中通用JPEG缩影图Bean的制作与示例
- 关于在SQL存取JPEG图片的方法一
- JPEG图象解码源代码(Delphi源码)
- 【杂谈】jpeg 受到挑战
- Pocket PC常用程序代码(JPEG,串口,ADOCE还有网络的等等)
- JPEG颜色转换实现文件
- undefined function imagecreatefromjpeg()
- 无意了解到算术编码JPEG图片
- 关于JPEG文件格式及其缩略图的口水
- [导入]技巧: 用 SVG 自动创建 JPEG
- JPEG 学习笔记
- 从今天开始写blog了~~从JPEG开始
- JAVA中通用JPEG缩影图Bean的制作与示例
- Lossless JPEG Rewrites in C# (在Image中添加一些信息)
- JPEG 原理详细实例分析及其在嵌入式 Linux 中的应用
- Symbian学习笔记(5)——加载JPEG图像的方法
- JPEG文件的读写(五) 原来j2sdk里面有这个算法!!!
- 第 3 页 JPEG 简易文档 V2.14 [3]
- 写在JPEG编码之前
- 简单的jpeg编码程序