Image1의 그림을 10%압축한 후 image2에 옮기는 프로그램입니다.
그 부분을 아래와 같이 MemoryStream을 이용해서 코딩한후 실행을 했는데
'JPEG error $43'. 라고 에러가 나네요.
조언좀 부탁드립니다.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
jpeg1 : TjpegImage;
mStream: TMemoryStream;
begin
jpeg1:= TjpegImage.Create;
mStream := TMemoryStream.Create;
mStream.clear;
mStream.Position := 0;
image1.picture.graphic.SaveToStream(mStream);
mStream.Position := 0;
jpeg1.LoadFromStream(mStream);
jpeg1.CompressionQuality := 10;
jpeg1.Compress;
Image2.Picture.Assign(jpeg1);
jpeg1.Free;
end;
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: