Jpeg объемом > 300 кб

[Lokos]

Здравствуйте.
При попытке загрузить картинку форматом больше 300 кб появляется ошибка Jpeg error #53.
Как можно загрузить такую картинку.

[Leo08]

А как Вы её грузите??
Просто если Вы её тупо подключаете к свойству Picture компонента TImage, то всё оно грузит...

[Lokos]

Вот код

Form.foto1Im.Picture.SaveToFile(ExtractFilePath(ParamStr(0))+'h_'+IntToStr((ID+1))+'_1.jpg');

jpg := TJpegImage.Create;
jpg.LoadFromFile(ExtractFilePath(ParamStr(0))+'h_'+IntToStr((ID+1))+'_1.jpg');

[Leo08]

Хм.... Вроде всё правильно.
Я поискал. И нашёл то, что Вам надо...
http://www.sql.ru/forum/actualthread.aspx?tid=727067

[Lokos]

спасибо натыкался на данную статью но не читал))) Есть такой еще вопросик а верно ли происходит сохранение
чем отличается

FormNedvigimostAdd.foto1Im.Picture.Graphic.SaveToFile();

от

FormNedvigimostAdd.foto1Im.Picture.SaveToFile();

[Lokos]

Решил проблему так

jpg:=TJpegImage.Create;
jpg.assign(Form.Image.Picture.Graphic);
jpg.SaveFile(put);

Таким образом файл сохраняется в формате jpeg и без проблем загружается