VPF::разрешение bmp - Форум программистов

bagos

Дата 1.11.2009, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

делаю скрин экрана, вытаскиваю нужную мне область с числами. затем сохраняю в bmp. скармливаю файнридеру, но он ругается что мол разрешение должно быть не меньше 300 dpi !!!!
как решить?

Добавлено через 21 секунду
изменение размеров bmp результата не дало

RomanEEP

Дата 1.11.2009, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 1
Всего: 8

Код


procedure SetBmpDPI(Bitmap, 300);

procedure SetBmpDPI(Bitmap: TBitmap; DPI: Integer);
var
  Stream: TMemoryStream;
  Data: Word;
begin
  try
    Stream := TMemoryStream.Create;
    Bitmap.SaveToStream(Stream);
    Data := Round(DPI * 39.370079);
    Stream.Position := 38;
    if Stream.Write(Data, 2) = 2 then
    begin
      Stream.Position := 42;
      if Stream.Write(Data, 2) = 2 then
      begin
        Stream.Position := 0;
        Bitmap.LoadFromStream(Stream);
      end
      else
        raise Exception.Create('Stream write error);
    end
    else
      raise Exception.Create('Stream write error);
  finally
    Stream.Free;
  end;
end;

--------------------

Электронные экзамены

Alexeis

Дата 1.11.2009, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

У битмапки есть такой параметр. Количество точек на дюйм, задается в его полях, однако это поле не всегда содержит правильную инфу, потому что ей мало кто пользуется кроме файн ридера. Сканер ее заполняет, а вот графические редакторы могут запросто удалить. Можно написать маленькую программу, которая будет лечить такие битмапки. Поле расположено в BitmapInfoHeader (см. MSDN)

Добавлено через 1 минуту и 34 секунды
Упс. RomanEEP опередил smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

bagos

Дата 1.11.2009, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

спасибо, парни))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »