100分请教(不够再加)在线等待ing...,DX位帮我写一个将JPEG图片转化面缩略图的过程或者函数(100分)

G

gzhk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #1

Function (AJpeg:TJpegImage):BitMap;
缩略图大小128*128,最好是放在一个PANEL上面.
非常感谢!

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #2

在一个PANEL上面 放一个128*128的 TImage

Image1.Stretch :=true;
Image1.Picture.Assign(AJpeg);

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #3

或看
。。。。/Borland/Delphi6/Help/Examples/Jpeg/JPEGPROJ.DPR

delphi 自带的例子

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #4

就是就是！delphi's demo is very good!

 

G

gzhk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #5

问题已解决.谢谢两位.