主题：如何修改后缀名
channelxp
[专家分：20] 发布于 2007-06-14 20:26:00
我通过一个按钮把一张BMP的图片显示在IMAGE中,然后通过另一个按钮把图片写进数据库,但写进数据库之前,我想把图片的BMP格式改成JPG格式,应该怎么做呢.
回复列表 （共6个回复）
沙发
liuzhenqin [专家分：40] 发布于 2007-06-14 21:27:00
直接重命名abc.jpg
不就可以了嘛???
板凳
channelxp [专家分：20] 发布于 2007-06-14 21:37:00
我是通过OPENDIALOG来取得图片的,不知道怎么重命名
3 楼
`12345 [专家分：0] 发布于 2007-07-06 18:08:00
ding
4 楼
长尾兔 [专家分：3630] 发布于 2007-07-08 10:18:00
Assign
5 楼
长尾兔 [专家分：3630] 发布于 2007-07-13 14:35:00
呵呵, 继续给分!
uses Jpeg;
//.......
var
Bmp : TBitmap;
Jpg : TJpegImage;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Bmp<>nil then FreeAndNil(Bmp);
if Opendialog1.Execute then begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile(Opendialog1.FileName);
Image1.Picture.Bitmap := Bmp;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Bmp=nil then Exit;
if Jpg<>nil then FreeAndNil(Jpg);
Jpg := TJpegImage.Create;
Jpg.Assign(Bmp);
Jpg.SaveToFile('c:\test.jpg');
Image2.Picture.LoadFromFile('c:\test.jpg');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Bmp<>nil then FreeAndNil(Bmp);
if Jpg<>nil then FreeAndNil(Jpg);
end;
只是演示一下.用Button1打开一个BMP文件显示在image1里,然后用Button2转换为Jpeg格式,并存为C:\Test.jpg文件,并显示在Image2里.
6 楼
长尾兔 [专家分：3630] 发布于 2007-07-13 14:36:00
上面可以看见很简单地Assign运用.
具体自己发挥
我来回复
您所在位置：