Не работает JPEG.Grayscale:=True;

← →
Jimmy (2007-09-23 14:58) [0]

Почему после вставки в код строки (*) получается jpeg файл размером 0 байт?
JPEG := TJPEGImage.Create;
JPEG.Assign(Image1.Picture.Bitmap);
JPEG.Grayscale:=True; //(*)
JPEG.SaveToFile("1.jpg");
JPEG.Free;

← →
Lacmus © (2007-09-23 19:32) [1]

procedure TJPEGImage.SetGrayscale(Value: Boolean); begin if FGrayscale <> Value then begin FreeBitmap; FGrayscale := Value; PaletteModified := True; Changed(Self); end; end;

Не работает JPEG.Grayscale:=True; Найти похожие ветки