请问怎么建立一个画布对象,能对jpg格式的图象进行操作?(100分)

  • 主题发起人 主题发起人 chilly
  • 开始时间 开始时间
C

chilly

Unregistered / Unconfirmed
GUEST, unregistred user!
我看到的例子都是只能对bmp格式的图象操作
刚刚入门,好多都不会,谁知道的告诉我好不好?谢了^_^

 
先建立一个TImage,必要时可将他的Visible设为False.然后
Canvas.StretchDraw(BoundsRect,image1.Picture.Graphic);
/////////////////////////////////////////
本例是直接画在Form上了,画在其他控件上同理
 
有例子吗?如果在这里贴不方便
我的email:shan_zz@sohu.com
谢谢!~~~
 
转为bmp,然后处理
 
to huazai:怎样才能转化成bmp呢?这个是我很想做到的
可是在建立之前要怎么判断是不是bmp呢?
可以给个例子给我吗?这样比较好理解,谢谢^_^
 
不是可以判断文件的扩展名吗?
如果是bmp的久直接处理
如果是jpg的就先转为bmp的格式,
jpeg to bmp例子:

var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
myjpeg.LoadFromFile('c:/aa.jpg');
bmp.Assign(myjpeg);
bmp.SaveToFile('c:/test.bmp');
bmp.free;
myjpeg.free;
end;

 
好,我试试看
谢谢你们^_^
 
下面是源码
unit main;
interface
uses
Messages, SysUtils, Variants, Classes, ImgList, Controls, ComCtrls,
ExtCtrls, StdCtrls,dialogs,forms,windows, jpeg,Graphics;
type
Tf = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
public
published
end;
var
f: Tf;

implementation
{$R *.dfm}
{$R WindowsXP.res}
procedure Tf.Button1Click(Sender: TObject);
begin
Canvas.StretchDraw(Rect(0,0,Width,Height),image1.Picture.Graphic);
end;
end.
/////////////////////////////////////////
TGraphic接受任意图像
 
后退
顶部