Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при сохранении jpeg файла [D5, WinXP]


alextov ©   (2004-03-31 16:38:00) 

При попытке выполнить следующий код (практически один в один содраный из хелпа),

 jp := TJpegImage.Create;
   with  jp  do begin
       Assign(Image1.Picture.Bitmap);
       SaveToFile('Img.jpg');
       end;
   end;

на операторе SaveToFile(), вываливается ошибка типа "Project raised exception class EJPEG with message 'JPEG error #36' ".

Подскажите если кто знает, в чем прикол или хотя бы что за "ошибка №36"...


Ega23   (2004-04-01 11:53:00) [1]

Ну вообще-то патч имеется...
Хотя с jpeg-ом у меня из без патча работало...
Просто не знаю, что ещё предположить.


alextov   (2004-04-01 11:43:00) [2]

Непатченый, а надо..?


Ega23   (2004-03-31 18:25:00) [3]

У меня тоже D5. Эта программка уже почти 3 года на объектах разных крутится, и всё отлично.
Кстати, может Delphi непатченый?


Smithson   (2004-03-31 18:05:00) [4]

И не дергайся. У меня в D5 тоже не сохраняет jpeg. Есть такая библиотека, зовется GFX. Если сумеешь найти, используй ее (я использую).

Еще я что-то делал на тему SaveToStream - попробуй это, только вот не помню, с GFX я это делал или без. Извини, давно было :)


alextov   (2004-03-31 18:02:00) [5]

пробовал - не помогает


Ega23   (2004-03-31 17:48:00) [6]

В SaveToFile попробуй конкретный путь указать


alextov   (2004-03-31 17:44:00) [7]

Отож - бо...:(((


Ega23   (2004-03-31 17:36:00) [8]

var
FaceBitMap : TBitmap;

procedure TFPreviewPhoto.bbOKClick(Sender: TObject);
var
JpgImg:TJpegImage;
begin
JpgImg:=TJpegImage.Create;
JpgImg.Assign(FaceBitMap);
JpgImg.SaveToFile(ExtractFilePath(ParamStr(0))+'FaceImg.jpg');
JpgImg.Free;
JpgImg:=nil;
ModalResult:=mrOK;
end;

Всё это прекрасно работает


alextov   (2004-03-31 17:31:00) [9]

без width то же самое


Ega23   (2004-03-31 16:49:00) [10]

Попробуй без with


Наверх

Титульная страница Поиск, карта сайта Написать письмо