Загрузить изображение jpeg из файла

Я сохраняю изображение из Image компонента и при попытке загрузки в TJpeg получаю ошибку №53. Как исправить?

Исключение EJPEG в модуле myprogram.exe по адресу 002F744F. Ошибка JPEG №53

var
 JpegImage: TJpegImage;
begin
  Image1.Picture.SaveToFile('test.jpg');
  JpegImage := TJpegImage.Create;
  try
   JpegImage.LoadFromFile('test.jpg');
  finally
   JpegImage.Free;
  end;
end;

delphi delphi-10.3-rio jpeg
person Coringa    schedule 03.12.2020    source источник
comment
Как вы видите ошибку? Это исключение? Согласно docs.microsoft. com / en-us / windows / win32 / debug / Ошибка 53: сетевой путь не найден.   -  person fpiette    schedule 03.12.2020
comment
Файл на диске? Вы можете открыть его с помощью Windows?   -  person fpiette    schedule 03.12.2020
comment
Изображение не в формате JPEG.   -  person Olivier    schedule 03.12.2020
comment
Посмотрите там: stackoverflow.com/questions/3520186/delphi-jpeg-error-53   -  person fpiette    schedule 03.12.2020
comment
Возможно, Image1.Picture.SaveToFile сохранит изображение в исходном формате, который использовался для его загрузки, независимо от предоставленного расширения файла. Чтобы убедиться в этом, с помощью проводника Windows измените расширение с jpg на расширение исходного файла (если вы загрузили файл bmp, измените расширение на bmp) и попробуйте загрузить его с помощью проводника Windows.   -  person fpiette    schedule 03.12.2020
comment
Ваш код предполагает, что сохранение изображения с расширением .jpg автоматически преобразует его в допустимый файл JPEG. Это не тот случай. Если вы хотите сохранить из TImage.Picture в JPEG, вы должны сделать это явно, создав JPEGImage, назначив TImage.Picture этому TJPEGImage (который при необходимости преобразует его) и сохранив его в файл с расширением .jpg.   -  person Ken White    schedule 03.12.2020