Редактирование атрибутов JPEG файлов

@brutto · Регистрация: 06.07.2008

Author24 — интернет-сервис помощи студентам

Проблема состоит в следующем. Есть JPEG файл с внедренным в него описанием и
всякими мета тегами. Не силен я в формате этого файла, но знаю, что
средствами, например, PhotoShop все это увидеть можно.
Надо вычленить этот комментарий и эти мета-теги из файла, уменьшить его до
определенного размера и сохранить в таком уменьшенном виде на диск.
Буду очень благодарен за информацию или ссылку на компонент, который все это
умеет.

@GoldenFILL · 02.08.2008, 05:29

Я вот тут немного по справке пошарился посмотри ка этот код

Код

procedure TForm1.SetJPEGOptions(Sender: TObject);
var
  Temp: Boolean;
begin
  Temp := Image1.Picture.Graphic is TJPEGImage;
  if Temp then
    with TJPEGImage(Image1.Picture.Graphic) do
    begin
      PixelFormat := TJPEGPixelFormat(Self.PixelFormat.ItemIndex);

      Scale := TJPEGScale(Self.Scale.ItemIndex);
      Grayscale := Boolean(Colorspace.ItemIndex);
      Performance := TJPEGPerformance(Self.Performance.ItemIndex);
      ProgressiveDisplay := Self.ProgressiveDisplay.Checked;
    end;
  Scale.Enabled := Temp;
  PixelFormat.Enabled := Temp;
  Colorspace.Enabled := Temp;
  Performance.Enabled := Temp;
  ProgressiveDisplay.Enabled := Temp
    and TJPEGImage(Image1.Picture.Graphic).ProgressiveEncoding;

  Image1.IncrementalDisplay := IncrementalDisplay.Checked;
end;

@brutto 0 / 0 / 0 Регистрация: 06.07.2008 Сообщений: 16
		1
	Редактирование атрибутов JPEG файлов 31.07.2008, 15:56. Показов 2528. Ответов 1 Метки нет (Все метки) Проблема состоит в следующем. Есть JPEG файл с внедренным в него описанием и всякими мета тегами. Не силен я в формате этого файла, но знаю, что средствами, например, PhotoShop все это увидеть можно. Надо вычленить этот комментарий и эти мета-теги из файла, уменьшить его до определенного размера и сохранить в таком уменьшенном виде на диск. Буду очень благодарен за информацию или ссылку на компонент, который все это умеет. 0

	02.08.2008, 05:29