1.D4中
USES JPEG
JPEG1 := tJPEGIMAGE.CREATE
PICTURE1.DRAW(X,Y,jpeg1)
2.有关这方面的控件,看ftp://www.cumt.edu.cn /pub/incomming/delphi/component
中的有关控件
或者大富翁站的FTP://WWW.GISLAB.ECNU.EDU.CN 用interface,label , Form ,button
检索到的有关构件
3.Tjpegimage部分源程序:
procedure TForm1.SetJPEGOptions(Sender: TObject);
var
Temp: Boolean;
begin
Temp := Image1.Picture.Graphic is TJPEGImage;
if Temp then
with TJPEGImage(Image1.Picture.Graphic)do
begin
PixelFormat := TJPEGPixelFormat(Self.PixelFormat.ItemIndex);
Scale := TJPEGScale(Self.Scale.ItemIndex);
Grayscale := Boolean(Colorspace.ItemIndex);
Performance := TJPEGPerformance(Self.Performance.ItemIndex);
ProgressiveDisplay := Self.ProgressiveDisplay.Checked;
end;
Scale.Enabled := Temp;
PixelFormat.Enabled := Temp;
Colorspace.Enabled := Temp;
Performance.Enabled := Temp;
ProgressiveDisplay.Enabled := Temp
and TJPEGImage(Image1.Picture.Graphic).ProgressiveEncoding;
Image1.IncrementalDisplay := IncrementalDisplay.Checked;
end;