[Наташкин]

C помощью OpenPictureDialog открываю jpeg файл.
Пытаюсь с помощью SavePictureDialog его сохранить. Он как бы его сохраняет, но потом если попробовать открыть этот файл, он выдает ошибку JPEG Error #53...

[4kusNick]

А куда ты его грузишь? И откуда сохраняешь? Используешь ли сжатие при сохранении?
В общем, лучше покажи кусок кода, где у тебя происходит сохранение...

[Наташкин]

procedure TMainForm.mmiSaveFileClick(Sender: TObject);
begin
if FileName = ' ' then
mmiSaveAsClick(nil)
else begin
imgDrawingPad.Picture.SaveToFile(FileName);
stbMain.Panels[0].Text := FileName;
Modified := False;
end;
end;

procedure TMainForm.mmiSaveAsClick(Sender: TObject);
begin
if SavePictureDialog1.Execute then
begin
FileName := SavePictureDialog1.FileName;
mmiSaveFileClick(nil)
end;
end;

[4kusNick]

А ты попробуй сохранять через TJPEGImage (модуль JPEG в USES не забудь добавить)

[Наташкин]

а можешь код написать?

[Decoding]

Вот тут можешь найти ответ на этот вопрос - http://decoding.narod.ru/practic/resource/resource.html