Q&A

  • image1에 압축된 그림 넣는 방법좀~
myJPEG.CompressionQuality := 10;

myJPEG.Compress;



일 때,



myJPEG.SaveToFile('c:01.jpg');

// 화일 일 경우는 제대로 압축되어 저장된다.



myJPEG.SaveToStream(myStream);

image1.picture.assign(myJPEG);

// 이미지에서는 압축이 되지 않습니다.



왜 그런지 방법좀 알려주세요~~ ^^&



1  COMMENTS
  • Profile
    해결맨 2001.09.24 19:50
    procedure TForm1.Button2Click(Sender: TObject);

    var

    jpeg1 : TjpegImage;

    jpeg2 : TjpegImage;

    Stream1: TMemoryStream;

    begin

    jpeg1 := TjpegImage.Create;

    jpeg2 := TjpegImage.Create;

    Stream1 := TMemoryStream.Create;



    jpeg1.Assign(Image1.Picture.Bitmap);



    jpeg1.CompressionQuality := SpEdit.AsInteger;

    jpeg1.Compress;



    jpeg1.SaveToFile('c: