关于不能显示JPEG的问题？？？急~~~~~~(50分)

K

kiss2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #1

我调入图像到JPG，然后


jpg.CompressionQuality:=30;
jpg.Compress;
img.Picture.Assign(jpg);

为什么在img中不能显示出压缩后的图像来？？

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #2

你的jpg是什么控件啊？

 

S

Shd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #3

我也在找类似的控件，找到后通知我。
suhaidong@sohu.com
我找到也通知你。 多谢。

 

K

kiss2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #4

var jpg:tjpegimage.create;

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #5

答案在这里 ：?http://www.delphibbs.com/delphibbs/dispq.asp?lid=945589

 

R

renyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #6

implementation
uses jpeg;
{$R *.dfm}

var
Jpg: TJpegImage;
begin
Jpg:=TJpegImage.Create;
jpg.LoadFromFile('f:/1.jpg');
image1.picture.Bitmap.Assign(jpg);
Jpg.Free;

end;